WEB LISTING 1: FirstData.asp
<%@ Language=VBScript %>
<%
Response.Buffer = false
%>
<%
Function GetDSN()
GetDSN = "UID=sa;PWD=;" _
& "DATABASE=sqlmagstuff;" _
& "SERVER=server1;" _
& "DRIVER={SQL SERVER};DSN='';"
End Function
%>
2nd system test
<%
dim sSQL, rs
dim sDSN
sSQL = "select ckey1,col2 from miscdata where ckey1 = 'a'"
set rs = RunWithRS(ssql,getdsn())
do while not rs.eof
Response.Write rs("ckey1") & " " & rs("col2") & "
"
rs.movenext
loop
rs.close
set rs = nothing
%>