%@ Language = "VBScript" %> <% Option Explicit Response.Buffer = true Response.Expires = -1441 %> <% Dim objRS, strSQL strSQL = "SELECT * FROM client ORDER BY client.clientname" Set objRS = objConn.Execute(strSQL) %>
<% While Not objRS.EOF Response.Write(Server.HTMLEncode(Trim(objRS("clientname")))) Response.Write("") objRS.MoveNext Wend %>