<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("Dholacademy_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Event_Booking", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(18) Dim arFormDBFields0(18) Dim arFormValues0(18) arFormFields0(0) = "SubjectOther2" arFormDBFields0(0) = "SubjectOther21" arFormValues0(0) = Request("SubjectOther2") arFormFields0(1) = "SubjectOther3" arFormDBFields0(1) = "SubjectOther31" arFormValues0(1) = Request("SubjectOther3") arFormFields0(2) = "SubjectOther4" arFormDBFields0(2) = "SubjectOther41" arFormValues0(2) = Request("SubjectOther4") arFormFields0(3) = "SubjectOther5" arFormDBFields0(3) = "SubjectOther51" arFormValues0(3) = Request("SubjectOther5") arFormFields0(4) = "SubjectOther6" arFormDBFields0(4) = "SubjectOther61" arFormValues0(4) = Request("SubjectOther6") arFormFields0(5) = "SubjectOther7" arFormDBFields0(5) = "SubjectOther71" arFormValues0(5) = Request("SubjectOther7") arFormFields0(6) = "SubjectOther8" arFormDBFields0(6) = "SubjectOther81" arFormValues0(6) = Request("SubjectOther8") arFormFields0(7) = "ContactRequested" arFormDBFields0(7) = "ContactRequested1" arFormValues0(7) = Request("ContactRequested") arFormFields0(8) = "SubjectOther9" arFormDBFields0(8) = "SubjectOther91" arFormValues0(8) = Request("SubjectOther9") arFormFields0(9) = "SubjectOther10" arFormDBFields0(9) = "SubjectOther101" arFormValues0(9) = Request("SubjectOther10") arFormFields0(10) = "SubjectOther11" arFormDBFields0(10) = "SubjectOther111" arFormValues0(10) = Request("SubjectOther11") arFormFields0(11) = "UserEmail0" arFormDBFields0(11) = "UserEmail01" arFormValues0(11) = Request("UserEmail0") arFormFields0(12) = "SubjectOther" arFormDBFields0(12) = "SubjectOther12" arFormValues0(12) = Request("SubjectOther") arFormFields0(13) = "SubjectOther0" arFormDBFields0(13) = "SubjectOther01" arFormValues0(13) = Request("SubjectOther0") arFormFields0(14) = "Type of Service0" arFormDBFields0(14) = "Type_of_Service01" arFormValues0(14) = Request("Type of Service0") arFormFields0(15) = "SubjectOther1" arFormDBFields0(15) = "SubjectOther13" arFormValues0(15) = Request("SubjectOther1") arFormFields0(16) = "Comments" arFormDBFields0(16) = "Comments1" arFormValues0(16) = Request("Comments") arFormFields0(17) = "Subject" arFormDBFields0(17) = "Subject1" arFormValues0(17) = Request("Subject") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type1" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name1" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp1" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name1" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "da_booking_form.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> DA Booking Form

DA Booking Form:-

DA Service Required      eg. Live Gig

Date of Event: DD/MM/YY

Time of Event: eg. 18.00 to 22.00

Number of Dhol Players Required eg. 10

   
Enter your requirements in details:

 Please enter the details about the event. eg what type of crowd is expected?

Personal / Organisation details:-

 Company Name:    

Last Name:             

First Name:             

Address 1st Line:    

Address 2nd Line:   

Address 3rd Line:    

Town / City:            

Country:                  

Post Code:                  

Telephone Number: eg. 0208 555 0000

e-mail:                      

Please contact me as soon as possible regarding this matter.