%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% if Request("isSubmitted") = "yes" then
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail3.ckdomains.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = Request("emailaddress")
objCDOSYSMail.To = "Jeff@spencerdaniels.com"
objCDOSYSMail.Subject = "General Coupon Request"
objCDOSYSMail.TextBody = "Someone just requested a general coupon" & vbcrlf & vbcrlf & "First Name: " & Request("fname") & vbcrlf & "Last Name: " & Request("lname") & vbcrlf & "Sender Email: " & Request("emailaddress") & vbcrlf
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
<% end if %>
<%
' *** declare variables
TM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
TM_editAction = TM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
TM_abortEdit = false
%>
<%
' *** Insert Record and retrieve autonumber: set variables
If (CStr(Request("TM_insert")) <> "") Then
MM_editConnection = MM_sdaEvents_STRING
TM_editTable = "sdanewsletter"
TM_editRedirectUrl = "coupons/coupons-all-hits.asp"
TM_fieldsStr = "fname|value|lname|value|emailaddress|value|newslettersub|value"
TM_columnsStr = "fname|',none,''|lname|',none,''|emailaddress|',none,''|newslettersub|',none,''"
' create the TM_fields and TM_columns arrays
TM_fields = Split(TM_fieldsStr, "|")
TM_columns = Split(TM_columnsStr, "|")
' set the form values
For i = LBound(TM_fields) To UBound(TM_fields) Step 2
TM_fields(i+1) = CStr(Request.Form(TM_fields(i)))
Next
' append the query string to the redirect URL
If (TM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, TM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
TM_editRedirectUrl = TM_editRedirectUrl & "?" & Request.QueryString
Else
TM_editRedirectUrl = TM_editRedirectUrl & "&" & Request.QueryString
End If
End If
TM_dontClose = false
Else
TM_dontClose = true
End If
%>
<%
' *** Insert Record and retrieve autonumber for MS Access
' *** ID value is stored in the TM_editCmd("youridcolumn") value
If (CStr(Request("TM_insert")) <> "") Then
' create the sql insert statement
TM_tableValues = ""
TM_dbValues = ""
For i = LBound(TM_fields) To UBound(TM_fields) Step 2
FormVal = TM_fields(i+1)
TM_typeArray = Split(TM_columns(i+1),",")
Delim = TM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = TM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = TM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
if (EmptyVal = "NULL") then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
End If
End If
TM_fields(i+1) = FormVal
Next
If (Not TM_abortEdit) Then
' execute the insert using the AddNew method
set TM_editCmd = Server.CreateObject("ADODB.Recordset")
TM_editCmd.ActiveConnection = MM_editConnection
TM_editCmd.CursorType = 1
TM_editCmd.LockType = 3
TM_editCmd.Source = TM_editTable
TM_editCmd.Open
TM_editCmd.AddNew
For i = LBound(TM_fields) To UBound(TM_fields) Step 2
'If a value for the column name was passed in,
'set the column name equal to the value passed through the form...
if Len(TM_fields(i+1)) > 0 AND TM_fields(i+1)<> "''" then
TM_editCmd.Fields(TM_columns(i)) = TM_fields(i+1)
end if
Next
TM_editCmd.Update
Session("ID") = TM_editCmd("ID")
If (TM_editRedirectUrl <> "") Then
TM_editCmd.ActiveConnection.Close
Response.Redirect(TM_editRedirectUrl)
End If
End If
End If
%>
Coupon Signup Page
Speak
with an
Entertainment Consultant
M -F 9 AM to 5 PM EST
1- Fill out the form below
to get your unique promotion code.
2- Print out your coupons.
3- Call Spencer Daniels and tell them about your
event.
4- Give them your promotion code and get your
discount
NOTE:
• Only one discount coupon can be used per
event.
• Discount will be applied to qualifying
items only.
• Discount does not apply to taxes, transportation
or
any similar processing charges.
• Discount cannot be combined with any other
promotional offer nor can it be applied to
previous purchases or gift certificates.
• To qualify for discount, you must tell
the Spencer Daniels Agency that you will be using
your coupon for your event.
• Coupons are not valid with any other special
offers and cannot be combined.
• The coupons have no cash value and The
Spencer Daniels Agency reserves the right
to modify and withdraw the coupon at any time
for any reasons.
Your Discount Coupons
All prices subject to change without notice,
unless contracted.
Copyright 2006-2009 - Spencer Daniels Agency - All Rights
Reserved