Contents of tablist.asp:
<HTML> <BODY> <b>General Table Lister - <% sub pass1 %> <form name="listform" method="POST" action="tablist.asp"> <table border="0"> <tr><td align="right">Enter DSN</td><td> <input type="text" name="dsn" size="20"></td></tr> <tr><td align="right">Enter Userid </td><td> <input type="text" name="uid" size="20"></td></tr> <tr><td align="right">Enter Pwd </td><td> <input type="password" name="pwd" size="20"></td></tr> <tr><td align="right">Enter Table name </td><td> <input type="text" name="tabname" size="20"></td></tr> <tr><td align="right">Enter SQL string </td><td><input type="text" size="50" maxlength="200" name="sqlstr"> </table> <p> <input type="submit"> <input type="hidden" name="token" value="2"> </form> <% end sub sub pass2 set rs = Server.CreateObject("ADODB.Recordset") userdsn=request.Form("dsn") useruid=request.Form("uid") userpwd=request.Form("pwd") usertablename=request.Form("tabname") response.write "Table Name = " + usertablename os=Request.form("sqlstr") response.write "<br>Select String passed to SQL-Server ---><i>"+os+"</i><---" rs.Open os, "DSN=" + userdsn + ";UID=" + useruid + ";PWD=" +userpwd+ ";" response.write "<br>Opened OK" if NOT rs.EOF then ' '*** recordset not empty ' 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 response.write "</TABLE>" response.write "<b><br>Row count="+cstr(row_count)+"</b>" else response.write "<P><b>TABLE IS EMPTY -- NO RECORDS RETURNED<P>" end if rs.close set rs=nothing response.write "<p>Click <a href='tablist.asp'> here</a> for another table list."+"</b>" response.write "<p>Terminating Normally -- " + cstr(now) end sub sub errorpass response.write "<P>INVALID TOKEN VALUE. TERMINATING.<P>" end sub ' 'TOP OF MAIN ' response.write cstr(now)+"<hr>" token=Request.Form("token") select case token case "" call pass1 case "2" call pass2 case else call errorpass end select %> </b> </BODY> </HTML>
***** end of file *** printed: 99 lines on: 11/23/2009 6:04:15 AM
