<% Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" If Session("UserName")<>"" Then IsMember=true Else IsMember=false End If %> <% If IsMember=False Then %> Fan Club <% Else %> Change your Member Information <% End If %>

   <% If IsMember = True Then %> <%Else%> <%End If%>

<% If IsMember=False AND Request.Servervariables("REQUEST_METHOD")<>"POST" Then %>

Registering for WeissCurry.com is free, and allows you access to all the exciting features of our web site. We know how much you want to see the baby pictures. And we promise we won't spam you.

<%End If%> <% UserNameOK=1 PasswordOK=1 ShowForm=1 on error resume next form_first="" form_last="" form_email="" form_username="" form_password="" form_password2="" form_SendEMail="on" form_Directory="on" form_Address1="" form_Address2="" form_City="" form_AIMName="" form_JoinDate=Now() form_State="" form_Zip="" form_Country="" form_Phone="" If IsMember=True Then Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DSN=DB3691A" SQLStmt= "Select * From Members Where [Member Number]="&Session("membernumber") Set Rs=conn.Execute(SQLStmt) form_first=Rs.Fields("First Name") form_last=Rs.Fields("Last Name") form_email=Rs.Fields("E-mail Address") form_username=Rs.Fields("UserName") form_password=Rs.Fields("Password") form_password2=Rs.Fields("Password") IF Rs.Fields("SendEMail")=True Then form_SendEMail="on" ELSE form_SendEMail="OFF" END IF IF Rs.Fields("Directory")=True Then form_Directory="on" ELSE form_Directory="OFF" END IF form_Address1=Rs.Fields("Address1") form_Address2=Rs.Fields("Address2") form_City=Rs.Fields("City") form_AIMName=Rs.Fields("AIMName") form_State=Rs.Fields("State") form_Zip=Rs.Fields("Zip") form_Country=Rs.Fields("Country") form_Phone=Rs.Fields("Phone") End If If Request.Servervariables("REQUEST_METHOD")="POST" Then form_first=request.form("firstname") form_last=request.form("lastname") form_email=request.form("EMail") form_username=request.form("username") form_password=request.form("Password") form_password2=request.form("Password2") IF request.form("SendEMail")="on" Then form_SendEMail="on" ELSE form_SendEMail="OFF" End If IF request.form("Directory")="on" Then form_Directory="on" ELSE form_Directory="OFF" End If form_Address1=request.form("Address1") form_Address2=request.form("Address2") form_City=request.form("City") form_AIMName=request.form("AIMName") form_JoinDate=Now() form_State=request.form("State") form_Zip=request.form("Zip") form_Country=request.form("Country") form_Phone=request.form("Phone") If form_password<>form_password2 Then PasswordOK=0 Else ShowForm=0 Set Conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=DB3691A" If IsMember=True Then SqlStmt="UPDATE Members Set " SqlStmt=SqlStmt & "[First Name]='" & Replace(form_first, "'", "''") & "'," SQLStmt = SQLstmt & "[Last Name]='" & Replace(form_last, "'", "''") & "'," SQLStmt = SQLstmt & "[E-mail address]='" & Replace(form_email, "'", "''") & "'," SQLStmt = SQLstmt & "UserName='" & Replace(form_username, "'", "''") & "'," If form_SendEMail="on" Then SQLStmt = SQLstmt & " SendEMail=True, " Else SQLStmt = SQLstmt & " SendEMail=False, " End If If form_Directory="on" Then SQLStmt = SQLstmt & " Directory=True, " Else SQLStmt = SQLstmt & " Directory=False, " End If SQLStmt = SQLstmt & "Address1='" & Replace(form_Address1, "'", "''") & "'," SQLStmt = SQLstmt & "Address2='" & Replace(form_Address2, "'", "''") & "'," SQLStmt = SQLstmt & "City='" & Replace(form_City, "'", "''") & "'," SQLStmt = SQLstmt & "State='" & Replace(form_State, "'", "''") & "'," SQLStmt = SQLstmt & "Zip='" & Replace(form_Zip, "'", "''") & "'," SQLStmt = SQLstmt & "Country='" & Replace(form_Country, "'", "''") & "'," SQLStmt = SQLstmt & "Phone='" & Replace(form_Phone, "'", "''") & "'," SQLStmt = SQLstmt & "AIMName='" & Replace(form_AIMName, "'", "''") & "'," SQLStmt = SQLstmt & "Password='" & Replace(form_password, "'", "''") & "'" SqlStmt = SqlStmt & "Where [Member Number] = " & Session("MemberNumber") Else SQLstmt = "INSERT INTO Members ([First Name], [Last Name], [E-mail address], Username, Password, SendEMail, Directory, Address1, Address2, City, State, Zip, Country, Phone, AIMName, JoinDate, LastMessage) Values (" SQLStmt = SQLstmt & "'" & Replace(form_first, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_last, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_email, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_username, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_password, "'", "''") & "'," If form_SendEMail="on" Then SQLStmt = SQLstmt & " True, " Else SQLStmt = SQLstmt & " False, " End If If form_Directory="on" Then SQLStmt = SQLstmt & " True, " Else SQLStmt = SQLstmt & " False, " End If SQLStmt = SQLstmt & "'" & Replace(form_Address1, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_Address2, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_City, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_State, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_Zip, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_Country, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_Phone, "'", "''") & "'," SQLStmt = SQLstmt & "'" & Replace(form_AIMName, "'", "''") & "'," SQLStmt = SQLstmt & "Now()," SQLStmt = SQLstmt & "0)" End If Set RS = Conn.Execute(SQLStmt) If err.number>0 then response.write "VBScript Errors Occured:" & "

