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

Start :: Site Configuration!
All fields are Required
  Default Site Admin
Country
Name
Email
Password
Retype Password
  
 Site Properties
Site Name
Site Url
The url to this discussion forum.
Example:
 http://www.somedomain.com/discuss or
 http://www.somedomain.com [if discussion is your default site]
Home Url
The url to Your Home Page.
Example:
 http://www.somedomain.com
Site Email
Page Size
 
<% 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 %>