<% Option Explicit Response.Buffer = True '------------------------------------------------------------------------------------- ' *** DO NOT MODIFY THIS CODE **** ' Code Generated by PollWizard v2.0. ' Copyright 1999-2001 Office Power! (www-office-power.com). All Rights Reserved. ' *** DO NOT MODIFY THIS CODE **** '------------------------------------------------------------------------------------- Function DoCheck(bUseCookie) Dim strCookieName Dim bValidNum If Request.Form("optChoice").Count <= CInt(Request.QueryString("max")) Then bValidNum = True Else bValidNum = False End If If bUseCookie = True Then strCookieName = Request.QueryString("cookie_name") If Len(Request.ServerVariables("HTTP_COOKIE")) = 0 Then DoCheck = "Value=CookiesOff" Else If Request.Cookies(strCookieName) = "True" Then DoCheck = "Value=AlreadySubmitted" Else If bValidNum = True Then Response.Cookies(strCookieName) = "True" Response.Cookies(strCookieName).Expires = Date + 30 Response.Cookies(strCookieName).Path = "/" DoCheck = "Value=New" Else DoCheck = "Value=InvalidEntry" End if End if End if Else If bValidNum = True Then DoCheck = "Value=New" Else DoCheck = "Value=InvalidEntry" End If End If End Function Function GetFormSubmit Dim intCount Dim sResults For intCount = 1 to Request.Form("optChoice").Count sResults = sResults & "&" & "optChoice=" & Request.Form("optChoice")(intCount) Next GetFormSubmit = sResults End Function Sub Main If Request.QueryString("use_cookie") = "true" Then Response.Redirect Request.QueryString("results_page") & "?" & DoCheck(True) & "&" & Request.QueryString & GetFormSubmit Else Response.Redirect Request.QueryString("results_page") & "?" & DoCheck(False) & "&" & Request.QueryString & GetFormSubmit End If End Sub Main %>