<%@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
Spencer Daniels Agency, Inc.
Phone: (845) 791-4878
email


Check our Availability
for your event
Click HERE

Join Us On
Join us on Facebook
 

It is easy to get your discount coupons:

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.


YES! Give me my Money Saving Discount Coupons!
First Name:
Last Name:
Email Address:
 Please add me to you periodic newsletter (about 6 times a year).
The newsletter includes additional discounts, specials and information on how to make your event more economical and FUN!
We respect your privacy and will not give or sell your email address to anyone else. and you can unsubscribe at any time.

Your Discount Coupons
 
   
   
 
   
  All prices subject to change without notice, unless contracted.
Copyright 2006-2009 - Spencer Daniels Agency - All Rights Reserved
 
   
 
 
 
 
<% If Not TM_dontClose Then TM_editCmd.ActiveConnection.Close %>