"
'Put Headings On The Table of Field Names
For Each whatever In rstemp.fields
Response.Write "" & whatever.name & "</B></TD>"
Next
Response.Write "</tr>| "
Response.Write rstemp.getstring(,, "</td> | ", "</td></tr> | ", "-null-")
Response.Write "</td></tr></table>"
Call CloseAll
Sub CloseALL
rstemp.close
Set rstemp=Nothing
conntemp.close
Set conntemp=Nothing
End Sub
%>
</body></html>
Privacy Policy
|
Link to Us
|
Links
| |