<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If not session("discussionlogin") then response.redirect "./"
Function notifyBooking()
body = request("name") & "," & chr(13) & _
"ip: " & Request.ServerVariables("REMOTE_ADDR") & chr(13) & _
"[Tracked for security reasons only.]" & chr(13) & _
chr(13) & _
"Information updated with " & sitename & chr(13) & _
chr(13) & _
"Name : " & request("name") & chr(13) & _
"Email : " & request("email") & chr(13) & _
"Password : " & request("password") & 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 not session("discussionlogin") then message="Session has expired.
Please login again."
'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."
Select Case ""
case request("password")
message="You must choose a password."
case request("passwordre")
message="You must retype the password you choose."
End select
if request("country")="0" then message="Please mention your country."
If message = "" then
validate = true
else
validate = false
message = "Error: "& message &"" & message & ""
message = message & "
Press the BACK button on your browser to try again."
message = ""
Response.Write message
End If
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'MAIN()
If validate then
if not addtodb then
Response.Write "System Error!
"
Else
'Telladmin
notifyBooking
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 email='" & session("useremail") & "';"
If session("userisadmin") Then
If request("id")<>"" Then
mySQL = "SELECT * FROM users where id =" & int(request("id"))
End if
End If
dbConn.Open session("constr")
rs.Open mySQL, dbConn ,1,3
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")
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
%>