%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' Chect to see if form already submitted
If request("hfield")=3 then
Dim sendto
Dim from
Dim message
Dim subject
sendto = "JM2674@msn.com"
from = request.Form("email")
subject = "Web Site Inquiry"
message = "Name:" + request.Form("Name") & vbCrLf & "Email ID:" + request.Form("email")
message = message & vbCrLf & "Phone:" + request.Form("phone")
message = message & vbCrLf & "message:" + request.Form("message")
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = sendto
mail.Bcc = "5168070354@messaging.nextel.com"
mail.From = from
mail.Subject = subject
mail.Body = message
mail.Send
Set mail = Nothing
x = "Thank you"
Else
If request("hfield")=3 then
'IF THE EMAIL DOES NOT EXIST WE TELL THE BELOW
x = "Error: Please Contact info@transponderkeys.net"
Else
x = ""
End If
End If
%>
JCS Automotive Locksmiths - Contact Us
CONTACT US
Introducing high security keys by
code!!
<% if x = "Thank you" then %>
Your request has been processed. We will contact you shortly.