% DIM Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "dsn=sdunes;uid=sdunes;pwd=sdunes06;" Conn.Open Set RS = server.createobject("ADODB.Recordset") Function TruncateString(StringData,StringMax,StringAdd) If Not Len(StringData) >= StringMax Then '// Returned: (StringData) without truncation. TruncateString = StringData Else TruncateString = CStr(Trim(Left(StringData, StringMax)) + StringAdd) End If End Function %>