Pixelhaus Studios: Contact us

<% ContactName = Request.Form("ContactName") FromEmail = Request.Form("ContactEmail") ContactNumber = Request.Form("ContactNumber") ContactEmail = Request.Form("ContactEmail") FindUs = request.Form("FindUs") Enquiry = Request.Form("Enquiry") ToEmail = "studio@pixelhaus.co.uk" Subject = "Contact Me" Body = "This is an email sent via the web site" & vbCrLf Body = Body & "" & vbCrLf Body = Body & "Contact Name: "&ContactName&"" & vbCrLf Body = Body & "" & vbCrLf Body = Body & "Contact Number: "&ContactNumber&"" & vbCrLf Body = Body & "" & vbCrLf Body = Body & "Contact Email: "&ContactEmail&"" & vbCrLf Body = Body & "" & vbCrLf Body = Body & "Find Us: "&FindUs&"" & vbCrLf Body = Body & "" & vbCrLf Body = Body & "Enquiry: "&Enquiry&"" & vbCrLf Body = Body & "" & vbCrLf If Len(Request("Action")) > 0 Then Select Case Request("Action") Case "SendEnquiry" If ToEmail = "" OR FromEmail = "" OR Subject = "" OR Body = "" Then Msg = "Sorry but we have noticed that you have not filled out the form correctly." Else Set objMessage = CreateObject("CDO.Message") objMessage.Subject = ""&Subject&"" objMessage.From = ""&FromEmail&"" objMessage.To = ""&ToEmail&"" objMessage.TextBody = ""&Body&"" objMessage.Send If Error = "" Then Msg = "Your enquiry has been sent" Else Msg = "Sorry there has been a problem sending your enquiry" End If End If End Select End If %> Pixelhaus Studios: Contact us

Contact us

Pixelhaus Studios
Applegarth House
Verwood Road
Woodlands
Wimborne
Dorset
BH21 8LJ

Telephone 01202 824290
Facsimile 01202 824290

If you are visiting the studio, please click here for a map showing our location.

<% If Msg <> "" Then %>

<%=Msg%>

<% End If %>