Register for Deeder's Fan Club

<% Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" %> Register for Deeder's Fan Club

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 not to spam you.

<% UserNameOK=1 PasswordOK=1 ShowForm=1 on error resume next form_first="" form_last="" form_email="" form_username="" form_password="" form_password2="" 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 form_password<>form_password2 Then PasswordOK=0 Else ShowForm=0 Set Conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=deeder" SQLstmt = "INSERT INTO Members ([First Name], [Last Name], [E-mail address], Username, Password, 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, "'", "''") & "'," SQLStmt = SQLstmt & "0)" 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 & "

" 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 %> You have successfully registered for Deeder's Fan Club!

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

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 %>

<% End if %>