%
if ucase(Request.ServerVariables("REQUEST_METHOD"))= "POST" then
fName = Request.Form("fName")
lName = Request.Form("lName")
address1 = Request.Form("address1")
address2 = Request.Form("address2")
city = Request.Form("city")
zipCode = Request.Form("zipCode")
email = Request.Form("email")
phone = Request.Form("phone")
country = Request.Form("country")
comments = Request.Form("comments")
Dim Body
Body = Body & "First Name: " & fName & "
"
Body = Body & "Last Name: " & lName & "
"
Body = Body & "Address1: " & address1 & "
"
Body = Body & "Address2: " & address2 & "
"
Body = Body & "City: " & city & "
"
Body = Body & "Post Code: " & zipCode & "
"
Body = Body & "Email Address: " & email & "
"
Body = Body & "Telephone: " & phone & "
"
Body = Body & "Country: " & country & "
"
Body = Body & "Comments: " & comments & "
"
'Code for sending Email
Set contactEmail = CreateObject("CDO.Message")
contactEmail.Subject = "Customer Contact: " &fName&" "&lName
contactEmail.From = email
contactEmail.To = "co-ordinator@resource-medical.co.uk"
contactEmail.HTMLBody = Body
contactEmail.Send
set contactEmail = nothing
Response.Redirect("contactcomplete.asp")
end if
%>
![]() |
|
![]() |
|||||||||||||||||||
![]() |
|||||||||||||||||||||
|
For more information, query or you may wish to make a suggestion, please fill the following form:
|
|||||||||||||||||||||
|
|
|||||||||||||||||||||
|
2006 © Copyright Resource Medical UK Ltd. All Rights Reserved.
|
|||||||||||||||||||||