<%@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 address"
end select
end if
%>
<%
dim sendUrl
dim smtpUrl
dim objConfig
dim objMail
dim msgFrom
dim msgSubject
dim mailBody
if request.Form("Submit") = "Submit" then
if errmsg = "" then
msgFrom = "Request@Austingrp.com"
msgSubject = "Contact us request from the qcolp.com website"
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = msgFrom
objMail.Subject = msgSubject
'objMail.To = "gwoodstrom@woodborne.com"
objMail.To = "ecagle@qcolp.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 = "Thank you for your enquiry, we will respond promptly"
end if
end if
%>
Contact Qualitec Coating and Optics, Houston | 281-600-8195 | Thin Film Coating Scientists Engineers for Research and Development | Thin Film Process Engineers Manufacturers | Optical Design Engineers | Optical Systems Engineers
