%
response.buffer = True
response.addheader "Pragma", "No-Cache"
response.expires = 0
dim strErr
'declare session variables
Session("Email") = Request.Form("Email")
Session("Name") = Request.Form("Name")
Session("Street") = Request.Form("Street")
Session("City") = Request.Form("City")
Session("State") = Request.Form("State")
Session("Zip") = Request.Form("Zip")
Session("HPhone") = Request.Form("HPhone")
Session("WPhone") = Request.Form("WPhone")
Session("Fax") = Request.Form("Fax")
Session("MPhone") = Request.Form("MPhone")
If Request.Form("Event") = "Wedding" Then Session("Wedding") = "Checked" End If
If Request.Form("Event") = "Rehearsal" Then Session("Rehearsal") = "Checked" End If
If Request.Form("Event") = "Birthday" Then Session("Birthday") = "Checked" End If
If Request.Form("Event") = "Nightclub" Then Session("Nightclub") = "Checked" End If
If Request.Form("Event") = "Corporate" Then Session("Corporate") = "Checked" End If
If Request.Form("Event") = "Anniversary" Then Session("Anniversary") = "Checked" End If
If Request.Form("Event") = "Holiday" Then Session("Holiday") = "Checked" End If
If Request.Form("Event") = "Reunion" Then Session("Reunion") = "Checked" End If
If Request.Form("Event") = "ThemeParty" Then Session("ThemeParty") = "Checked" End If
If Request.Form("Event") = "Political" Then Session("Political") = "Checked" End If
If Request.Form("Event") = "Pool" Then Session("Pool") = "Checked" End If
If Request.Form("Event") = "Dance" Then Session("Dance") = "Checked" End If
If Request.Form("Event") = "Karaoke" Then Session("Karaoke") = "Checked" End If
If Request.Form("Event") = "Other" Then Session("Other") = "Checked" End If
Session("OtherEvent") = Request.Form("OtherEvent")
Session("Month") = Request.Form("Month")
Session("Day") = Request.Form("Day")
Session("Year") = Request.Form("Year")
Session("Location") = Request.Form("Location")
Session("Time") = Request.Form("Time")
Session("Guests") = Request.Form("Guests")
Session("Hear") = Request.Form("Hear")
Session("Questions") = Request.Form("Questions")
strErr = ""
'validate form
If Request.Form("Email") = "" Then
Session("ErrEmail") = "You must enter your email address:"
strErr = 1
End If
If Request.Form("Name") = "" Then
Session("ErrName") = "You must enter a Name:"
strErr = 1
End If
If Request.Form("Street") = "" Then
Session("ErrStreet") = "You must enter a Street Address:"
'strErr = 1
End If
If Request.Form("City") = "" Then
Session("ErrCity") = "You must enter a City:"
'strErr = 1
End If
If Request.Form("State") = "" Then
Session("ErrState") = "You must enter a State:"
'strErr = 1
End If
If Request.Form("Zip") = "" Then
Session("ErrZip") = "You must enter a Postal (Zip) Code:"
'strErr = 1
End If
If Request.Form("HPhone") = "" AND Request.Form("WPhone") = "" AND Request.Form("Fax") = "" AND Request.Form("MPhone") = "" Then
Session("ErrPhone") = "You must enter a number where we can reach you:"
'strErr = 1
End If
If Request.Form("Event") = "" Then
Session("ErrEvent") = "You must select your event type:"
'strErr = 1
End If
If Request.Form("Event") = "Other" AND Request.Form("OtherEvent") = "" Then
Session("ErrOtherEvent") = "You must specify the type of event:"
'strErr = 1
End If
If Request.Form("Month") = "" Then
Session("ErrMonth") = "You must enter the month of your event:"
'strErr = 1
End If
If Request.Form("Day") = "" Then
Session("ErrDay") = "You must enter the day of your event:"
'strErr = 1
End If
If Request.Form("Year") = "" Then
Session("ErrYear") = "You must enter the year of your event:"
'strErr = 1
End If
If Request.Form("Location") = "" Then
Session("ErrLocation") = "You must enter the location of your event:"
'strErr = 1
End If
If Request.Form("Time") = "" Then
Session("ErrTime") = "You must enter a starting & ending time:"
'strErr = 1
End If
If Request.Form("Guests") = "" Then
Session("ErrGuests") = "You must enter an approximate number of guests:"
'strErr = 1
End If
If Request.Form("Hear") = "" Then
Session("ErrHear") = "Please tell us how you heard of Megawatt:"
'strErr = 1
End If
If Not strErr = "" Then
response.redirect("../bookinginfo.asp")
else
'Clear session Errors
Session("ErrName")= ""
Session("ErrStreet")= ""
Session("ErrCity")= ""
Session("ErrState")= ""
Session("ErrZip")= ""
Session("ErrPhone") = ""
Session("ErrEmail") = ""
Session("ErrEvent") = ""
Session("ErrOtherEvent") = ""
Session("ErrMonth") = ""
Session("ErrDay") = ""
Session("ErrYear") = ""
Session("ErrLocation") = ""
Session("ErrTime") = ""
Session("ErrGuests") = ""
Session("ErrHear") = ""
'Clear session variables
Session("Name") = ""
Session("Street") = ""
Session("City") = ""
Session("State") = ""
Session("Zip") = ""
Session("HPhone") = ""
Session("WPhone") = ""
Session("Fax") = ""
Session("MPhone") = ""
Session("Email") = ""
Session("Wedding") = ""
Session("Rehearsal") = ""
Session("Birthday") = ""
Session("Nightclub") = ""
Session("Corporate") = ""
Session("Anniversary") = ""
Session("Holiday") = ""
Session("Reunion") = ""
Session("ThemeParty") = ""
Session("Political") = ""
Session("Pool") = ""
Session("Dance") = ""
Session("Karaoke") = ""
Session("Other") = ""
Session("OtherEvent") = ""
Session("Month") = ""
Session("Day") = ""
Session("Year") = ""
Session("Location") = ""
Session("Time") = ""
Session("Guests") = ""
Session("Hear") = ""
Session("Questions") = ""
End If
'end validation
dim SenderEmail, SenderName
dim oMail, Bdy
SenderEmail = request.form("Email")
SenderName = request.form("Name")
Bdy = "
" & _
"| New request from your web site, hosted by KansasNet Internet Services. | " & _
"
| Submission originated at http://www.megawattinc.com/booking.asp | " & chr(13) & chr(10) & "
" & _
"| Submitted by " & SenderName & " on " & Now() & " | " & chr(13) & chr(10) & "
" & _
"| ________________________________________________________________ |
" & chr(13) & chr(10) & "
" & _
"" & chr(13) & chr(10) & chr(13) & chr(10) & "" & _
"| ******************** Booking Info ********************** |
" & chr(13) & chr(10) & "
" & _
"" & _
"| Name : | " & request.form("Name") & " | " & chr(13) & chr(10) & "
" & _
"| Street Address : | " & request.form("Street") & " | " & chr(13) & chr(10) & "
" & _
"| City : | " & request.form("City") & " | " & chr(13) & chr(10) & "
" & _
"| State : | " & request.form("State") & " | " & chr(13) & chr(10) & "
" & _
"| Zip : | " & request.form("Zip") & " | " & chr(13) & chr(10) & "
" & _
"| Home Phone : | " & request.form("HPhone") & " | " & chr(13) & chr(10) & "
" & _
"| Work Phone : | " & request.form("WPhone") & " | " & chr(13) & chr(10) & "
" & _
"| Fax : | " & request.form("Fax") & " | " & chr(13) & chr(10) & "
" & _
"| Mobile Phone : | " & request.form("MPhone") & " |
" & _
"| Email Address : | " & request.form("Email") & " | " & chr(13) & chr(10) & "
" & chr(13) & chr(10) & "
" & _
"| ***************** Event Info **************** |
" & chr(13) & chr(10) & "
" & _
"" & _
"| Type of Event : | " & request.form("Event") & " | " & chr(13) & chr(10) & "
" & _
"| Type of Event(other) : | " & request.form("OtherEvent") & " | " & chr(13) & chr(10) & "
" & _
"| Event Date : | " & request.form("Month") & "/" & request.form("Day") & "/ " & request.form("Year") & " | " & chr(13) & chr(10) & "
" & _
"| Event Location : | " & request.form("Location") & " | " & chr(13) & chr(10) & "
" & _
"| Event Times : | " & request.form("Time") & " | " & chr(13) & chr(10) & "
" & _
"| Event Guests : | " & request.form("Guests") & " | " & chr(13) & chr(10) & "
" & _
"| Referred by : | " & request.form("Hear") & " | " & chr(13) & chr(10) & "
" & chr(13) & chr(10) & "
" & _
"" & chr(13) & chr(10) & chr(13) & chr(10) &"" & _
"| **************** Comments ************** |
" & chr(13) & chr(10) & "
" & _
"" & chr(13) & chr(10) & "| " & request.form("Questions") & " |
" & chr(13) & chr(10) & "
" & _
"" & chr(13) & chr(10) & "" & chr(13) & chr(10) & "" & _
"" & chr(13) & chr(10) & "| ________________________________________________________________ | " & chr(13) & chr(10) & "
" & _
"| Need Assistance? Please Email Us!! - support@kansas.net |
" & chr(13) & chr(10) & "
" & _
"" & chr(13) & chr(10) & ""
Set oMail = Server.CreateObject("Persits.MailSender")
oMail.Host = "host.server.here"
oMail.IsHTML = True
if not SenderEmail = "" then
oMail.From = SenderEmail
else
oMail.From = ""
end if
if not SenderName = "" then
oMail.FromName = SenderName
else
oMail.FromName = "KansasNet"
end if
oMail.AddAddress "jon@megawattusa.com"
oMail.Subject = "Booking Information Request"
oMail.Username = ""
oMail.Password = ""
oMail.Body = Bdy
oMail.Send
oMail.Reset
oMail="Nothing"
Response.Redirect("../../confirm.asp")
%>