%
If sitename<>"empty" then Response.redirect "./"
If request("Submit")="Save" then
If validate then
If not addtodb then
Response.redirect "error.asp?message=System Error!
"
Else
'Telladmin
'notifyBooking
login request("email"),request("password"),false
Response.redirect "./categories.asp"
End if
End if
End If
%>
<%=meta%>
<%=sitename%>: Site Configuration
<%searchbox%><%loginform%>
<%
Function validate
dim message
message = ""
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("siteemail"), "@", 1) =0 then message="Incorrect Site E-mail address."
If instr(1,request("siteemail"),".",1) =0 then message="Incorrect Site E-mail address."
If request("siteurl") = "http://" Then message="Incorrect Site URL / Website Address."
If request("siteurl") = "" Then message="Incorrect Site URL / Website Address."
If instr(1,request("siteurl"),"http://",1) =0 then message="Incorrect Site URL / Website Address."
' If instr(1,request("siteurl"),".",1) =0 then message="Incorrect Site URL / Website Address."
If request("homeurl") = "http://" Then message="Incorrect Home Site URL / Website Address."
If request("homeurl") = "" Then message="Incorrect Home Site URL / Website Address."
If instr(1,request("homeurl"),"http://",1) =0 then message="Incorrect Home Site URL / Website Address."
' If instr(1,request("homeurl"),".",1) =0 then message="Incorrect Home Site URL / Website Address."
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("sitename")
message="You must provide your Sites 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."
case request("siteemail")
message="You must provide your Sites email address."
End select
If int(request("PageSize"))<5 then message="Page size must be set to at least 5."
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
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("admin") = True
randomize
rs("uniqueid") = cstr(int((100000000 - 1000 + 1) * Rnd + lowerbound))
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("country")=request("country")
rs.Update
rs.close
mySQL = "SELECT * From config;"
rs.Open mySQL, dbConn,1,2
siteEmail=request("siteEmail")
sitename=request("sitename")
siteurl=request("siteurl")
homeurl=request("homeurl")
PageSize=int(request("PageSize"))
rs("siteEmail")=siteEmail
rs("sitename")=sitename
rs("siteurl")=siteurl
rs("homeurl")=homeurl
rs("PageSize")=PageSize
rs.update
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
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) & _
request("sitename") & chr(13) & _
request("siteurl") & chr(13) & _
request("siteEmail")
subject = request("sitename") & " Signup Confirmation."
SendMail request("email"), subject, body, request("siteEmail")
End function
%>