<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Week 2 Project <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("../../../../db/Membership.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "Select Username from MemberData", conn Response.Write("") do until rs.EOF for each x in rs.Fields Response.Write("") Response.Write("") Response.Write("") next rs.MoveNext loop Response.Write("
" & x.name & " = " & x.value & "
") 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: Week2Project.txt