<%@LANGUAGE="VBSCRIPT"%> <% strError = "" sent = 0 If Request.QueryString("OP") = "VAL" Then txtName = Request.Form("TXTNAME") txtEmail = Request.Form("TXTEMAIL") txtCompany = Request.Form("TXTCOMPANY") txtTelephone = Request.Form("TXTTELEPHONE") txtFax = Request.Form("TXTFAX") txtAddress = Request.Form("TXTADDRESS") txtPostcode = Request.Form("TXTPOSTCODE") txtMessage = Request.Form("TXTMESSAGE") Mailing = Request.Form("MAILING") If txtName = "" OR txtEmail = "" OR txtCompany = "" OR txtPostcode = "" Then strError = "You must enter your name, company, email address and postcode.

Please go back and correct." Else Dim oMailer Set oMailer = Server.CreateObject("MailBee.SMTP") oMailer.LicenseKey = "MBC500-4E4EEE6C0E-0A4FD6A07A6FDD429BCE45A258C78F95" oMailer.ServerName = "smtp.star.co.uk" oMailer.Message.FromAddr = txtName & " <" & txtEmail & ">" oMailer.Message.Subject = "BOS Website Contact" oMailer.Message.BodyText = txtMessage & vbcrlf & vbcrlf & txtCompany & vbcrlf & txtTelephone & vbcrlf & txtFax & vbcrlf & txtAddress & vbcrlf & txtPostcode & vbcrlf & vbcrlf & "Subscribe to newsletter: " & Mailing oMailer.Message.BodyFormat = 0 oMailer.MakeAltBody oMailer.Message.ToAddr = "sales@bos-office-supplies.co.uk" If oMailer.SendtoQueue("D:\MailBeeQ") Then Sent = 1 Else Sent = 0 End If If oMailer.Connected Then oMailer.Disconnect End If End If If strError <> "" Then strMessage = strError Else strMessage = "Your email has been sent, thank you for you communication.

" End If End If %> BOS Office Supplies Barnsley, Sheffield, Doncaster Great Value Office Supplies Yorkshire Special Offer Office Supplies
<%If Request.QueryString("OP") <> "VAL" Then%> <%Else%> <%End If%>
 
Send us an email:
To help us with your enquiry, please complete your details below. (* These fields are mandatory)

Your email*
Name*
Company*
Enter n/a for individuals
Tel No
Fax No
Address
Post code*
Message
Accept email offersYes No
<%=strMessage%>
Home Page Product Range Special Offers Competitions Contact Us Green Issues Where to Find Us Page Our Doncaster Store Our Staff Page Terms & Conditions Our Staff Page