<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%If Request("hdnRunner") = "Go" Then%> <% Dim BirthDateFull BirthDateFull = Request("selBdayMonth") & "/" & Request("selBdayDay") & "/" & Request("txtBdayYear") Dim Command1__pt01DateofBirth Command1__pt01DateofBirth = "" if(BirthDateFull <> "") then Command1__pt01DateofBirth = BirthDateFull Dim Command1__pt02Name Command1__pt02Name = "" if(Request("txtFullName") <> "") then Command1__pt02Name = Request("txtFullName") Dim Command1__pt02EmailAddress Command1__pt02EmailAddress = "" if(Request("txtEmail") <> "") then Command1__pt02EmailAddress = Request("txtEmail") Dim Command1__pt02EmailOptions Command1__pt02EmailOptions = "N/A" if(Request("chkEmailOptions") <> "") then Command1__pt02EmailOptions = Request("chkEmailOptions") Dim Command1__pt02Address Command1__pt02Address = "" if(Request("txtAddress") <> "") then Command1__pt02Address = Request("txtAddress") Dim Command1__pt02City Command1__pt02City = "" if(Request("txtCity") <> "") then Command1__pt02City = Request("txtCity") Dim Command1__pt02State Command1__pt02State = "" if(Request("txtState") <> "") then Command1__pt02State = Request("txtState") Dim Command1__pt02Zip Command1__pt02Zip = "" if(Request("txtZip") <> "") then Command1__pt02Zip = Request("txtZip") %> <% 'set Command1 = Server.CreateObject("ADODB.Command") 'Command1.ActiveConnection = MM_HighRollerConn_STRING 'Command1.CommandText = "dbo.t02NewsLetterInsert" 'Command1.CommandType = 4 'Command1.CommandTimeout = 0 'Command1.Prepared = true 'Command1.Parameters.Append Command1.CreateParameter("@RETURN_VALUE", 3, 4) 'Command1.Parameters.Append Command1.CreateParameter("@pt02Name", 200, 1,200,Command1__pt02Name) 'Command1.Parameters.Append Command1.CreateParameter("@pt02EmailAddress", 200, 1,160,Command1__pt02EmailAddress) 'Command1.Parameters.Append Command1.CreateParameter("@pt02EmailOptions", 200, 1,250,Command1__pt02EmailOptions) 'Command1.Execute() %> <% sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From="websitemail@high-roller.com" objMail.To="info@high-roller.com" 'objMail.To="test@test.com" objMail.Subject="High-Roller News Letter Subscription" objMail.HTMLBody = "

Subscription Details


Full Name: " & Command1__pt02Name & "
Email: " & Command1__pt02EmailAddress & "
Subscription Options: " & Command1__pt02EmailOptions & "
Address: " & Command1__pt02Address & "
City: " & Command1__pt02City & "
State: " & Command1__pt02State & "
Zip: " & Command1__pt02Zip & "
Date Of Birth: " & Command1__pt01DateofBirth 'objMail.TextBody="body" objMail.Send %> <%Response.Redirect("newsLetterThankYou.asp")%> <%End If%> Contact High Roller
AugBoard
High-Roller News Letter Subscription
Name:
Email:
Address:
City:
State:
Zip:
Birthday:
Month : Day : Year : " size=5 maxlength=4>
Please Send me Senior info:
Please Send me Military Tournament info:
Please Send Me Law Enforc. Event Info:
Please Send Me Mail Delivery (UPS, FedEx, USPS) Event Info:
   
   
Security Image Security image
Change Image
Write the characters in the image above (Case sensitive)
Please remember to let us know if you change your email address.
Also make sure your settings are set to accept our emails.
To Unsubscribe at any time, simply let us know at info@high-roller.com.

 

 

 

 

 
Copyright © 2016 High Roller News - All Rights Reserved.