<% if request.form <> "" then Dim objCom, objRS, arrSrvMsg set objCom = server.createobject("adodb.command") with objCom .activeconnection = datastore .commandText = dbOwnerPrefix&"spAdminSrvmsg" .commandType = adCmdStoredProc .Parameters.Append .Createparameter("@forward_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("forward_msg"))) .Parameters.Append .Createparameter("@emnotify_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("emnotify_msg"))) .Parameters.Append .Createparameter("@agreement_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("agreement_msg"))) .Parameters.Append .Createparameter("@shutdown_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("shutdown_msg"))) .Parameters.Append .Createparameter("@regconfirm_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("regconfirm_msg"))) .Parameters.Append .Createparameter("@regapprove_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("regapprove_msg"))) .Parameters.Append .Createparameter("@noreg_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("noreg_msg"))) .Parameters.Append .Createparameter("@lostpass_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("lostpass_msg"))) .Parameters.Append .Createparameter("@Private_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("Private_msg"))) .Parameters.Append .Createparameter("@disapprove_msg", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("disapprove_msg"))) .Parameters.Append .Createparameter("@passconfirm", adVarChar, adParamInput, 2147483647, CheckIfEmpty(request.form("passconfirm"))) .execute , , adExecuteNoRecords end with set objCom = nothing end if Set objRS = server.createobject("adodb.recordset") with objRS .open "SELECT * FROM pgd_srvmsg", datastore, , , adCmdText arrSrvMsg = .getrows .close end with Set objRS = nothing %> Server Messages <%= OutputCSS() %>
Configure Server Message :       Help
Server Messages
>Forward Message:
>
>E-mail Notification Message (Subscription):
>
>PM notification:
>
>Forum Agreement:
>
>Forum Shutdown Message:
>
>Registration E-mail Confirmation:
>
>Registration Approval :
>
>Disapprove Registration :
>
>No Registration Message:
>
>Request Password Reset E-mail Message:
>
>Send Password E-mail Message:
>