<%@LANGUAGE="VBSCRIPT"%>
<%
dim errmsg
dim dspName
dim dspEmail
dim dspPhone
dim dspComment
if request.Form("Submit") = "Submit" then
dspName = request.Form("txtName")
dspEmail = request.Form("txtEmail")
dspPhone = request.Form("txtPhone")
dspComment = request.form("txtComment")
else
dspName = ""
dspEmail = ""
dspPhone = ""
dspComment = ""
end if
%>
<%
if request.Form("Submit") = "Submit" then
select case true
case request.Form("txtName") = ""
errmsg = "Please fill in your name"
case request.Form("txtEmail") = ""
errmsg = "Please fill in your email address"
case request.Form("txtPhone") = ""
errmsg = "Please fill in your contact phone number"
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 = "Contact us request from the qcglp.com.com website"
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = msgFrom
objMail.Subject = msgSubject
'objMail.To = "gwoodstrom@woodborne.com"
objMail.To = "mikevineyard@qualitec.com"
mailBody = vbcrlf & " A contact us request has been submitted:" & vbcrlf & vbcrlf
mailbody = mailbody & " Name: " & request.Form("txtName") & vbcrlf
mailbody = mailbody & " Email Address: " & request.Form("txtEmail") & vbcrlf
mailbody = mailbody & " Phone: " & request.Form("txtPhone") & vbcrlf
mailbody = mailbody & " Question/Comment: " & request.Form("txtComment") & vbcrlf
objMail.TextBody = mailBody
objmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net"
objmail.Configuration.Fields.Update
objMail.send
set objMail = nothing
errmsg = "Message Sent. Thank you."
end if
end if
%>
Contact Houston's Leading Oil and Gas Recruiters, Qualitec Consulting Group
