<% '################################################################################# '## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %>

All Forums

Registration Rules and Policies Agreement

Registration Form for <% =strForumTitle %>

<% if Request.QueryString("mode") <> "DoIt" then if strAuthType = "nt" and ChkAccountReg = "1" then %>

>Registration for this account is not necessary.

This NT User account has already been registered.

<% WriteFooter Response.End end if call ShowForm else Err_Msg = "" if strAutoLogon <> 1 then if trim(Request.Form("Name")) = "" then Err_Msg = Err_Msg & "

You must choose a UserName

" end if end if '## Forum_SQL strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_NAME = '" & Trim(Request.Form("Name")) &"'" set rs = my_Conn.Execute (strSql) if rs.BOF and rs.EOF then '## Do Nothing else Err_Msg = Err_Msg & "

UserName already in Use, Please Choose Another

" end if rs.close set rs = nothing if strBadWordFilter = 1 then chkNameBadWords(Request.Form("Name")) end if if not IsValidString(Request.Form("Name")) then Err_Msg = Err_Msg & "

You may not use any of these chars in your username !#$%^&*()=+{}[]|\;:/?>,<

" end if '## NT authentication no additional password needed if strAuthType = "db" then if trim(Request.Form("Password")) = "" then Err_Msg = Err_Msg & "

You must choose a Password

" end if if Len(Request.Form("Password")) > 25 then Err_Msg = Err_Msg & "

Your Password can not be greater than 25 characters

" end if if Request.Form("Password") <> Request.Form("Password2") then Err_Msg = Err_Msg & "

Your Passwords didn't match.

" end if end if If strAutoLogon <> 1 then if Request.Form("Email") = "" then Err_Msg = Err_Msg & "

You Must give an email address

" end if if EmailField(Request.Form("Email")) = 0 then Err_Msg = Err_Msg & "

You Must enter a valid email address

" end if end if if (lcase(left(Request.Form("Homepage"), 7)) <> "http://") and (lcase(left(Request.Form("Homepage"), 8)) <> "https://") and (Request.Form("Homepage") <> "") then Err_Msg = Err_Msg & "

You Must prefix your URL with http:// or https://

" end if if strAuthType = "nt" and ChkAccountReg = "true" then Err_Msg = Err_Msg & "

NT User Account already registered.

" end if if strUniqueEmail = "1" then '## Forum_SQL strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_EMAIL = '" & Trim(Request.Form("Email")) &"'" set rs = my_Conn.Execute (strSql) if rs.BOF and rs.EOF then '## Do Nothing else Err_Msg = Err_Msg & "

Email Address already in use, Please Choose Another

" end if rs.close set rs = nothing end if if Len(Request.Form("Sig")) > 255 then Err_Msg = Err_Msg & "

The signature can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("Sig")) & " characters long.

