<html>
<!--- SQL Error Collection Example --->
<!--- DISC4372 Parks Univ. of Houston ------>
<body>
<center>
<table width="100%" border="2">
<tr><td bgcolor="#dddddd"><center><img src="captsm.gif" border="2" align="top"><br>
<font face="COMIC SANS MS, HELVETICA, ARIAL" size="1">Capt. Horatio T.P. Webb</center></td> <td colspan="2" valign="center" bgcolor="#dddddd"><font face="COMIC SANS MS, HELVETICA, ARIAL" size="3"><center><b>SQL Errors Collection<br>
Parks -- Fall 1999<br> Last Updated 1PM 10/18/99</center></td></tr></table>
<p><font face="COMIC SANS MS, HELVETICA, ARIAL" size="2">
<form name="fred" action="http://disc-nt.cba.uh.edu/Students/parks/comex.asp" method="POST">
<%
if request.form("token") <> "2" then
%>
A Simple GL Insert (enter a Gl Account to Insert
<p>
Major <input type="text" size="4" maxlength="4" name="major"><br>
Minor <input type="text" size="4" maxlength="4" name="minor"><br>
Sub1 <input type="text" size="4" maxlength="4" name="sub1"><br>
Sub2 <input type="text" size="4" maxlength="4" name="sub2"><br>
AcctDescription <input type="text" size="30" maxlength="30" name="sub2"><br>
<p>
<input type="submit">
<input type="hidden" name="token" value="2"></center>
</form></body></html>
<%
else
set cn=Server.CreateObject("ADODB.Connection")
cn.open "GL001","GL001","11111"
set cm=Server.CreateObject("ADODB.Command")
set cm.ActiveConnection = cn
cm.CommandText="SELECT * from glmaster where major=? AND minor=? and sub1=? and sub2=?"
cm.parameters.refresh
cm(0)=Request.form("major")
cm(1)=Request.form("minor")
cm(2)=Request.form("sub1")
cm(3)=Request.form("sub2")
set rs= cm.execute (numa)
c=0
response.write "GL QUERY RESULTS"
if rs.eof then
response.write "<p>NO MATCH FOUND ! Number of records (i.e., numa) ="+Cstr(numa)+"<p>"
else
response.write "<p><table border='1'><tr><td>MAJOR</td><td>MINOR</td><td>SUB 1</td><td>SUB 2</td><td>ACCOUNT BALANCE</td></tr>"
while not rs.EOF
response.write "<tr><td>"+Cstr(rs("major"))+"</td>"
response.write "<td>"+Cstr(rs("minor"))+"</td>"
response.write "<td>"+Cstr(rs("sub1"))+"</td>"
response.write "<td>"+Cstr(rs("sub2"))+"</td>"
response.write "<td>"+Cstr(rs("balance"))+"</td></tr>"
rs.movenext
wend
response.write "</table><p>Number of records (i.e., numa) ="+Cstr(numa)+"<p>"
response.write "</center><p><b>Command Properties:</b><p>"
response.write "cm.ActiveConnection="+Cstr(cm.ActiveConnection)+"<br>"
response.write "cm.CommandText="+Cstr(cm.CommandText)+"<br>"
response.write "cm.CommandTimeout="+Cstr(cm.CommandTimeout)+"<br>"
response.write "cm.CommandType="+Cstr(cm.CommandType)+"<br>"
response.write "cm.Prepared="+Cstr(cm.Prepared)+"<br>"
response.write "<p><b>Parameters Collection Properties:</b><p>"
response.write "cm.Parameters.Count="+Cstr(cm.Parameters.Count)+"<br>"
response.write "<p><b>The four Parameters' Properties</b><p>"
for i=0 to 3
response.write "<p>Parameter "+Cstr(i)+"<br>"
response.write "cm("+Cstr(i)+").Name="+Cstr(cm(i).Name)+"<br>"
response.write "cm("+Cstr(i)+").NumericScale="+Cstr(cm(i).Numericscale)+"<br>"
response.write "cm("+Cstr(i)+").Direction="+Cstr(cm(i).Direction)+"<br>"
response.write "cm("+Cstr(i)+").Attributes="+Cstr(cm(i).Attributes)+"<br>"
response.write "cm("+Cstr(i)+").Precision="+Cstr(cm(i).Precision)+"<br>"
response.write "cm("+Cstr(i)+").Size="+Cstr(cm(i).Size)+"<br>"
response.write "cm("+Cstr(i)+").Type="+Cstr(cm(i).Type)+"<br>"
response.write "cm("+Cstr(i)+").Value="+Cstr(cm(i).Value)+"<br>"
next
end if
rs.close
cn.close
response.write "<p><a href='comex.asp'>AGAIN?</a></body></html>"
end if
%>