<html><head>
<META HTTP-EQUIV="Refresh" CONTENT=15
<TITLE>Current Issues:</TITLE>
</head>
<body bgcolor="#FFFFFF">
<%
' this code opens the database
myDSN="DSN=users;uid=Admin;pwd="
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
' this code retrieves the data
mySQL="select * from issues"
set rstemp=conntemp.execute(mySQL)
' this code detects if data is empty
If rstemp.eof then
response.write "...There are currently no records to display...<br>"
conntemp.close
set conntemp=nothing
response.end
end if
%>
<table border=.1>
<%
' This code puts fieldnames into column headings
response.write "<tr>"
for each whatever in rstemp.fields
response.write "<td><B>" & whatever.name & "</B></TD>"
next
response.write "</tr>"
' Now lets grab all the records
DO UNTIL rstemp.eof
' put fields into variables
username=rstemp("User_Name")
password=rstemp("Password")
' write the fields to browser
cellstart="<td align=""top"">"
response.write "<tr>"
response.write cellstart & username & "</td>"
response.write cellstart & password & "</td>"
response.write "</tr>"
rstemp.movenext
LOOP
%>
</table>
<%
' Now close and dispose of resources
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
</body></html>