<%@ Language=VBScript %>
<%
dim Name, Phone, Email, Comment
if Request.Form("Send") = "True" then
Name = Request.Form("Name")
Phone = Request.Form("Phone")
Email = Request.Form("Email")
Comment = Request.Form("Comment")
FieldName = "Sender Name"
RequiredField = True
Call Validator(Name)
if Continue = True then
FieldName = "Phone"
RequiredField = True
Call Validator(Phone)
end if
if Continue = True then
FieldName = "Email"
RequiredField = True
EmailField = True
Call Validator(Email)
end if
if Continue = True then
FieldName = "Comment"
RequiredField = True
FieldLength = 5000
Call Validator(Comment)
end if
if Continue = True then
MailFromName = Request.Form("Name")
if Request.Form("Email") > "" then
MailFromAddress = Request.Form("Email")
end if
MailSubject = "digidak.com RFC"
MailBody = Request.Form("Phone") & vbCrLf
MailBody = MailBody & Request.Form("Email") & vbCrLf & vbCrLf
MailBody = MailBody & Request.Form("Comment")
Call MailThis
if MailStatus = True then
Message = "Your message has been sent."
Name = ""
Phone = ""
Email = ""
Comment = ""
end if
end if
end if
%>
Contact eDNA
Please submit the form below for more information.
