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