asked on
<%
connectstring = "server=testserver;Provider=SQLOLEDB;uid=sa;pwd=1234;Trusted_Connection=True;database=testdatabase"
Dim rs
Dim Conn
Class Datebase_Connections
function connOpen()
set Conn = Server.CreateObject("ADODB.Connection")
Conn.open connectstring
end function
function connClose()
Conn.Close
set Conn = nothing
end function
end class
Set Connections = New Datebase_Connections
Call Connections.ConnOpen
sql="select top 10 * from users"
set rs=conn.execute(sql)
do until rs.eof
response.write ("<br>Long:"&rs("login"))
rs.movenext
loop
Call Connections.ConnClose
%>