|
|
Welcome
to Online Client Services!
<%
Dim strName
Dim strCompanyName
Dim strAddress
Dim strCity
Dim strState
Dim strZip
Dim strPhone
Dim strMessage
Dim stremail
strName = Request.Form("name")
strCompanyName= Request.Form("companyname")
strAddress= Request.Form("address")
strCity= Request.Form("city")
strState= Request.Form("state")
strZip= Request.Form("zip")
strPhone= Request.Form("phone")
strMessage= Request.Form("message")
stremail= Request.Form("email")
If request("submit") <> "" THEN
Dim oMail
Set oMail = server.CreateObject("MEMail.Message")
oMail.MailFrom = "form@zcss.net"
oMail.MailFromDisplayName = "Hinman Company Website Client Contact Form"
oMail.MailTo = "michelleb@hinmancompany.com"
oMail.Subject = Request("subject")
oMail.MessageBody = "Email sent at " & Now() & vbcrlf _
& "When Responding to This Form, Copy and Paste the Email Address Into the TO: Area - Do Not Click the Reply Button" & vbcrlf & vbcrlf _
& "By: " & strName & vbcrlf _
& "Email: " & Request("email") & vbcrlf _
& "-----------------------------------------------------------" & vbcrlf & vbcrlf _
& "Company Name: " & strCompanyName & vbcrlf _
& "Message: " & strMessage & vbcrlf
oMail.SendMessage
'Response.Write("Message Sent")
Response.Redirect("success.asp")
Else
%>
<%
End If
%>
|
