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

Week 6 Project

We“B” GraphiX

<% if Request.ServerVariables("Request_Method") <> "POST" then %> <% else %> <% if Request("cmdAdd") = "Add" then %> <% if Request("Username") = "" or Request("Name") = "" or len(Request("SecretCode")) < 8 then %>

<% if Request("Username") = "" then %> <% else %> <% end if %> <% if len(Request("SecretCode")) < 8 then %> <% else %> <% end if %> <% if Request("Name") = "" then %> <% else %> <% end if %> <% if Request("Gender") = "M" then %> <% else %> <% end if %>

Username:
Username:	">
Password:
Password:	">
Name:
Name:	">
Address:	">
City:	">
State:	">
Zip:	">
Phone:	">
Email:	">
Newsletter:	<% if Request("Newsletter") = "Yes" then %> Yes <% else %> Yes <% end if %> <% if Request("Newsletter") = "No" then %> No <% else %> No <% end if %>
Type:
Gender:	Male Female	Male Female
Bio:	<% =Request("Bio") %>

<% 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") if Request("Newsletter") = "Yes" then rsMembership.Fields("Newsletter") = True else rsMembership.Fields("Newsletter") = False end if rsMembership.Fields("Type") = Request("Type") rsMembership.Fields("Gender") = Request("Gender") rsMembership.Fields("Bio") = Request("Bio") rsMembership.Update Response.Write "

Record added!

" %> <% end if %> <% end if %> <% if Request("cmdFind") = "Find" then %> <% if Request("Username") = "" then %>

<% if Request("Username") = "" then %> <% else %> <% end if %> <% if Request("Gender") = "M" then %> <% else %> <% end if %>

Username:
Username:	">
Password:	">
Name:	">
Address:	">
City:	">
State:	">
Zip:	">
Phone:	">
Email:	">
Newsletter:	<% if Request("Newsletter") = "Yes" then %> Yes <% else %> Yes <% end if %> <% if Request("Newsletter") = "No" then %> No <% else %> No <% end if %>
Type:
Gender:	Male Female	Male Female
Bio:	<% =Request("Bio") %>

<% else %> <% strSQL = "SELECT * FROM MemberData WHERE Username = '" & Request("Username") & "'" Set rsMembership = Server.CreateObject("ADODB.Recordset") rsMembership.Locktype=3 rsMembership.Open strSQL, conn %> <% if rsMembership.EOF then Response.Write "Sorry no record found" Response.Write "

Return to week 6 page

" %> <% else %>

<% if rsMembership("Newsletter") = "True" then Response.Write"" else Response.Write"" end if %> <% if rsMembership("Gender") = "M" then Response.Write"" else Response.Write"" end if %>

Username:	">
Password:	">
Name:	">
Address:	">
City:	">
State:	">
Zip:	">
Phone:	">
Email:	">
Newsletter:	Yes No	Yes No
Type:
Gender:	MaleFemale	MaleFemale
Bio:	<% Response.Write rsMembership("Bio")%>

<% end if %> <% end if %> <% end if %> <% if Request("cmdUpdate") = "Update" then %> <% if Request("Username") = "" then %>

<% if Request("Username") = "" then %> <% else %> <% end if %> <% if Request("Gender") = "M" then %> <% else %> <% end if %>

Username:
Username:	">
Password:	">
Name:	">
Address:	">
City:	">
State:	">
Zip:	">
Phone:	">
Email:	">
Newsletter:	<% if Request("Newsletter") = "Yes" then %> Yes <% else %> Yes <% end if %> <% if Request("Newsletter") = "No" then %> No <% else %> No <% end if %>
Type:
Gender:	Male Female	Male Female
Bio:	<% =Request("Bio") %>

Return to week 6 page

" %> <% else %> <% 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") if Request("Newsletter") = "Yes" then rsMembership.Fields("Newsletter") = "True" else rsMembership.Fields("Newsletter") = "False" end if rsMembership.Fields("Type") = Request("Type") rsMembership.Fields("Gender") = Request("Gender") rsMembership.Fields("Bio") = Request("Bio") rsMembership.Update Response.Write "

Record updated!

" %> <% end if %> <% end if %> <% end if %> <% if Request("cmdDelete") = "Delete" then %> <% if Request("Username") = "" then %>

<% if Request("Username") = "" then %> <% else %> <% end if %> <% if Request("Gender") = "M" then %> <% else %> <% end if %>

Username:
Username:	">
Password:	">
Name:	">
Address:	">
City:	">
State:	">
Zip:	">
Phone:	">
Email:	">
Newsletter:	<% if Request("Newsletter") = "Yes" then %> Yes <% else %> Yes <% end if %> <% if Request("Newsletter") = "No" then %> No <% else %> No <% end if %>
Type:
Gender:	Male Female	Male Female
Bio:	<% =Request("Bio") %>

Record deleted!

" %> <% end if %> <% end if %> <% end if %> <% end if %>

Source code: Week6Project.txt

Username:
SecretCode:
Name:
Address:
City:
State:
Zip:
Phone:
Email:
Newsletter:	Yes No
Type:
Gender:	Male Female
Bio: