<% Dim strPDesc Dim strType Dim strTitleDisplay Dim strPId Function GetProductDescPrice() strPId = Request.QueryString("PId") Select Case strPId Case "P01" strPDesc="Autoclaves - Rectangular" Case "P02" strPDesc="Autoclaves - Cylinderical" Case "P03" strPDesc="Autoclaves - Vertical" Case "P04" strPDesc="Autoclaves - Single Drum" Case "P11" strPDesc="O.T.Tables - Super Delux Motorized Table" Case "P12" strPDesc="O.T.Tables - Major Table" Case "P13" strPDesc="O.T.Tables - Delux Table" Case "P14" strPDesc="O.T.Tables - Ortho Table" Case "P21" strPDesc="O.T.Lights" End Select End Function If Request.QueryString("Type")="O" Then strType = "Place Order" strTitleDisplay = "Place Order" Call GetProductDescPrice() ElseIf Request.QueryString("Type")="Q" Then strType = "Request Quote" strTitleDisplay = "Request Quote" Call GetProductDescPrice() ElseIf Request.QueryString("Type")="E" Then strType = "Enquiry" strTitleDisplay = "Online Enquiry Form" Else strType = "Enquiry" strTitleDisplay = "Online Enquiry Form" End If Response.Write strTitleDisplay %>
<% Dim StrAction StrAction=Request.Form("HdnoAction") If StrAction="" Then %>
 
&PId=<%=Request.QueryString("PId")%>"> "> <%If strType="Enquiry" Then %> <%Else%> <%End If%>
Category *
:
Product
:
<%=strPDesc%>
Your Name *
:
E-Mail Address *
:
Phone Number *
:
Mobile :
Company Name
:
Web site
:
Mailing Address *
(City, State,
ZIP & Country)
:
How can we assist you?
(More information)
:
Note: We will be sending a copy to your e-mail address. Hence please enter valid email address.
<% ElseIf Request.Form("HdnOAction")="Send" Then Dim SelRCategory Dim txtRYour_Name Dim txtOCompany Dim EmlREMail_Address Dim TelRPhone_Number Dim TelOMobile_Number Dim txtRCityState_and_ZIP Dim txtOAssistDesc SelRCategory = Request.Form("SelRCategory") txtRYour_Name = Request.Form("txtRYour_Name") txtOCompany = Request.Form("txtOCompany") EmlREMail_Address = Request.Form("EmlRE-Mail_Address") TelRPhone_Number = Request.Form("TelRPhone_Number") TelOMobile_Number = Request.Form("TelOMobile_Number") txtOWeb_Site = Request.Form("txtOWeb_Site") txtRCityState_and_ZIP = Request.Form("txtRCity,State_and_ZIP") txtOAssistDesc = Request.Form("txtOAssistDesc") Dim HdnOPDesc Dim HdnOPAmt Dim StrSubject strType = Request.Form("HdnOType") If strType="O" Then StrSubject="Hoslab - Online Order Placement by "& txtRYour_Name HdnOPDesc = Request.Form("HdnOPDesc") HdnOPAmt = Request.Form("HdnOPAmt") StrSMSBody = "ORDER Placed..Prod=" & HdnOPDesc &",P="& HdnOPAmt &",Nm="&txtRYour_Name&",Comp="& txtOCompany & ",Mail="&EmlREMail_Address &",Web="& txtOWeb_Site &",Tel="&TelRPhone_Number &",Fax="& TelOMobile_Number &",Add="& txtRCityState_and_ZIP &",Txt="& txtOAssistDesc &"" ElseIf strType="Q" Then StrSubject="Hoslab - Online Quote Request by "& txtRYour_Name HdnOPDesc = Request.Form("HdnOPDesc") HdnOPAmt = Request.Form("HdnOPAmt") StrSMSBody = "QUOTE REQ..Prod=" & HdnOPDesc &",P="& HdnOPAmt &",Nm="&txtRYour_Name&",Comp="& txtOCompany & ",Mail="&EmlREMail_Address &",Web="& txtOWeb_Site &",Tel="&TelRPhone_Number &",Fax="& TelOMobile_Number &",Add="& txtRCityState_and_ZIP &",Txt="& txtOAssistDesc &"" ElseIf strType="E" Then StrSubject="Hoslab - Online Enquiry by "& txtRYour_Name StrSMSBody = "ENQUIRY..Cat=" & SelRCategory &",Nm="&txtRYour_Name&",Comp="& txtOCompany & ",Mail="&EmlREMail_Address &",Web="& txtOWeb_Site &",Tel="&TelRPhone_Number &",Fax="& TelOMobile_Number &",Add="& txtRCityState_and_ZIP &",Txt="& txtOAssistDesc &"" Else StrSubject="Hoslab - Online Enquiry by "& txtRYour_Name StrSMSBody = "ENQUIRY..Cat=" & SelRCategory &",Nm="&txtRYour_Name&",Comp="& txtOCompany & ",Mail="&EmlREMail_Address &",Web="& txtOWeb_Site &",Tel="&TelRPhone_Number &",Fax="& TelOMobile_Number &",Add="& txtRCityState_and_ZIP &",Txt="& txtOAssistDesc &"" End If Dim StrBody Dim StrSMSBody strBody =" Dear " strBody = strBody & txtRYour_Name If strType="O" Then strBody = strBody & " ,

