Contacting Spirit Lake Casino
& Resort |
Spirit Lake Casino & Resort
7889 Highway 57
St. Michael, ND 58370-9000
Toll Free: 1-800-Win?UBET!
Local casino phone: (701) 766-4747
Local hotel phone: (701) 766-4888
Hotel fax: (701) 766-4900
chalgren@spiritlakecasino.com
• www.spiritlakecasino.com
|
<%
'get form variables
strfirstname = Trim(Request.Form("realname"))
strlastname = Trim(Request.Form("reallastname"))
straddress = Trim(Request.Form("Address"))
strcity = Trim(Request.Form("City"))
strstate = Trim(Request.Form("State"))
strzip = Trim(Request.Form("Zip"))
strphone = Trim(Request.Form("phone"))
stremail = Trim(Request.Form("email"))
strgroup = Trim(Request.Form("select"))
strnumpeople = Trim(Request.Form("people"))
strinfopack = Trim(Request.Form("infopack"))
strcontact = Trim(Request.Form("contact_method"))
strcomments = Trim(Request.Form("Other_Comments"))
'check to see if the submit button has been pushed
If Request.Form("IsSubmitted") = "yes" Then
If strfirstname = "" Or strlastname = "" Or strphone = "" Or straddress = "" Or strcity = "" Or strstate = "" Or strzip = "" Then
Response.Write "
Whoops! Looks like you forgot to fill in a required field..
Please use the back button on your browser and fill in any blanks marked with an asterisk (*). | "
Else
%>
<%
'create mail object
Set objCDO = Server.Createobject("CDONTS.NewMail")
'set email parameters
objCDO.From = "crrakoczy@victories-casino.com"
objCDO.To = "crrakoczy@victories-casino.com"
objCDO.Subject = "Victories Casino Contact Form"
objCDO.Body = ""&_
""&_
"| Name: | "&_
" | "&_
""&_
"| " & strfirstname & " " & strlastname & " | "&_
" | "&_
""&_
"
Address: | "&_
" | "&_
""&_
"| " & straddress & " | "&_
" | "&_
""&_
"| " & strcity & ", " & strstate & " " & strzip & " | "&_
" | "&_
""&_
"
Phone: | "&_
" | "&_
""&_
"| " & strphone & " | "&_
" | "&_
""&_
"
Email: | "&_
" | "&_
""&_
"| " & stremail & " | "&_
" | "&_
""&_
"
Is this inquiry for a group, motorcoach or corporate event?: | "&_
" | "&_
""&_
"| " & strgroup & " | "&_
" | "&_
""&_
"
If yes, how many will be in the group?: | "&_
" | "&_
""&_
"| " & strnumpeople & " | "&_
" | "&_
""&_
"
Would you like a casino and area information package?: | "&_
" | "&_
""&_
"| " & strinfopack & " | "&_
" | "&_
""&_
"
How would you prefer to be contacted?: | "&_
" | "&_
""&_
"| " & strcontact & " | "&_
" | "&_
""&_
"
Questions/Comments: | "&_
" | "&_
""&_
"| " & strcomments & " | "&_
" | "&_
" "
'Format that mail is sent.
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
'send mail
objCDO.Send
'set the mail object to nothing
Set objCDO = Nothing
'print thank you message
Response.Redirect "contact_thanks.html"
End If
Else
%>
If you would like
more info about Spirit Lake Casino & Resort or the beautiful
surrounding areas of Devils Lake, please fill out the form
below. If you would like to apply for a job with Spirit Lake
Casino & Resort, please visit our Employment
page. Required fields are marked with an *.
Thank You! |
|
|
|
|
