<%@LANGUAGE="VBSCRIPT"%>
<%
dim errmsg
dim dspName
dim dspPhone
dim dspEmail
if request.Form("Submit") = "Submit" then
dspName = request.Form("txtName")
dspPhone = request.Form("txtPhone")
dspEmail = request.Form("txtEmail")
else
dspName = ""
dspPhone = ""
dspEmail = ""
end if
%>
<%
if request.Form("Submit") = "Submit" then
select case true
case request.Form("txtName") = ""
errmsg = "Please fill in your name"
case request.Form("txtPhone") = ""
errmsg = "Please fill in your phone number"
case request.Form("txtEmail") = ""
errmsg = "Please fill in your email"
end select
end if
%>
<%
dim objMail
dim msgFrom
dim msgSubject
dim mailBody
if request.Form("Submit") = "Submit" then
if errmsg = "" then
msgFrom = request.Form("txtEmail")
msgSubject = "Request for Skynet Engineering Information"
Set objMail = Server.CreateObject("JMail.Message")
objMail.ISOEncodeHeaders = False
objMail.From = msgFrom
objMail.Subject = msgSubject
objMail.AddRecipient "gwoodstrom@woodborne.com"
'objMail.AddRecipient "info@skynetwisp.com"
mailBody = vbcrlf & " A Request for Skynet Engineering information has been requested:" & vbcrlf & vbcrlf
mailbody = mailbody & " Contact Name: " & request.Form("txtName") & vbcrlf
mailbody = mailbody & " Company: " & request.Form("txtCompany") & vbcrlf
mailbody = mailbody & " Contact Phone: " & request.Form("txtPhone") & vbcrlf
mailbody = mailbody & " Contact Cell Phone: " & request.Form("txtCellPhone") & vbcrlf
mailbody = mailbody & " Contact Email: " & request.Form("txtEmail") & vbcrlf
mailbody = mailbody & " Comments: " & request.Form("txtComments")& vbcrlf
objMail.Body = mailBody
objMail.Priority = 3
objMail.send("localhost")
set objMail = nothing
errmsg = "Thank you for your enquiry"
end if
end if
%>
Skynet Engineering | Contact Us for Broadband Wireless WISP Construction Services
