%@ Language=VBScript %> <% set conn=server.CreateObject("adodb.connection") Conn.open "dsn=friendly" set rs=server.CreateObject("adodb.recordset") rs.ActiveConnection=conn rs.Open "select * from category where name<>'' order by seder" Function Splittt(MyString, Num) Spl = left(Mystring, Num) Length = Trim(Mystring) if len(MyString) > 0 then If (len(length) <= Num) then Splittt = Spl Else Splittt = Replace(Spl, Spl,Spl & "..." ) End If else Splittt = Spl end if End Function %>
| ||||||||||||||||||