contact us
rimo designs the great northern development 273 deansgate manchester m3 4ew UK | <% #If Request.Form.Count> 0 Then #Dim oMail, sBody, item, oElement, iFormElementCounter #oElements = Array("Name", "Phone Number", "Email Address", "Query") #Set oMail = Server.createobject("CDONTS.NewMail") #oMail.To = "jim@intrexa.co.uk" #oMail.Subject = "Information Enquiry From Website" #oMail.From = "info@intrexa.co.uk" & "(" & Request.Form("name") & " via Intrexa Systems)" #sBody = "The `contact us` form on your website has just been filled out with the following information:" & VbCrLf #For iFormElementCounter = 0 To UBound(oElements) #sBody = sBody & oElements(iFormElementCounter) & ":- " & VbCrLf & " " & Replace(Request.Form(oElements(iFormElementCounter) ),VbCrLf,VbcRLf & " ") & VbCrLf & VbCrLf #Next #oMail.Body = sBody #oMail.Send #Response.Write "Thank you for entering your enquiry - your information has been sent to us, and we will contact you shortly." #Set oMail = Nothing #Else %><% End If %> |
| |