<%@ Language=VBScript %> <% strLName = Server.HTMLEncode(Request.Form("LName")) strCity = Server.HTMLEncode(Request.Form("City")) strPhone = Server.HTMLEncode(Request.Form("Phone")) strEMail = Server.HTMLEncode(Request.Form("EMail")) strST = Server.HTMLEncode(Request.Form("ST")) strComments = Server.HTMLEncode(Request.Form("Comments")) strAttending = Server.HTMLEncode(Request.Form("Attending")) strAdultCount = Server.HTMLEncode(Request.Form("AdultCount")) strChildCount = Server.HTMLEncode(Request.Form("ChildCount")) strHotelRooms = Server.HTMLEncode(Request.Form("HotelRooms")) strDescendant = Server.HTMLEncode(Request.Form("Descendant")) strTShirt_Sm = Server.HTMLEncode(Request.Form("TShirt_Sm")) strTShirt_Med = Server.HTMLEncode(Request.Form("TShirt_Med")) strTShirt_XL = Server.HTMLEncode(Request.Form("TShirt_XL")) strTShirt_2XL = Server.HTMLEncode(Request.Form("TShirt_2XL")) strTShirt_3XL = Server.HTMLEncode(Request.Form("TShirt_3XL")) strTotalShirts = Server.HTMLEncode(Request.Form("TotalShirts")) strTotAttend = Server.HTMLEncode(Request.Form("TotAttend")) strSubmit = Server.HTMLEncode(Request.Form("Submit")) strField23 = Server.HTMLEncode(Request.Form("Field23")) strTShirt_Large = Server.HTMLEncode(Request.Form("TShirt_Large")) strReset = Server.HTMLEncode(Request.Form("Reset")) strFName = Server.HTMLEncode(Request.Form("FName")) Set objConn = server.createobject("ADODB.Connection") objConn.Open "" On Error Resume Next objConn.Execute "INSERT INTO (LName, City, Phone, EMail, ST, Comments, Attending, AdultCount, ChildCount, HotelRooms, Descendant, TShirt_Sm, TShirt_Med, TShirt_XL, TShirt_2XL, TShirt_3XL, TotalShirts, TotAttend, Submit, Field23, TShirt_Large, Reset, FName) VALUES (" & "'" & strLName & "'" & "," & "'" & strCity & "'" & "," & "'" & strPhone & "'" & "," & "'" & strEMail & "'" & "," & "'" & strST & "'" & "," & "'" & strComments & "'" & "," & "'" & strAttending & "'" & "," & "'" & strAdultCount & "'" & "," & "'" & strChildCount & "'" & "," & "'" & strHotelRooms & "'" & "," & "'" & strDescendant & "'" & "," & "'" & strTShirt_Sm & "'" & "," & "'" & strTShirt_Med & "'" & "," & "'" & strTShirt_XL & "'" & "," & "'" & strTShirt_2XL & "'" & "," & "'" & strTShirt_3XL & "'" & "," & "'" & strTotalShirts & "'" & "," & "'" & strTotAttend & "'" & "," & "'" & strSubmit & "'" & "," & "'" & strField23 & "'" & "," & "'" & strTShirt_Large & "'" & "," & "'" & strReset & "'" & "," & "'" & strFName & "'" & ")" if Err = 0 then Response.Write("03158240") Else Response.Write("Error
" & CStr(Err.Source) & "
" & Err.Description & "
") End If %>
Back to My form