|
|
|
|
|
<%
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
%>
<%
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 & " Product | "
strBody = strBody & " : | "
strBody = strBody & HdnOPDesc
strBody = strBody & " | "
' strBody = strBody & " Price | "
' strBody = strBody & " : | "
' strBody = strBody & HdnOPAmt
' strBody = strBody & " | "
Else
strBody = strBody & " Category | "
strBody = strBody & " : | "
strBody = strBody & SelRCategory
strBody = strBody & " | "
End If
strBody = strBody & " Name | "
strBody = strBody & " : | "
strBody = strBody & txtRYour_Name
strBody = strBody & " | "
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 & " "
strBody = strBody & txtOWeb_Site
strBody = strBody & " | "
strBody = strBody & " Phone "
strBody = strBody & " Number | : "
strBody = strBody & " | "
strBody = strBody & TelRPhone_Number
strBody = strBody & " | Mobile "
strBody = strBody & " | : | "
strBody = strBody & " "
strBody = strBody & TelOMobile_Number
strBody = strBody & " | Mailing "
strBody = strBody & " Address (City, State, ZIP & Country) | "
strBody = strBody & " : | "
strBody = strBody & " "
strBody = strBody & txtRCityState_and_ZIP
strBody = strBody & " | "
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
%> |
|
|
|
|
|