" end if if Err_Msg = "" then if Request.Form("Homepage") <> "" and lcase(Request.Form("Homepage")) <> "http://" and lcase(Request.Form("Homepage")) <> "https://" and lcase(Request.Form("Homepage")) <> "file:///" then regHomepage = Request.Form("Homepage") else regHomepage = " " end if '## Forum_SQL strSql = "INSERT INTO " & strMemberTablePrefix & "MEMBERS " strSql = strSql & "(M_NAME" if strAuthType = "nt" then strSql = strSql & ", M_USERNAME" end if strSql = strSql & ", M_PASSWORD" strSql = strSql & ", M_EMAIL" strSql = strSql & ", M_DATE" strSql = strSql & ", M_COUNTRY" strSql = strSql & ", M_SIG" strSql = strSql & ", M_YAHOO" strSql = strSql & ", M_ICQ" strSql = strSql & ", M_AIM" strSql = strSql & ", M_POSTS" strSql = strSql & ", M_HOMEPAGE" strSql = strSql & ", M_LASTHEREDATE" strSql = strSql & ", M_STATUS" strSql = strSql & ", M_LAST_IP" strSql = strSql & ", M_IP" strSql = strSql & ", M_FIRSTNAME" strSql = strSql & ", M_LASTNAME" strsql = strsql & ", M_CITY" strsql = strsql & ", M_STATE" strsql = strsql & ", M_PHOTO_URL" strsql = strsql & ", M_LINK1" strSql = strSql & ", M_LINK2" strSql = strsql & ", M_AGE" strSql = strSql & ", M_MARSTATUS" strSql = strsql & ", M_SEX" strSql = strSql & ", M_OCCUPATION" strSql = strSql & ", M_BIO" strSql = strSql & ", M_HOBBIES" strsql = strsql & ", M_LNEWS" strSql = strSql & ", M_QUOTE" strSql = strSql & ") " strSql = strSql & " VALUES (" If strAutoLogon = "1" then strSql = strSql & "'" & Session(strCookieURL & "strNTUserFullName") & "'" Else strSql = strSql & "'" & chkString(Request.Form("Name"),"SQLString") & "'" end if if strAuthType = "nt" then strSql = strSql & ", " & "'" & strDBNTUserName & "'" end if strSql = strSql & ", " & "'" & chkString(Request.Form("Password"),"password") & "'" strSql = strSql & ", " & "'" & chkString(Request.Form("Email"),"SQLString") & "'" strSql = strSql & ", " & "'" & DateToStr(strForumTimeAdjust) & "'" strSql = strSql & ", " & "'" & chkString(Request.Form("Country"),"name") & "'" strSql = strSql & ", " & "'" & chkString(Request.Form("Sig"),"message") & "'" strSql = strSql & ", " & "'" & chkString(Request.Form("YAHOO"),"name") & "'" strSql = strSql & ", " & "'" & chkString(Request.Form("ICQ"),"number") & "'" strSql = strSql & ", " & "'" & chkString(Request.Form("AIM"),"name") & "'" strSql = strSql & ", " & "0" strSql = strSql & ", " & "'" & chkString(regHomepage,"url") & "'" strSql = strSql & ", " & "'" & DateToStr(strForumTimeAdjust) & "'" strSql = strSql & ", " & "1" strSql = strSql & ", '" & Request.ServerVariables("REMOTE_ADDR") & "'" strSql = strSql & ", '" & Request.ServerVariables("REMOTE_ADDR") & "'" if strfullName = "1" then strSql = strSql & ", '" & ChkString(Request.Form("FirstName"),"") & "'" strSql = strSql & ", '" & ChkString(Request.Form("LastName"),"") & "'" else strSql = strSql & ", ''" strSql = strSql & ", ''" end if if strCity = "1" then strsql = strsql & ", '" & ChkString(Request.Form("City"),"") & "'" else strsql = strsql & ", ''" end if if strState = "1" then strsql = strsql & ", '" & ChkString(Request.Form("State"),"") & "'" else strsql = strsql & ", ''" end if if strPicture = "1" then strsql = strsql & ", '" & ChkString(Request.Form("Photo_URL"),"") & "'" else strsql = strsql & ", ''" end if if strFavLinks = "1" then strsql = strsql & ", '" & ChkString(Request.Form("LINK1"),"") & "'" strSql = strSql & ", '" & ChkString(Request.Form("LINK2"),"") & "'" else strsql = strsql & ", ''" strSql = strSql & ", ''" end if if strAge = "1" then strSql = strsql & ", '" & ChkString(Request.Form("Age"),"") & "'" else strSql = strsql & ", ''" end if if strMarStatus = "1" then strSql = strSql & ", '" & ChkString(Request.Form("MarStatus"),"") & "'" else strSql = strSql & ", ''" end if if strSex = "1" then strSql = strsql & ", '" & ChkString(Request.Form("Sex"),"") & "'" else strSql = strSql & ", ''" end if if strOccupation = "1" then strSql = strSql & ", '" & ChkString(Request.Form("Occupation"),"") & "'" else strSql = strSql & ", ''" end if if strBio = "1" then strSql = strSql & ", '" & ChkString(Request.Form("Bio"),"message") & "'" else strSql = strSql & ", ''" end if if strHobbies = "1" then strSql = strSql & ", '" & ChkString(Request.Form("Hobbies"),"message") & "'" else strSql = strSql & ", ''" end if if strLNews = "1" then strsql = strsql & ", '" & ChkString(Request.Form("LNews"),"message") & "'" else strSql = strSql & ", ''" end if if strQuote = "1" then strSql = strSql & ", '" & ChkString(Request.Form("Quote"),"message") & "'" else strSql = strSql & ", ''" end if strSql = strSql & ")" my_Conn.Execute (strSql) docount regHomepage = "" if lcase(strEmail) = "1" then '## Emails Message to the Author of this Reply. '## This needs to be Edited to use your own email component '## if you don't have one, try the w3Jmail component from www.dimac.net it's free! strRecipientsName = Request.Form("Name") strRecipients = Request.Form("Email") strFrom = strSender strFromName = strForumTitle strsubject = strForumTitle & " Registration " strMessage = "Hello " & Request.Form("name") & vbNewline & vbNewline strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account which allows you to post new messages and reply to existing ones on the forums at " & strForumURL & vbNewline & vbNewline if strAuthType="db" then strMessage = strMessage & "Password: " & Request.Form("Password") & vbNewline & vbNewline end if strMessage = strMessage & "You can change your information at our website by selecting the ""Profile"" link." & vbNewline & vbNewline strMessage = strMessage & "Happy Posting!" %> <% end if else if (InStr(Request.ServerVariables("HTTP_REFERER"), "policy.asp") <> 0) or (Err_Msg <> "") then %>

There Was A Problem With Your Details

<% =Err_Msg %>

>Go Back To Enter Data

<% WriteFooter Response.End call ShowForm ' On Error Resume next my_Conn.Close set my_Conn = nothing Response.End else %>

There has been a problem.

>You must first read the disclaimer/privacy statement by clicking on "register" link in the main forum window.

Go back to correct the problem.

<% WriteFooter Response.End %> <% end if %> <% end if %>

Your Registration Has Been Completed!

>You may now begin posting<% if strAuthType="db" then %> using your new UserName and Password<% end if %>.

<% if strAuthType = "db" then select case chkUser(Request.Form("Name"), Request.Form("Password")) case 1, 2, 3, 4 Call DoCookies("false") strLoginStatus = 1 case else strLoginStatus = 0 end select end if %> <% If strAutoLogon = 1 then Response.Redirect "default.asp" Else %> "> <% End if %>

">Back To Forum

<% end if WriteFooter sub DoCount '## Forum_SQL - Updates the Totals table by adding 1 to U_COUNT strSql = "UPDATE " & strTablePrefix & "TOTALS " strSql = strSql & " SET " & strTablePrefix & "TOTALS.U_COUNT = " & strTablePrefix & "TOTALS.U_COUNT + 1" my_Conn.Execute (strSql) end sub sub ShowForm() Response.write "" end sub %>