Palazzo di Bocce: Leagues

<% process = request("process") if process = "true" then set cnSignUp = server.CreateObject("ADODB.Connection") cnSignUp.open Application("strConnect") 'Insert Team teamname = CleanString(request("txtTeamName")) capFname = CleanString(request("txtFName")) capLName = CleanString(request("txtLName")) PrefDay = request("PrefDay") PrefTime = request("PrefTime") AltDay = Request("AltDay") AltTime = Request("AltTime") strSQL = "sp_insert_team '" & teamname & "','" & capFname & "','" & capLName & "','" & prefday & "','" & preftime & "','" & altday & "','" & alttime & "',0,'" & now() & "'" set rsTeam = cnSignUp.execute(strSQL) TeamID = rsTeam("TeamID") 'Insert Contact Information Title = "" Fname = CleanString(request("txtFirstName")) LName = CleanString(request("txtLastName")) Address1 = CleanString(request("txtAddress")) Address2 = CleanString(request("txtAddress2")) City = CleanString(request("txtCity")) State = request("State") Zipcode = CleanString(request("txtZip")) Phone = CleanString(request("txtPhone")) Email = CleanString(request("txtEmail")) BestTime = CleanString(Request("txtBestTime")) PrefContact = Request("prefContact") strSQL = "sp_insert_contact '" & title & "','" & fname & "','" & lname & "','" & phone & "','" & email & "'," & prefcontact & ",'" & besttime & "','" & address1 & "','" & address2 & "','" & city & "','" & state & "','" & zipcode & "'," & teamid & ",1" set rsContact = cnSignUp.execute(strSQL) 'Insert Team Memebers Member1 = CleanString(request("Member1")) Member2 = CleanString(request("Member2")) Member3 = CleanString(request("Member3")) Member4 = CleanString(request("Member4")) Member5 = CleanString(request("Member5")) Member6 = CleanString(request("Member6")) Member7 = CleanString(request("Member7")) Member8 = CleanString(request("Member8")) strSQL = "sp_insert_team_member " & TeamID & ",'" & member1 & "','" & member2 & "','" & member3 & "','" & member4 & "','" & member5 & "','" & member6 & "','" & member7 & "','" & member8 & "'" set rsTeamMember = cnSignUp.execute(strSQL) Dim objMail, sqlx, rsSignUp Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "leagues@palazzodibocce.com" objMail.To = Email objMail.BCC = "bsanborn@palazzodibocce.com" objMail.Importance = 1 '(0=Low, 1=Normal, 2=High) objMail.Subject = "Palazzo Bocce League Registration" 'Compose your message body using standard HTML tags. objMail.BodyFormat = 0 ' CdoBodyFormatHTML objMail.MailFormat = 0 'build message body strBody SELECT CASE PrefDay Case 1 PrefDay = "Monday" Case 2 PrefDay = "Tuesday" Case 3 PrefDay = "Wednesday" Case 4 PrefDay = "Thursday" Case 5 PrefDay = "Friday" Case 6 PrefDay = "Saturday" Case 7 PrefDay = "Sunday" End Select SELECT CASE AltDay Case 1 AltDay = "Monday" Case 2 AltDay = "Tuesday" Case 3 AltDay = "Wednesday" Case 4 AltDay = "Thursday" Case 5 AltDay = "Friday" Case 6 AltDay = "Saturday" Case 7 AltDay = "Sunday" End Select SELECT CASE PrefContact CASE 1 PrefContact = "Phone" CASE 2 PrefContact = "E-mail" END SELECT strBody = "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "

Team Info
" strBody = strBody & "Team Name: " & TeamName & "
" strBody = strBody & "Captain Name: " & CapFname & " " & CapLname & "
" strBody = strBody & "Preferred: " & PrefDay & " " & FormatDateTime(PrefTime,3) & "
" strBody = strBody & "Alternative: " & AltDay & " " & FormatDateTime(AltTime,3) & "

" strBody = strBody & "Team Members
" 'Team Members strSQL = "SELECT * FROM TEAM_MEMBER WHERE TEAM_ID = " & TeamID set rsMember = cnSignUp.Execute(strSQL) DO WHILE NOT rsMember.EOF strBody = strBody & rsMember("MEMBER_NAME") & "
" rsMember.movenext Loop strBody = strBody & "

Contact Info
" strBody = strBody & "Name: " & FName & " " & LName & "
" strBody = strBody & "Address: " & Address1 & "
" strBody = strBody & Address2 & "
" strBody = strBody & City & ", " & State & " " & ZipCode & "
" strBody = strBody & "Phone: " & Phone & "
" strBody = strBody & "E-mail: " & Email & "
" strBody = strBody & "Best Time: " & BestTime & "
" strBody = strBody & "Preferred Contact Method: " & PrefContact & "

" strBody = "Thank you for signing up for our Bocce leagues, this email confirms receipt of your registration. When signing up a team, the Palazzo di Bocce requests a $200 deposit per team, or $50 per person. Someone will be calling you shortly to accept your deposit and hold your spot in our upcoming leagues.

" & vbcrlf & vbcrlf & "Thanks again!

" & strBody objMail.Body = strBody ' Send the message! objMail.Send ' Set the object to nothing because it immediately becomes invalid after calling the Send method. Set objMail = Nothing set rsSignUp = Nothing cnSignUp.close set cnSignUp = nothing process="success" end if %>

<%if process <> "success" then%> <%end if%>

If you are interested in signing up for a league please fill out the form below.
You will be contacted shortly by a Palazzo Di Bocce representative.

<%if process="success" then%> <%=strBody%> <%else%>

Team Information
Team Name:
Prefered league day and time :
Alternate league day and time :
Captain First Name:
Captain Last Name:
Name of Team Members :	(member #1) (member #2) (member #3) (member #4) (member #5) (member #6) (member #7) (member #8)

Contact Information
First Name:
Last Name:
Address:

City :
State :
Zip:
Phone:
Email:
Prefered method of contact:
Best time to contatct:

<%end if%>