% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<%
if Request.Form("Method_Type") = "Write_Configuration" then
Err_Msg = ""
if Err_Msg = "" then
for each key in Request.Form
if left(key,3) = "str" or left(key,3) = "int" then
strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLstring"))
end if
next
Application(strCookieURL & "ConfigLoaded") = ""
%>
Configuration Posted!
Congratulations!
Back To Admin Home
<% else %>
There Was A Problem With Your Details
>Go Back To Enter Data
<% end if %>
<% else %>
<% end if
WriteFooter
Else
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
End IF
%>