<%@ LANGUAGE= VBScript %> <% if (Request.Form("Submit")="Send your Enquiry") then const smtpserver = "127.0.0.1; dispatch.mail.gxn.net" 'const merchantemail = "ellamay@ukonline.co.uk" const merchantemail = "ellamay@ukonline.co.uk" const testmail = "richard.locke@esterling.co.uk" const merchantsubject = "Commutta Covers Website Enquiry" dim message dim name,add1,add2,add3,postcode,phone,mobile,email,body,bikemake,bikemodel message="" 'get fields from form name=Request.Form("name")&"" add1=Request.Form("address1")&"" add2=Request.Form("address2")&"" add3=Request.Form("address3")&"" postcode=Request.Form("postcode")&"" phone=Request.Form("telephone")&"" mobile=Request.Form("mobile")&"" if Request.form("email") <>"" then email=Request.form("email")&"" else email=merchantemail end if body=Request.form("main")&"" bikemake=Request.form("bikemake")&"" bikemodel=Request.form("bikemodel")&"" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = smtpserver 'Send to eSterling thedate= Now() Mail.From = email ' From address Mail.AddAddress merchantemail Mail.Addbcc testmail Mail.Subject = merchantsubject message=message & "Date " & thedate & vbNewline message=message & "Please Action this enquiry: " & vbNewline & vbNewline message=message & "Name: " & name & vbNewline message=message & "Address: " & add1 & vbNewline message=message & " " & add2 & vbNewline message=message & " " & add3 & vbNewline message=message & "Postcode " & postcode & vbNewline message=message & "Tel: " & phone & vbNewline message=message & "Mobile: " & mobile & vbNewline message=message & "Email: " & email & vbNewline & vbNewline message=message & "Bike Make: " & bikemake & vbNewline message=message & "Bike Model: " & bikemodel & vbNewline & vbNewline message=message & "Enquiry: " & body & vbNewline & vbNewline & vbNewline message=message & "End of enquiry" Mail.Body=message strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message if err=0 then response.redirect "thanks.htm" else Response.Write("Sorry there was a problem sending your enquiry
" & err & ": " & err.Description) end if set Mail = Nothing end if %> Vespa Cover & Scooter Rain Cover | Scooter Covers | Piaggio Covers
Scooter Covers
Scooter CoverSize GuideScooter CoversContact Us
 
Your Details

Name

Telephone

Address

Mobile

 

e-mail

 

Scooter Make

Postcode

Scooter Model


Your Enquiry

Subject

Comments / Requests

 
 
 
Commutta Covers ¦ T:(01782) 857393¦ M: 07787 573729 E: enquiries@commutta.co.uk

Internet Marketing by eSterling Ltd

Resources | Vespa Cover | Scooter Cover