% @ Language=VBScript %> <% Option Explicit %> <% 'Set the response buffer to true Response.Buffer = True 'Dimension variables Dim intSpamTimeLimitSeconds 'Holds the number of secounds between posts Dim intSpamTimeLimitMinutes 'Holds the number of minutes the user can post five posts in 'Read in the users colours for the forum intSpamTimeLimitSeconds = CInt(Request.Form("seconds")) intSpamTimeLimitMinutes = CInt(Request.Form("minutes")) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Configuration.* From " & strDbTable & "Configuration;" '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 'we only want one record so set the maximum records to 1 rsCommon.MaxRecords = 1 'Query the database rsCommon.Open strSQL, adoCon 'If the user is changing tthe colours then update the database If Request.Form("postBack") Then 'Update the recordset rsCommon.Fields("Spam_seconds") = intSpamTimeLimitSeconds rsCommon.Fields("Spam_minutes") = intSpamTimeLimitMinutes 'Update the database with the new user's colours rsCommon.Update 'Re-run the query to read in the updated recordset from the database rsCommon.Requery 'Empty the application level variable so that the changes made are seen in the main forum Application("blnConfigurationSet") = false End If 'Read in the forum colours from the database If NOT rsCommon.EOF Then 'Read in the colour info from the database intSpamTimeLimitSeconds = CInt(rsCommon.Fields("Spam_seconds")) intSpamTimeLimitMinutes = CInt(rsCommon.Fields("Spam_minutes")) End If 'Reset Server Objects rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>