%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function notifyBooking()
body = request("name") & "," & chr(13) & _
"ip: " & Request.ServerVariables("REMOTE_ADDR") & chr(13) & _
"[Tracked for security reasons only.]" & chr(13) & _
chr(13) & _
"Thank you for signing up with " & sitename & chr(13) & _
chr(13) & _
"Name : " & request("name") & chr(13) & _
"Email : " & request("email") & chr(13) & _
"Password : " & request("password") & chr(13) & _
chr(13) & _
chr(13) & _
"Regards," & chr(13) & _
sitename & chr(13) & _
siteurl & chr(13) & _
siteEmail
subject = sitename & " Signup Confirmation."
SendMail request("email"), subject, body, siteEmail
End function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function validate
dim message
message = ""
'if instr(1,request("domain"),".",1)=0 then message="Incorrect domain name.
Example: yourname.com
OR yourname.net "
if Instr(1, request("email"), "@", 1) =0 then message="Incorrect E-mail address."
if instr(1,request("email"),".",1) =0 then message="Incorrect E-mail address."
'if instr(1,request("domain"),"www.",1) =1 then message="Do not include WWW."
if request("password")<> request("passwordre") then message="Password verification failed.
Please Check your password address and then retype password Correctly."
Set dbConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
mySQL = "Select * from users where name='" & trim(request("name")) & "' or email='" & trim(request("email")) & "';"
dbConn.Open session("constr")
rs.Open mySQL, dbConn ,1,3
if rs.recordcount > 0 then
message = "The login name or Email you choose is not abailable.
Please choose a different name."
end if
rs.close
Set dbConn = Nothing
Set rs = Nothing
Select Case ""
case request("name")
message="You must provide your Name."
case request("password")
message="You must choose a password."
case request("passwordre")
message="You must retype the password you choose."
case request("email")
message="You must provide your email address."
End select
if request("country")="0" then message="Please mention your country."
If message = "" then
validate = true
else
validate = false
Response.redirect "error.asp?message=" & message
End If
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'MAIN()
If validate then
if not addtodb then
Response.Write "System Error!
"
Else
'Telladmin
notifyBooking
login request("email"),request("password"),false
Response.redirect "./"
End if
End if
'END MAIN
Function addtodb()
'On error resume next
'''''''''''''''''''''''''''''
addtodb = True
Set dbConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
mySQL = "Select * from users where id=1235"
dbConn.Open session("constr")
rs.Open mySQL, dbConn ,1,3
rs.AddNew
rs("name") = request("name")
rs("email") = request("email")
rs("password") = request("password")
rs("website") = request("url")
rs("description")= HTMLFormat(request("desc"))
rs("yahoo") = request("yahoo")
rs("msn") = request("msn")
rs("aol") = request("aol")
rs("icq") = request("icq")
randomize
rs("uniqueid") = cstr(int((100000000 - 1000 + 1) * Rnd + lowerbound))
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("country")=request("country")
rs.Update
rs.close
Set rs = Nothing
Set dbConn = Nothing
End Function
function HTMLFormat(sInput)
dim sAns
sAns = replace(sInput, " ", " ")
sAns = replace(sAns, chr(34), """)
sIllStart = "<" & chr(37)
sIllEnd = chr(37) & ">"
if instr(sAns, sIllStart) > 0 or instr(sAns, sIllEnd) > 0 then
sAns = replace(sAns, "<" & chr(37), "")
sAns = replace(sAns, chr(37) & ">", "")
bIllegal = true
end if
sAns = replace(sAns, ">", ">")
sAns = replace(sAns, "<", "<")
sAns = replace(sAns, vbcrlf, "
")
HTMLFormat = sAns
end function
%>