<%
If NOT session("discussionlogin") Then
response.redirect "login.asp"
Else
If not session("userisadmin") Then response.redirect "error.asp?message=You dont have the authority to change site Configuration!"
End if
If request("Submit")<>"" then
r = validate
If r<>"" then response.redirect r
''''''''''''''''''''''''''''''''''''''''''''''''''
Set rsc = Server.CreateObject("ADODB.Recordset")
Set con = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT * From config;"
Con.Open ConStr
rsc.Open strSQL, Con,1,2
If NOT rsc.EOF Then
siteEmail=request("siteEmail")
sitename=request("sitename")
siteurl=request("siteurl")
homeurl=request("homeurl")
PageSize=int(request("PageSize"))
pagebackcol=request("pagebackcol")
heading=request("heading")
footer=request("footer")
banner=request("banner")
emailcomponent=request("emailcomponent")
tableBorder=request("tableBorder")
tableWidth=request("tableWidth")
tableCellspacing=request("tableCellspacing")
tableBordercolor=request("tableBordercolor")
tableBgcolor=request("tableBgcolor")
menutableBgcolor=request("menutableBgcolor")
tableCellpadding=request("tableCellpadding")
tableBordercolordark=request("tableBordercolordark")
cellbg=request("cellbg")
If request("catOnStart") ="ON" Then
catOnStart = True
Else
catOnStart = False
End If
rsc("siteEmail")=siteEmail
rsc("sitename")=sitename
rsc("siteurl")=siteurl
rsc("homeurl")=homeurl
rsc("PageSize")=PageSize
rsc("pagebackcol")=pagebackcol
rsc("heading")=heading
rsc("footer")=footer
rsc("banner")=banner
rsc("emailcomponent")=emailcomponent
rsc("catOnStart")=catOnStart
rsc("tableBorder")=tableBorder
rsc("tableWidth")=tableWidth
rsc("tableCellspacing")=tableCellspacing
rsc("tableBordercolor")=tableBordercolor
rsc("tableBgcolor")=tableBgcolor
rsc("menutableBgcolor")=menutableBgcolor
rsc("tableCellpadding")=tableCellpadding
rsc("tableBordercolordark")=tableBordercolordark
rsc("cellbg")=cellbg
rsc.update
Else
'response.redirect "error.asp?message=Unable to find Forum configuration Settings in the Database.."
End If
'rsc.close
'con.close
Set rsc = Nothing
Set con = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''
End if
%>
<%=sitename%>: Edit Profile
<%=meta%>
<%searchbox%><%loginform%>
<%
Function validate
dim message
message = ""
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."
Select Case ""
case request("sitename")
message="You must provide your Sites Name."
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 message = "" then
validate = ""
else
validate = "error.asp?message=" & message
End If
End Function
%>