<% whichDSN="DSN=Student;uid=student;pwd=magic" mySQL="select * from publishers where state='NY'" Set conntemp=Server.CreateObject("adodb.connection") conntemp.open whichDSN Set rstemp=conntemp.execute(mySQL) If rstemp.eof Then Response.Write "No records matched
" Response.Write mySQL & "
So cannot make table..." Call CloseAll Response.End End If Response.Write "" 'Put Headings On The Table of Field Names For Each whatever In rstemp.fields Response.Write "" Next Response.Write "

" & whatever.name & "
" Response.Write rstemp.getstring(,, "	", "
", "-null-") Response.Write "

" Call CloseAll Sub CloseALL rstemp.close Set rstemp=Nothing conntemp.close Set conntemp=Nothing End Sub %>