|
|
|
|
|
|
|
<%
Dim sent, email
sent = false
if Request.Form("email") <>"" then
if Len(Request.Form("name")) <= "33" and Len(Request.Form("email")) <= "33" and Len(Request.Form("phone")) <= "33" and InStr(Request.Form("body"),"<")=0 then
if InStr(Request.Form("name"),"<")=0 and InStr(Request.Form("email"),"<")=0 and InStr(Request.Form("phone"),"<")=0 and InStr(Request.Form("body"),"<")= 0 then
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = Request.Form("email")
msg.FromName = Request.Form("name")
email = "info"
email = email & "@"
email = email & "healthgene.com"
msg.AddRecipient email
msg.Subject = "VET - Feedback:"
Body = "Email: " & Request.Form("email") & chr(13) & "Name: "& Request.Form("name") & chr(13) & "Phone: " & Request.Form("phone") & chr(13) & "Message: " & Request.Form("body")
msg.Body = Body
if msg.Send("mail.healthgene.com") then
sent =true
Response.write("You submitted: ")
Response.write("")
Response.write("")
Response.write("| Name: | ")
Response.write(" "&Request.Form("name") &" | ")
Response.write(" ")
Response.write("")
Response.write("| E-mail: | ")
Response.write(" "&Request.Form("email")&" | ")
Response.write(" ")
Response.write("")
Response.write("| Phone: | ")
Response.write(" "&Request.Form("phone") &" | ")
Response.write(" ")
Response.write("")
Response.write("| Message: | ")
Response.write(" "&Request.Form("body")&" | ")
Response.write(" ")
Response.write(" ")
Response.write("Thank you for your feedback
")
end if
else
Response.Write("Invalid data")
end if
else
Response.Write("Invalid data")
end if
end if
if sent = false then
Response.write("Questions and Comments")
Response.write("")
end if
%>
|
|
|