<%
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 = "<html><head></head><body bgcolor= #FFFFFF>" & _
"<table width=470 border=0 cellspacing=1 cellpadding=0><tr><td><font size=2>New request from your web site, hosted by <a href=http://www.kansas.net>KansasNet Internet Services</a>.</font></td" & chr(13) & chr(10) & "</tr>" & _
"<tr><td><font size=2>Submission originated at <a href=http://www.megawattinc.com/booking.asp>http://www.megawattinc.com/booking.asp</a></font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr align=center><td><font size =2>Submitted by " & SenderName & " on " & Now() & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr align=center><td><font size =2>________________________________________________________________</font></td></tr>" & chr(13) & chr(10) & "</table>" & _
"" & chr(13) & chr(10) & chr(13) & chr(10) & "" & _

"<table width=450 border=0 cellspacing=1 cellpadding=0><tr align=center><td><font size=2>******************** Booking Info **********************</font></td></tr>" & chr(13) & chr(10) & "</table>" & _
"<table width=439 border=0 cellspacing=1 cellpadding=0>" & _
"<tr><td width=123 align=right><font size=2><b>Name : </b></font></td><td width=315><font size=2> " & request.form("Name") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Street Address : </b></font></td><td width=315><font size=2> " & request.form("Street") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>City : </b></font></td><td width=315><font size=2> " & request.form("City") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>State : </b></font></td><td width=315><font size=2> " & request.form("State") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Zip : </b></font></td><td width=315><font size=2> " & request.form("Zip") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Home Phone : </b></font></td><td width=315><font size=2> " & request.form("HPhone") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Work Phone : </b></font></td><td width=315><font size=2> " & request.form("WPhone") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Fax : </b></font></td><td width=315><font size=2> " & request.form("Fax") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Mobile Phone : </b></font></td><td width=315><font size=2> " & request.form("MPhone") & "</font></td></tr>" & _
"<tr><td width=123 align=right><font size=2><b>Email Address : </b></font></td><td width=315><font size=2> " & request.form("Email") & "</font></td>" & chr(13) & chr(10) & "</tr>" &  chr(13) & chr(10) & "</table>" & _

"<table width=450 border=0 cellspacing=1 cellpadding=0><tr align=center><td><font size=2>***************** Event Info ****************</font></td></tr>" & chr(13) & chr(10) & "</table>" & _

"<table width=439 border=0 cellspacing=1 cellpadding=0>" & _
"<tr><td width=123 align=right><font size=2><b>Type of Event : </b></font></td><td width=315><font size=2> " & request.form("Event") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Type of Event(other) : </b></font></td><td width=315><font size=2> " & request.form("OtherEvent") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Event Date : </b></font></td><td width=315><font size=2> " & request.form("Month") & "/" & request.form("Day") & "/ " & request.form("Year") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Event Location : </b></font></td><td width=315><font size=2> " & request.form("Location") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Event Times : </b></font></td><td width=315><font size=2> " & request.form("Time") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Event Guests : </b></font></td><td width=315><font size=2> " & request.form("Guests") & "</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr><td width=123 align=right><font size=2><b>Referred by : </b></font></td><td width=315><font size=2> " & request.form("Hear") & "</font></td>" & chr(13) & chr(10) & "</tr>" &  chr(13) & chr(10) & "</table>" & _
"" & chr(13) & chr(10) & chr(13) & chr(10) &"" & _

"<table width=450 border=0 cellspacing=1 cellpadding=0><tr align=center><td><font size=2>**************** Comments **************</font></td></tr>" & chr(13) & chr(10) & "</table>" & _
"<table width=450 border=0 cellspacing=1 cellpadding=0><tr>" & chr(13) & chr(10) & "<td><font size=2> " & request.form("Questions") & "</font></td></tr>" & chr(13) & chr(10) & "</table>" & _
"" & chr(13) & chr(10) & "" & chr(13) & chr(10) & "" & _

"<table width=450 border=0 cellspacing=1 cellpadding=0><tr>" & chr(13) & chr(10) & "<td><font size=2>________________________________________________________________</font></td>" & chr(13) & chr(10) & "</tr>" & _
"<tr align=center><td><font size=2>Need Assistance?  Please Email Us!!  -  <a href=Mailto:support@kansas.net>support@kansas.net</a></font></td></tr>" & chr(13) & chr(10) & "</table>" & _
"</body>" & chr(13) & chr(10) & "</html>"


	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")
%>