<% @ Language=VBScript %>
<% Option Explicit %>
<%
'Set the response buffer to true
Response.Buffer = True
'Dimension variables
Dim strMode 'Holds the mode of the page, set to true if changes are to be made to the database
Dim strMailComponent 'Holds the mail component
Dim strMailServer 'Holds the outgoing mail server
Dim strWebSiteName 'Holds the web site name
Dim strForumPath 'Holds the forum path
Dim strAdminEmail 'Holds the forum adminsters email
Dim blnEmailNotify 'Set to true to turn email notify on
Dim blnSendPost 'Set to true if the if the user wants the forum posts sent with the mail notify
Dim blnMailActivate 'Set to true if the user wants membership to be activated by email
Dim blnEmailClient 'set to true if the email client is enalbed
'Initialise variables
blnEmailNotify = False
'Read in the details from the form
strMailComponent = Request.Form("component")
strMailServer = Request.Form("mailServer")
strWebSiteName = Request.Form("siteName")
strForumPath = Request.Form("forumPath")
strAdminEmail = Request.Form("email")
blnEmailNotify = CBool(Request.Form("userNotify"))
blnSendPost = CBool(Request.Form("sendPost"))
blnMailActivate = CBool(Request.Form("mailActvate"))
blnEmailClient = CBool(Request.Form("client"))
'Initialise the SQL variable with an SQL statement to get the configuration details from the database
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "SelectConfiguration"
Else
strSQL = "SELECT " & strDbTable & "Configuration.* From " & strDbTable & "Configuration;"
End If
'Set the cursor type property of the record set to Dynamic so we can navigate through the record set
rsCommon.CursorType = 2
'Set the Lock Type for the records so that the record set is only locked when it is updated
rsCommon.LockType = 3
'Query the database
rsCommon.Open strSQL, adoCon
'If the user is changing the email setup then update the database
If Request.Form("postBack") Then
With rsCommon
'Update the recordset
.Fields("mail_component") = strMailComponent
.Fields("mail_server") = strMailServer
.Fields("website_name") = strWebSiteName
.Fields("forum_path") = strForumPath
.Fields("forum_email_address") = strAdminEmail
.Fields("email_notify") = blnEmailNotify
.Fields("Email_post") = blnSendPost
.Fields("Email_activate") = blnMailActivate
.Fields("Email_sys") = blnEmailClient
'Update the database with the new user's details
.Update
'Re-run the query to read in the updated recordset from the database
.Requery
End With
'Update variables
Application("strMailComponent") = strMailComponent
Application("strOutgoingMailServer") = strMailServer
Application("strWebsiteName") = strWebSiteName
Application("strForumPath") = strForumPath
Application("strForumEmailAddress") = strAdminEmail
Application("blnEmail") = blnEmailNotify
Application("blnSendPost") = blnSendPost
Application("blnEmailActivation") = blnMailActivate
Application("blnEmailMessenger") = blnEmailClient
'Empty the application level variable so that the changes made are seen in the main forum
Application("blnConfigurationSet") = false
End If
'Read in the deatils from the database
If NOT rsCommon.EOF Then
'Read in the e-mail setup from the database
strMailComponent = rsCommon("mail_component")
strMailServer = rsCommon("mail_server")
strWebSiteName = rsCommon("website_name")
strForumPath = rsCommon("forum_path")
strAdminEmail = rsCommon("forum_email_address")
blnEmailNotify = CBool(rsCommon("email_notify"))
blnSendPost = CBool(rsCommon("Email_post"))
blnMailActivate = CBool(rsCommon("Email_activate"))
blnEmailClient = CBool(rsCommon("Email_sys"))
End If
'Release Server Objects
rsCommon.Close
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
%>
EMAIL NOTIFICATION SETUP
EMAIL NOTIFICATION SETUP