<% if Request("name")<>"" then Dim ObjSendMail Dim iConf Dim Flds Set ObjSendMail = Server.CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 '**** Path below may need to be changed if it is not correct Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" Flds.Update Set ObjSendMail.Configuration = iConf ObjSendMail.To = "fernando@nsprlab.net; lfrivera@anexogroup.com;" ObjSendMail.BCC = "aki.perez@hotmail.com;" ObjSendMail.Subject = "Insco Temperature Web Contact Request" ObjSendMail.From = "info@inscotemperature.com" MyBody = "" MyBody = MyBody & "" MyBody = MyBody & "" MyBody = MyBody & "" MyBody = MyBody & "The following information was submited from the Insco Website:
" MyBody = MyBody & "Contact Form" & "
" MyBody = MyBody & "" MyBody = MyBody & " Name: " & Request.Form("name") & "
" MyBody = MyBody & " Company: " & Request.Form("company") & "
" MyBody = MyBody & " E-mail: " & Request.Form("email") & "
" MyBody = MyBody & " Position: " & Request.Form("position") & "
" MyBody = MyBody & " Telephone Number: " & Request.Form("tel") & "
" MyBody = MyBody & " Message: " & Request.Form("message") & "
" MyBody = MyBody & "" MyBody = MyBody & "" MyBody = MyBody & "" ObjSendMail.HTMLBody = MyBody ObjSendMail.Send Set ObjSendMail = Nothing response.redirect("http://www.inscotemperature.com/thanks.html") end if %> INSCO - The Leader in Temperature Calibration Products :: Contact Us

Customer Service
INSCO
281 Piñero Avenue,
San Juan PR 00927
Tel. (787) 765-5564
info@insco.us
Live Chat Chat

Request For Information

Name
Company Name
E-mail
Position
Telephone Number
Message