|
|
|
Tel: (015) 296 2811 Fax:
(015) 296 2811
PO Box 20 FaunaPark
Polokwane 0700
|
<%
action = request("Action")
if action = 1 then
Dim c
Set c = server.CreateObject("CDO.Configuration")
c.Fields.Item(cdoSendUsingMethod) = 2
c.Fields.Item(cdoSMTPServer) = "196.22.194.32"
c.Fields.Update
Dim s
Set s = server.CreateObject("CDO.Message")
s.Configuration = c
s.From = "guy@polokwane.info"
s.To = "info@polokwane.info"
s.HTMLBody = request.form("Contact_FullName")+vbcr+vbnl+request.form("Contact_Title")+vbcr+vbnl+request.form("Contact_StreetAddress")+vbcr+vbnl+request.form("Contact_Address2")+vbcr+vbnl+request.form("Contact_City")+vbcr+vbnl+request.form("Contact_State")+vbcr+vbnl+request.form("Contact_ZipCode")+vbcr+vbnl+request.form("Contact_Country")+vbcr+vbnl+request.form("Contact_WorkPhone")+vbcr+vbnl+request.form("Contact_HomePhone")+vbcr+vbnl+request.form("Contact_FAX")+vbcr+vbnl+request.form("Contact_Email")+vbcr+vbnl+request.form("Comments")
s.Subject = "message_from_polokwane_site"
s.Send
response.redirect("thanks.htm")
end if
%>
|
|
|
|
|
