Contents of loglist.asp:
<HTML> <BODY><center> <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>List the Login Table</b> <br> </td></tr></table><p> <% set rs = Server.CreateObject("ADODB.Recordset") usertablename=request.Form("tabname") os="SELECT * FROM login order by user_id ASC" rs.Open os, "DSN=gl001;UID=gl001;PWD=11111" k=rs.fields.count response.write "<br>Column count="+Cstr(k)+"<p>" response.write "<TABLE BORDER='1'><tr>" for i = 0 to rs.fields.count - 1 response.write "<TD><center><b>" response.write cstr(rs(i).Name) response.write "</b></center></td>" next response.write "</tr>" row_count=0 while not rs.EOF response.write "<tr>" for i = 0 to rs.fields.count - 1 response.write "<td align='right'>" response.write cstr(rs(i)) response.write "</td>" next response.write "</tr>" row_count=row_count+1 rs.MoveNext wend rs.close set rs=nothing response.write "</TABLE><b><br>Row count="+cstr(row_count)+"</b>" %> <p><a href="s2003ex.htm">Back to the Menu</a> </BODY> </HTML>
***** end of file *** printed: 46 lines on: 11/23/2009 6:10:00 AM