<% Response.Buffer=True Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Cache-Control", "private" %> <% myDSN="DSN=Student;uid=student;pwd=magic" mySQL="select * from authors where AU_ID<100 order by author" IDfield="AU_ID" scriptresponder="authoredit.asp" Set conntemp=Server.CreateObject("adodb.connection") conntemp.open myDSN Set rstemp=conntemp.execute(mySQL) howmanyfields=rstemp.fields.count -1 %> <% 'Put Headings On The Table of Field Names For i=0 To howmanyfields %> <% Next %> <% ' Now lets grab all the records Do While Not rstemp.eof %> <% For i = 0 To howmanyfields%> <% Next %> <% rstemp.movenext Loop rstemp.close Set rstemp=Nothing conntemp.close Set conntemp=Nothing %>

---	<%=rstemp(i).name %>
<%my_link=scriptresponder & "?which=" & rstemp(idfield)%> Edit	<%=rstemp(i)%>