<%
'#################################################################################
'## 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
'#################################################################################
%>
<%
if Request.QueryString("mode") <> "DoIt" then
if strAuthType = "nt" and ChkAccountReg = "1" then
%>
><% =fLang(strLangRegister00040) %>
- <% =fLang(strLangRegister00050) %>
|
<% WriteFooter
Response.End
end if
call ShowForm
else
Err_Msg = ""
if strAutoLogon <> 1 then
if trim(Request.Form("Name")) = "" then
Err_Msg = Err_Msg & "" & fLang(strLangRegister00060) & ""
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 & "" & fLang(strLangRegister00070) & ""
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 & " " & fLang(strLangRegister00080) & " !#$%^&*()=+{}[]|\;:/?>,< "
end if
'## NT authentication no additional password needed
if strAuthType = "db" then
if trim(Request.Form("Password")) = "" then
Err_Msg = Err_Msg & "" & fLang(strLangRegister00090) & ""
end if
if Len(Request.Form("Password")) > 25 then
Err_Msg = Err_Msg & "" & fLang(strLangRegister00100) & ""
end if
if Request.Form("Password") <> Request.Form("Password2") then
Err_Msg = Err_Msg & "" & fLang(strLangRegister00110) & ""
end if
end if
If strAutoLogon <> 1 then
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "" & fLang(strLangRegister00120) & ""
end if
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "" & fLang(strLangRegister00130) & ""
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 & "" & fLang(strLangRegister00140) & ""
end if
if strAuthType = "nt" and ChkAccountReg = "true" then
Err_Msg = Err_Msg & "" & fLang(strLangRegister00150) & ""
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 & "" & fLang(strLangRegister00160) & ""
end if
rs.close
set rs = nothing
end if
if Len(Request.Form("Sig")) > 255 then
Err_Msg = Err_Msg & "" & fLangN(strLangRegister00170, "" & Len(Request.Form("Sig")) & "") & ""
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 = fLangn(strLangRegister00180, strForumTitle) & " "
strMessage = fLangN(strLangRegister00190,Request.Form("name")) & vbNewline & vbNewline
strMessage = strMessage & fLangN(strLangRegister00200, strForumTitle & "|" & strForumURL) & vbNewline & vbNewline
if strAuthType="db" then
strMessage = strMessage & fLang(strLangRegister00210) & " " & Request.Form("Password") & vbNewline & vbNewline
end if
strMessage = strMessage & fLang(strLangRegister00220) & vbNewline & vbNewline
strMessage = strMessage & fLang(strLangRegister00230)
%>
<%
end if
else
if (InStr(Request.ServerVariables("HTTP_REFERER"), "policy.asp") <> 0) or (Err_Msg <> "") then
%>
<% =fLang(strLangRegister00240) %>
><% =fLang(strLangRegister00250) %>
<% WriteFooter
Response.End
call ShowForm
' On Error Resume next
my_Conn.Close
set my_Conn = nothing
Response.End
else %>
<% =fLang(strLangRegister00260) %>
><% =fLangN(strLangRegister00270, """ & "|" & """) %>
<% =fLang(strLangRegister00280) %>
<% WriteFooter
Response.End %>
<% end if %>
<% end if %>
<% =fLang(strLangRegister00290) %>
>
<% if strAuthType="db" then
response.write fLang(strLangRegister00310)
else
response.write fLang(strLangRegister00300)
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 %>
"><% =fLang(strLangRegister00320) %>
<% 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 %>
<% =fLang(strLangRegister00010) %>
<% =fLang(strLangRegister00020) %>