BOS Office Supplies Barnsley, Sheffield, Doncaster Great Value Office Supplies Yorkshire Special Offer Office Supplies

<%@LANGUAGE="VBSCRIPT"%> <% If Request.QueryString("OP") = "VAL" Then txtName = Request.Form("TXTNAME") txtSurName = Request.Form("TXTSURNAME") txtEmail = Request.Form("TXTEMAIL") txtCompany = Request.Form("TXTCOMPANY") txtPostcode = Request.Form("TXTPOSTCODE") txtPhone = Request.Form("TXTPHONE") If txtName = "" OR txtEmail = "" OR txtSurname = "" OR txtCompany = "" OR txtPhone = "" OR txtPostcode = "" Then strError = "You must enter data into all the fields.

Please go back and correct." Else Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Dim oMailer Set oMailer = Server.CreateObject("MailBee.SMTP") oMailer.LicenseKey = "MBC500-4E4EEE6C0E-0A4FD6A07A6FDD429BCE45A258C78F95" oMailer.ServerName = "smtp.star.co.uk" oMailer.Message.FromAddr = txtName & " " & txtSurName & " <" & txtEmail & ">" intMonthNumber = DatePart("m", Date) If Len(intMonthNumber) < 2 Then intMonthNumber = "0" & intMonthNumber oMailer.Message.Subject = "BOS Competition Entry - " & DatePart("yyyy", Date) & intMonthNumber oMailer.Message.BodyText = "Email: " & txtEmail & vbcrlf & "Name: " & txtName & " " & txtSurname & vbcrlf & "Company: " & txtCompany & vbcrlf & "Telephone: " & txtPhone & vbcrlf & "Postcode: " & txtPostcode oMailer.Message.BodyFormat = 0 oMailer.MakeAltBody oMailer.Message.ToAddr = "win@bos-office-supplies.co.uk" If oMailer.SendtoQueue("D:\MailBeeQ") Then Sent = 1 Else Sent = 0 strError = "Your competition entry could not be sent,
sorry.

" End If If oMailer.Connected Then oMailer.Disconnect End If End If If strError <> "" Then strMessage = strError Else strMessage = "Your competition entry has been sent,
thank you.

" End If Else End If %> BOS Office Supplies Barnsley, Sheffield, Doncaster Great Value Office Supplies Yorkshire Special Offer Office Supplies

<%If Request.QueryString("OP") <> "VAL" Then%>

First Name & Last Name *

Company/Organisation *

Post Code *

Telephone *

Email *

* Denotes a mandatory field

You will be notified by email of the winners name
shortly after the month end. No purchase necessary. The
prize will usually be delivered by our own transport free
of charge to a valid address. The prize will be awarded
to the Company/Organisation, not the individual
(subject to details being valid).

<%Else%>

<%=strMessage%>

<%End If%>