<html>
<body>
ASP Example -- glmaster dump<P>
<%
set cn=Server.CreateObject("ADODB.Connection")
response.write "<p>cn create OK"
cn.open "gl001","gl001","11111"
response.write "<p>cn opened OK"
sql="SELECT * FROM glmaster"
response.write "<p>SQL string="
response.write sql
response.write "<p>"
set rs=cn.execute(sql)
response.write "<p>rs opened OK<p>"
response.write "<table border='1'><tr>"
response.write "<td>Major</td>"
response.write "<td>Minor</td>"
response.write "<td>Sub1</td>"
response.write "<td>Sub2</td>"
response.write "<td>Account Description</td>"
response.write "<td>Balance</td></tr>"
row_count=0
while NOT rs.EOF
row_count=row_count+1
maj=rs("major")
min=rs("minor")
s1=rs("sub1")
s2=rs("sub2")
ad=rs("acctdesc")
bal=rs("balance")
response.write "<tr><td>" + cstr(maj) + "</td>"
response.write "<td>" + cstr(min) + "</td>"
response.write "<td>" + cstr(s1) + "</td>"
response.write "<td>" + cstr(s2) + "</td>"
response.write "<td>" + ad + "</td>"
response.write "<td>" + cstr(bal) + "</td>"
response.write "</tr>"
rs.movenext
wend
cn.close
set cn=nothing
response.write "</table>"
response.write "<p>Row Count = "+cstr(row_count)
response.write "<p>Normal Termination -- "
response.write cstr(now)
%>
</body>
</html>