<% Option Explicit %>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Registration Application
' Title and Description displayed on this page, are first pulled from database.
' Uses the FormCapture robot to send results via email as well as recording data to datbase.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
' NOTE --- FAIL THE FORM if the WeddingDate submitted is NOT a valid DateTime type!
Dim theDate : theDate = Request.Form("RegWeddingDate") ' grab from from
Dim blnDate : blnDate = True ' initially optimistic
If Not IsDate(theDate) Then
blnDate = False
Else
'ok, it IS a date, but is it an acutal DATE and not just a TIME? check the YEAR...
Dim mStr, dStr, yStr
mStr = month(CDate(theDate)) ' : debug "mStr is '" & mStr & "'"
dStr = day(CDate(theDate)) ' : debug "dStr is '" & dStr & "'"
yStr = year(CDate(theDate)) ' : debug "yStr is '" & yStr & "'"
If yStr < year(CDate(now())) Then
blnDate = False ' this catches when just a time was entered...
End If
End If
If NOT blnDate Then
Response.Redirect "error.asp?error=" & Server.URLEncode("
Please enter a valid Date for the Wedding Date. Please format this as MM/DD/YYYY, for example, 06/19/2004
")
End If
With New clsFormCapture
'.ConnectionString = myConnectionString
.ConnectionString = CONNECTION_STRING
.TableName = "RegistrationEntries"
.IgnoreFormField "btnSubmit"
.IgnoreFormField "btnCancel"
'.AddFormRecipient "coyoteRick@gmail.com"
.SuccessPage = "thanks.asp"
.FailurePage = "error.asp"
.Go
End With
Else
' let page display normally...
End If
' get info needed for displaying on page
Dim PageTitle
Dim PageDescription
Dim PageEnabled
With New dbMagic
.SQL = "SELECT TOP 1 * FROM RegistrationPage"
.Execute
PageTitle = .RS("PageTitle")
PageDescription = .RS("PageDescription")
PageEnabled = .RS("PageEnabled") ' 0==disbaled,1==enabled
End With
If PageEnabled <> 1 Then
Response.Redirect "closed.asp"
End If
%>
A-DreamWedding.com -- Northern California Bridal Show Registration Page