% If (Request.Form("name") <> "") Then Dim EmailFrom Dim EmailTo Dim Subject Dim name Dim nickname Dim Parent Dim Relation Dim address Dim CitySTZip Dim homephone Dim workphone Dim cellphone Dim email Dim gender Dim Birthday Dim age Dim HT Dim WT Dim School Dim grade Dim tshirtsize Dim session1 Dim session2 Dim session12 Dim accept ' get posted data into variables EmailFrom = "damonwilliams@msn.com" EmailTo = "damonwilliams@msn.com; jesswain78@gmail.com" Subject = "TWIN Hoops Application" name = Trim(Request.Form("name")) nickname = Trim(Request.Form("nickname")) Parent = Trim(Request.Form("Parent")) Relationship = Trim(Request.Form("relation")) address = Trim(Request.Form("address")) citystzip = Trim(Request.Form("citystzip")) homephone = Trim(Request.Form("homephone")) workphone = Trim(Request.Form("workphone")) cellphone = Trim(Request.Form("cellphone")) email = Trim(Request.Form("email")) gender = Trim(Request.Form("gender")) Birthday = Trim(Request.Form("Birthday")) age = Trim(Request.Form("age")) HT = Trim(Request.Form("HT")) WT = Trim(Request.Form("WT")) School = Trim(Request.Form("School")) grade = Trim(Request.Form("grade")) tshirtsize = Trim(Request.Form("tshirtsize")) session1 = Trim(Request.Form("session1")) session2 = Trim(Request.Form("session2")) session12 = Trim(Request.Form("session12")) accept = Trim(Request.Form("accept")) ' prepare email body text Dim Body Body = Body & "name: " & name & VbCrLf Body = Body & "nickname: " & nickname & VbCrLf Body = Body & "parent: " & parent & VbCrLf Body = Body & "relation: " & relation & VBCrLf Body = Body & "address: " & address & VbCrLf Body = Body & "citystzip: " & citystzip & VbCrLf Body = Body & "homephone: " & homephone & VbCrLf Body = Body & "workphone: " & workphone & VbCrLf Body = Body & "cellphone: " & cellphone & VbCrLf Body = Body & "email: " & email & VbCrLf Body = Body & "gender: " & gender & VbCrLf Body = Body & "Birthday: " & Birthday & VbCrLf Body = Body & "age: " & age & VbCrLf Body = Body & "HT: " & HT & VbCrLf Body = Body & "WT: " & WT & VbCrLf Body = Body & "School: " & School & VbCrLf Body = Body & "grade: " & grade & VbCrLf Body = Body & "tshirtsize: " & tshirtsize & VbCrLf Body = Body & "session1: " & session1 & VbCrLf Body = Body & "session2: " & session2 & VbCrLf Body = Body & "session12: " & session12 & VbCrLf Body = Body & "Terms Accepted: " & accept & VbCrLf ' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.From = EmailFrom mail.Subject = Subject mail.Body = Body mail.Send Set mail = Nothing Response.Redirect("onlinepayment2011.html") End If %>
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
|