<% Option Explicit %> Project 1
<% Dim strDate ' The date recorded for the signin Dim strTime ' The time recorded for the signin Dim strName ' name ' Write data and time strDate = FormatDateTime(Now, vbShortDate) strTime = FormatDateTime(Now, vbLongTime) strName = Request("Name") Response.Write "" & strDate & ", " & strTime &"
" Response.Write "" & strName & "
" %> Thanks for using our site, <%=strName%>
We have recorded your information. Link back to course Welcome page