<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
if Request.Form("FFSubmitted") = "yes" then
Dim BodyString
Dim objCDO
Dim RedirectURL
Dim FormFields
Dim arrFormFields
FormFields = "Name~Address~City~State~Zip~Email~Phone~Comments"
If FormFields <> "" Then
arrFormFields = split(FormFields,"~")
End If
'Set objCDO = Server.CreateObject("CDONTS.NewMail")
' objCDO.From = "coreyhays@coreyhays.net"
' objCDO.To = "coreyhays@coreyhays.net"
' objCDO.Cc = ""
' objCDO.Bcc = ""
' objCDO.Subject = "Website Contact"
BodyString = Replace("Website Contact Request Form Details","~",chr(13) & chr(10) )& chr(13)
If FormFields <> "" Then
For Each item In arrFormFields
BodyString = BodyString & item & ": " & Request.Form(item) & chr(13)
Next
End If
'objCDO.Body = BodyString
'objCDO.BodyFormat = 1
'objCDO.MailFormat = 1
'objCDO.Send
'Set objCDO = Nothing
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = "Website Contact"
Mail.FromAddress= "contact@paytongraphics.com"
Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail
'Mail.AddRecipient "Lone Star Automotive.", "mark@lonestarautomotive.biz"'"mark@lonestarautomotive.biz"
Mail.AddRecipient "Web Dev Man", "rawpayton@hotmail.com"
Mail.Subject = "Website - Contact Request"
Mail.BodyText = BodyString
if Mail.SendMail then
Response.Write "Your mail has already been sent..."
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
RedirectURL = "confcontact.html"
If RedirectURL <> "" then
If Request.QueryString <> "" Then
response.redirect(RedirectURL & "?" & Request.QueryString)
else
response.redirect(RedirectURL)
end If
end if
end if
%>
Payton Graphics Contact
