<% Dim strSql, rsScript strSql = "SELECT ScriptCode FROM Scripts" Set rsScript = objConn.Execute(strSql) 'execute sql call %> <% Dim CodeLine, StrCode, StrAll, CountAll, LineCount CodeLine = "" Do Until rsScript.EOF StrCode = (rsScript("ScriptCode")) CodeLine = "" & CodeLine & StrCode rsScript.MoveNext Loop StrAll = Trim(Server.HTMLEncode(CodeLine)) CountAll = Split(StrAll,vbLf, -1, 1) StrAll = "" LineCount = UBound(CountAll) Response.Write LineCount %> <% Call DBConnClose(ObjConn) %>