<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> display first record

display first record

<% rs.Open "Select * from MemberData ORDER BY ID", conn for each x in rs.Fields Response.Write(x.name) Response.Write(" = ") Response.Write(x.value & "
") next Response.Write("
") rs.close conn.close %>

Valid XHTML 1.1   Valid CSS!
<% thisfile = Request.ServerVariables("SCRIPT_NAME") thisfile = Server.MapPath(thisfile) set fso = CreateObject("Scripting.FileSystemObject") set fs = fso.getfile(thisfile) dlm = fs.datelastmodified set fs = nothing: set fso = nothing Response.Write("This page was last updated on: ") Response.Write("" & formatdatetime(dlm,1) & " " & formatdatetime(dlm,3) & " Mountain Time") %>
Source code: display-first-record.txt