" response.write "Error Number=" & err.number & "

" response.write "Error Descr.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" end if IF conn.errors.count> 0 then ErrorString="" for counter= 0 to conn.errors.count If instr(lcase(conn.errors(counter).description),"duplicate values in the index")>0 Then ShowForm=1 UserNameOK=0 Else ErrorString=ErrorString & conn.errors(counter).description & " " End if next If UserNameOK=1 Then response.write "Database Errors Occured" & "

" response.write "Error desc. -> " & ErrorString & "

" response.write "SQL -> "& SqlStmt & "

" end if else session("username")=form_username SQLStmt="Select * From Members Where UserName='" & form_username & "'" Set rs=conn.Execute(SQLStmt) session("MemberNumber")=rs.Fields("Member Number") session("FullName")=Trim(rs.Fields("First Name"))+" "+Trim(rs.Fields("Last Name")) session.timeout=120 %> <% If IsMember=True Then %> Your user information has been changed. <% Else %> You have successfully registered for Julias & Basket-Basket's Fan Club!

You are logged into WeissCurry.com as <% =session("UserName") %> <% End If %>

Now go enter the Baby Pool! And why not go to our Message Board and let us know you were here?  <% end if rs.close ' set rs=nothing Conn.Close ' set conn=nothing End if End if %> <% If ShowForm=1 Then %>

<% If UserNameOK=0 Then %>

The user name you selected is already taken. Please enter a different user name:
<% End if %>

<% If PasswordOK=0 Then %>

Your password and confirmation password did not match. Please re-enter your password:
<% End if %>

First Name:

 

Last Name:

 

E-Mail Address:

 

<% If UserNameOK=0 Then %>

User Name:<% Else %>User Name:<% End if %> 

 

<% If PasswordOK=0 Then %>

Password:<% Else %>Password:<% End if %> 

<% If PasswordOK=0 Then %> Confirm Password:<% Else %>Confirm Password:<% End if %>

value="ON" > E-mail me when WeissCurry.com is updated (just make sure your e-mail address is accurate)
value="ON" > Include me in the WeissCurry.com Member Directory. Only WeissCurry.com members can view the Member Directory (not yet available.)

The following fields are optional. If you opt to be included in the Member Directory, the information you enter here will be included.
Address:
City, State, Zip: ,  
Country:
Phone:
AOL Instant Messenger ID:

<% If IsMember=True Then %>

<% Else %> <% End If%>
<% End if %>