Contents of blist.asp:
<html> <body bgcolor="#cccccc"> <Table border="1"> <tr><td valign='middle' bgcolor='#999999'><img src="captsm.gif"></td> <td valign='middle' bgcolor='#999999'><center><font color="#ffffff"><font face="Comic Sans MS"> <br> <b>A Simple ASP Example<br>List/Order</b> <br> </td></tr></table> </center> <p> <font face="Comic Sans MS"><b> <p> <p>Begin execution...<p> <% set rs=Server.CreateObject("ADODB.Recordset") SQLString="SELECT * FROM badge order by bloc ASC, blastname ASC" response.write "<P>Opening badge rs with SQLstring=<br>--->"+cstr(SQLString)+"<------ " rs.open SQLString,"DSN=gl001;UID=gl001;PWD=11111;" response.write "<P>Recordset opened OK" response.write "<table border='1'>" response.write "<tr><td>Badge id</td><td>Location</td><td>First Name</td><td>Last Name</td></tr>" c=0 while NOT rs.EOF response.write "<tr><td>"+cstr(rs("bid"))+"</td>" response.write "<td>"+cstr(rs("bloc"))+"</td>" response.write "<td>"+cstr(rs("bfirstname"))+"</td>" response.write "<td>"+cstr(rs("blastname"))+"</td></tr>" c=c+1 rs.movenext wend response.write "</table><p>record count="+cstr(c)+"<p>Terminating Normally" rs.close set rs=nothing %> <p> <a href="bdoc.asp?fl=l"> Click here for the program listing </a> (blist.asp)<br> </body> </html>
***** end of file *** printed: 42 lines on: 11/23/2009 6:01:07 AM
