<%@LANGUAGE="VBSCRIPT" lcid=2057%> <% response.buffer = true %> Licensing Training Glasgow, Scotland <% If len(request.form("submit"))>"0" then 'for each x in request.Form ' response.write x &": " &request.form(x) & "
" 'next 'response.end() Set objRec = Server.CreateObject("ADODB.Recordset") CALL OpenDB() objRec.Open "tblCustomer",DbConn, adOpenStatic, adLockPessimistic, adCmdTable objRec.AddNew objRec("ctid") = trim(request.form("ctid")) objRec("emailAdd") = trim(Replace(request.form("emailAdd"),"'","`")) If len(request.form("resit"))>"0" then objRec("resit") = CInt(request.form("resit")) End If objRec("conName") = trim(Replace(request.form("conName"),"'","`")) If len(request.form("plsp"))>"0" then objRec("plsp") = Cint(request.form("plsp")) End If If len(request.form("sf"))>"0" then objRec("sf") = Cint(request.form("sf")) End If objRec("Pub_Address") = trim(Replace(request.form("Pub_Address"),"'","`")) objRec("Pub_Address2") = trim(Replace(request.form("Pub_Address2"),"'","`")) objRec("Pub_Address3") = trim(Replace(request.form("Pub_Address3"),"'","`")) objRec("Pub_Address4") = trim(Replace(request.form("Pub_Address4"),"'","`")) objRec("postcode") = trim(Replace(request.form("postcode"),"'","`")) objRec("outletnumber") = trim(Replace(request.form("outletnumber"),"'","`")) objRec("fname1") = trim(Replace(request.form("fname1"),"'","`")) objRec("sname1") = trim(Replace(request.form("sname1"),"'","`")) objRec("add1a") = trim(Replace(request.form("add1a"),"'","`")) objRec("add2a") = trim(Replace(request.form("add2a"),"'","`")) objRec("add3a") = trim(Replace(request.form("add3a"),"'","`")) objRec("add4a") = trim(Replace(request.form("add4a"),"'","`")) objRec("postcodea") = trim(Replace(request.form("postcodea"),"'","`")) objRec("fname2") = trim(Replace(request.form("fname2"),"'","`")) objRec("sname2") = trim(Replace(request.form("sname2"),"'","`")) objRec("add1b") = trim(Replace(request.form("add1b"),"'","`")) objRec("add2b") = trim(Replace(request.form("add2b"),"'","`")) objRec("add3b") = trim(Replace(request.form("add3b"),"'","`")) objRec("add4b") = trim(Replace(request.form("add4b"),"'","`")) objRec("postcodeb") = trim(Replace(request.form("postcodeb"),"'","`")) objRec("rtime") = date objRec.Updatebatch objrec.close set objrec = nothing DBconn.close set DBConn = nothing '############# mail script ###################################### Dim objNewMail Set serverFields = Server.CreateObject("Scripting.Dictionary") Set objNewMail = Server.CreateObject("CDONTS.NewMail") objNewMail.To = "info@belendon.com" If Request.Form("Email") <> "" Then objNewMail.From = Request.Form("Email") Else objNewMail.From = "info@belendon.com" End If objNewMail.Subject = "booking enquiry" ' Send the e-mail messageText = "" messageText = messagetext & "Name: " & request.form("conName") & "" & chr(10) & chr(10) messageText = messagetext & "Course ID: " & request.form("ctid") & "" & chr(10) & chr(10) messageText = messagetext & "Log into the admin system to review the new request." objNewMail.Body = messageText objNewMail.Send Set controlFields = Nothing Set objNewMail = Nothing '################################################################ Response.redirect ("thankyou.asp") End If %>
Born in Scotland, Based in Scotland

Course Booking

">

Course:

Email Address
used for processsing booking:

 

Is this a re-sit?:

Contact Name:

 

Course Name:

 
Address

Address:

 

 

Postcode

Outlet Number

Delegate 1

First Name:

Surname:

Address:

 

 

 

Postcode

Delegate 2

First Name:

Surname:

Address:

 

 

 

Postcode

Finalize Request