Contents of 10twd03.asp:
<HTML> <BODY> <% ' '*** GENERAL DATABASE TABLE DUMP '*** Count rows and columns & numbers each row ' set rs = Server.CreateObject("ADODB.Recordset") ' '*** 1. enter select statement below ' os="SELECT * FROM glmaster order by major ASC, minor ASC, sub1 ASC, sub2 ASC" ' '*** 2. specify database: name; uid; pwd ' rs.Open os, "DSN=gl001;UID=gl001;PWD=11111;" ' '*** 3. write title below ' response.write "<p> gl001 table dump<p>" response.write "<TABLE BORDER='1' cellspacing='0' cellpadding='0'><tr><td><b>row</td>" for i = 0 to rs.fields.count - 1 response.write "<TD><b>"+cstr(rs(i).Name)+"</TD>" next response.write "</tr>" rowcount=0 while not rs.EOF rowcount=rowcount+1 response.write "<TR>" response.write "<td align='right'>"+cstr(rowcount)+".</td>" for i = 0 to rs.fields.count - 1 response.write "<TD>" +cstr(rs(i))+"</TD>" next response.write "</TR>" rs.MoveNext wend response.write "</TABLE><br>Column Count="+cstr(rs.fields.count)+" (does NOT include row number)" response.write "<br>Row Count="+cstr(rowcount) response.write "<br>Normally terminated: "+cstr(now) rs.close set rs=nothing %> </BODY> </HTML>
***** end of file *** printed: 45 lines on: 11/23/2009 5:57:53 AM