Thank you very much for placing an order with us. Below is the information provided by you.

" ElseIf strType="Q" Then strBody = strBody & " ,

Thank you very much for requesting a quote from us. Below is the information provided by you.
" ElseIf strType="E" Then strBody = strBody & " ,

Thank you very much for placing your enquiry. Below is the information provided by you.
" Else strBody = strBody & " ,

Thank you very much for placing your enquiry. Below is the information provided by you.
" End If strBody = strBody & "
" strBody = strBody & "
" strBody = strBody & " " strBody = strBody & " " If strType="O" OR strType="Q" Then strBody = strBody & " " strBody = strBody & " " ' strBody = strBody & " " ' strBody = strBody & " " Else strBody = strBody & " " strBody = strBody & " " End If strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "
     Product
:
" strBody = strBody & HdnOPDesc strBody = strBody & "
     Price
:
" ' strBody = strBody & HdnOPAmt ' strBody = strBody & "
     Category
:
" strBody = strBody & SelRCategory strBody = strBody & "
     Name
:
" strBody = strBody & txtRYour_Name strBody = strBody & "
     Company Name
:
" strBody = strBody & "
" strBody = strBody & txtOCompany strBody = strBody & "
     E-Mail Address " strBody = strBody & "
:
" strBody = strBody & EmlREMail_Address strBody = strBody & "
     Web " strBody = strBody & " site
:
" strBody = strBody & txtOWeb_Site strBody = strBody & "
     Phone " strBody = strBody & " Number
:
" strBody = strBody & "
" strBody = strBody & TelRPhone_Number strBody = strBody & "
     Mobile " strBody = strBody & "
:
" strBody = strBody & TelOMobile_Number strBody = strBody & "
     Mailing " strBody = strBody & " Address
     (City, State, ZIP & Country)
:
" strBody = strBody & txtRCityState_and_ZIP strBody = strBody & "
     How " strBody = strBody & " can we assist you?
     (More " strBody = strBody & " information)
" strBody = strBody & "
:
" strBody = strBody & txtOAssistDesc strBody = strBody & "


" strBody = strBody & " We've received your information and our support team will reach you soon shortly. For any immediate queries, please reach us at" strBody = strBody & " +91 - 44 - 24364524 / hoslab@hoslabengg.com.
" strBody = strBody & "
Thanking you.

Regards,
Support Team - Hoslab Engineering Pvt Ltd
" strBody = strBody & "
www.hoslabengg.com

" 'Response.Write StrSMSBody 'Response.Write "
" 'Response.Write strBody 'Response.End StrSenderEmailId = EmlREMail_Address '///////////////////////////////////////////////////// '//// To send to requested person StrCC = "hoslab@hoslabengg.com" StrBCC = "hoslab@hoslabengg.com" Call CDONTSMailSubroutine(StrBody,"hoslab@hoslabengg.com",StrSenderEmailId,StrSubject,True) '///////////////////////////////////////////////////// '''FOR SENDING SMS StrCC = "" StrBCC ="" Call CDONTSMailSubroutine(StrSMSBody,"hoslab@hoslabengg.com","",StrSubject,False) Sub CDONTSMailSubroutine(body,fromemailid,toemailid,subject,isHTML) Dim strHost strHost = "mail.hoslabengg.com" On Error Resume Next ' catch errors Dim mymail, iConf, Flds, vSub, schema Set mymail = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' sending email with Google Apps Premium SMTP server (with autentication) schema = "http://schemas.microsoft.com/cdo/configuration/" Flds.Item(schema & "sendusing") = 2 Flds.Item(schema & "smtpauthenticate") = 1 Flds.Item(schema & "smtpserverport") = 25 Flds.Item(schema & "smtpserver") = "mail.hoslabengg.com" 'Flds.Item(schema & "sendusername") = "support@megadreamssoft.com" 'Flds.Item(schema & "sendpassword") = "sup1098" Flds.Item(schema & "sendusername") = "hoslab@hoslabengg.com" Flds.Item(schema & "sendpassword") = "HL!@Chennai2021!@" 'old pwd : Pass2010!@ Flds.Update mymail.From = "hoslab@hoslabengg.com" mymail.To = toemailid mymail.CC=StrCC mymail.BCC=StrBCC & ",prabhu.thiruvengadam@gmail.com,hoslab@hoslabengg.com" mymail.Subject= subject mymail.HTMLBody = body set mymail.Configuration = iConf mymail.Send If Err <> 0 Then ' error occurred Response.Write Err.Description Response.End End If Set mymail=Nothing set iConf = nothing set Flds = nothing End Sub %>
     
  Thank you very much. A copy of your request information has been mailed to you.  
  Our support team will reach you soon.  
   
<% End IF %>

 

Copyright © Hoslab Engineering Pvt Ltd. Developed and hosted by Megadreams Software Solutions.