 |
|
<%
If Request.QueryString("action") = "submitted" Then
'send mail
Set myMail = Server.CreateObject("JMail.SMTPMail")
myMail.ServerAddress = "mail.yourdomain.com" 'please specify your SMTP mail server
myMail.Sender = Request.Form("email")
myMail.SenderName = Request.Form("name")
myMail.AddRecipient "lynnholter@hotmail.com" 'change it to your email address
myMail.Subject = "You have a message!" 'change it to the appropriate subject title
myMail.Body = "Hello," & chr(13) & chr(13) _
& Request.Form("name") & " has sent you a message: " & chr(13) & chr(13) _
& "Email:" & Request.Form("email") & chr(13) & chr(13) _
& "City: " & Request.Form("city") & chr(13) & chr(13) _
& "State: " & Request.Form("state") & chr(13) & chr(13) _
& "CarNumber: " & Request.Form("carnumber") & chr(13) & chr(13) _
& "cardesc: " & Request.Form("cardesc") & chr(13) & chr(13) _
& "carhistory: " & Request.Form("carhistory") & chr(13) & chr(13) _
& "Question/comment:" & Request.Form("comments")
myMail.Execute
Set myMail = Nothing
'display the confirmation message
Response.Write "Thank you, " & Request.Form("name") & ", the message has been sent"
Else
%>
|
