Display Table, Edit Record, Update Record

Display Table, Edit Record, Update Record

--------------------------------------------------------------------------------

<%
Response.Buffer=True
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Cache-Control", "private"
%>
<html><head>
<title>authorshow.asp</title>
<meta http-equiv="pragma" content="no-cache">
</head><body bgcolor="#FFFFFF">
<%
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
%>
<table border="1">
<tr>
<td valign="top">---</td>
<% 'Put Headings On The Table of Field Names
For i=0 To howmanyfields %>
<td><b><%=rstemp(i).name %></b></td>
<% Next %>
</tr>
<% ' Now lets grab all the records
Do While Not rstemp.eof %>
<tr><td valign="top">
<%my_link=scriptresponder & "?which=" & rstemp(idfield)%>
<a HREF="<%=my_link%>">Edit</a></td>
<% For i = 0 To howmanyfields%>
<td valign="top"><%=rstemp(i)%></td>
<% Next %>
</tr>
<%
rstemp.movenext
Loop

rstemp.close
Set rstemp=Nothing
conntemp.close
Set conntemp=Nothing
%>
</table></body></html>