<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Week 5 Project

Week 5 Project

<% if Request.ServerVariables("Request_Method") <> "POST" then %>

Please enter your Contact Information:

Also, please enter data in the red fields, if marked:
<% if Request("Username") = "" or Request(len("SecretCode") < 8) or Request("Name") = "" then %>
<% if Request("Username") = "" then %> <% else %> <% end if %> <% if Request(len("SecretCode") < 8) then %> <% else %> <% end if %> <% if Request("Name") = "" then %> <% else %> <% end if %> <% if Request("Gender") = "M" then %> <% else %> <% end if %>
Username: Username: " size="10" />
SecretCode: SecretCode: " size="10" />
Name: Name: " size="50" />
Address: " size="50" />
City: " size="25" />
State: " size="2" />
Zip: " size="9" />
Phone: " size="10" />
Email: " size="50" />
Newsletter: <% if Request("Newsletter") = "Y" or Request("Newsletter?") = "N" then %> <% if Request("Newsletter") = "Y" then %> Yes No <% end if %> <% if Request("Newsletter") = "N" then %> Yes No <% end if %> <% else %> Yes No <% end if %>
Type: <% if Request("Type") = "HTML" then %> <% else %> <% end if %>
Gender: Male
Female		 Male
Female
Bio:

<% end if %> <% else %>

<% 'Open a recordset connection Dim rsMembership Dim strSQL strSQL = "Select * from MemberData" Set rsMembership = Server.CreateObject("ADODB.Recordset") rsMembership.Locktype=3 rsMembership.Open strSQL, conn %> <% 'Add record rsMembership.AddNew rsMembership.Fields("Username") = Request("Username") rsMembership.Fields("SecretCode") = Request("SecretCode") rsMembership.Fields("Name") = Request("Name") rsMembership.Fields("Address") = Request("Address") rsMembership.Fields("City") = Request("City") rsMembership.Fields("State") = Request("State") rsMembership.Fields("Zip") = Request("Zip") rsMembership.Fields("Phone") = Request("Phone") rsMembership.Fields("Email") = Request("Email") rsMembership.Fields("Newsletter") = Request("Newsletter") rsMembership.Fields("Type") = Request("Type") rsMembership.Fields("Gender") = Request("Gender") rsMembership.Fields("Bio") = Request("Bio") rsMembership.Update %>

Record added!

<% 'close connections rsMembership.Close set rsMembership = Nothing conn.close set conn = nothing %> <% end if %>
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: Week5Project.txt