| MyOzoneStore | CONTACT US | |||||||||
| HOME > CONTACT US | |||||||||
Contact Us We are here to help! Whether you need assistance with your new system, have questions about our industrial systems or about volume purchasing or shipping,
or simply want to know more about us and our products. We make every effort to answer all questions fast and completely. No client or order is too small or unimportant! Contact Form <% if Len(Request.Form("email"))>0 then Dim strBOD strBOD = "Name: " & Request.Form("sender") & vbCrLf _ & "Email: " & Request.Form("email") & vbCrLf _ & "Phone: " & Request.Form("phone") & vbCrLf _ & "Location: " & Request.Form("country") & vbCrLf if Len(Request.Form("invoice"))>0 Then strBOD = strBOD & "Order Invoice: " & Request.Form("invoice") & vbCrLf if Len(Request.Form("refmethod"))>0 Then strBOD = strBOD & "Marketing: " & Request.Form("refmethod") & vbCrLf strBOD = strBOD & "Submitted On: " & Now & vbCrLf & vbCrLf _ & "Subject: " & Request.Form("subject") & vbCrLf & vbCrLf _ & "Comments: " & vbCrLf & Request.Form("comment") Dim aCDO aCDO = "http://schemas.microsoft.com/cdo/configuration/" Dim objCFG Set objCFG = Server.CreateObject("CDO.Configuration") objCFG.Fields.Item(aCDO & "sendusing") = 2 objCFG.Fields.Item(aCDO & "smtpserver") = "gateway.insightbb.com" objCFG.Fields.Item(aCDO & "smtpserverport") = 25 objCFG.Fields.Item(aCDO & "smtpconnectiontimeout") = 60 objCFG.Fields.Update Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") objCDO.Configuration = objCFG objCDO.From = Request.Form("email") objCDO.To = "gregklopper@insightbb.com" objCDO.Subject = "Web Contact Form -- " & Request.Form("subject") objCDO.TextBody = strBOD objCDO.Fields.Item("urn:schemas:mailheader:importance").Value = "high" objCDO.Fields.Item("urn:schemas:mailheader:priority").Value = 1 objCDO.Fields.Update 'on error resume next objCDO.Send 'if ASPError.Number<>0 Then Response.write "Error: " & ASPError.ASPDescription & "@" & ASPError.Line Set objCDO = Nothing Set objCFG = Nothing %>Your request has been sent! Thank you for taking the time to contact us. Someone will be in touch with you as soon as possible. Our local time is <%=dateadd("h",3,Now)%> EST <% Else %> <% End If %>
|
|||||||||