<% dim conn, strsql, rsuser set conn = server.createobject("ADODB.Connection") set rsuser= server.createobject("ADODB.Recordset") conn.open "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=213.171.193.129;UID=nnnnnnn;PWD=xxxxxxxx;DATABASE= pubs" strsql = "select title from titles" rsuser.open strsql,conn,1,2 Do while not rsuser.eof response.write rsuser("Title") & "
" rsuser.movenext Loop rsuser.close conn.close set rsuser=nothing set conn = nothing %>