 |
| Name of Company | "
btext = btext & request.form("name")
btext = btext & " |
| Address of Company | "
btext = btext & request.form("add")
btext = btext & " |
| Contact Person | "
btext = btext & request.form("person")
btext = btext & " |
| Designation | "
btext = btext & request.form("desi")
btext = btext & " |
| Phone No. | "
btext = btext & request.form("phone")
btext = btext & " |
| Fax | "
btext = btext & request.form("fax")
btext = btext & " |
| Email | "
btext = btext & request.form("email")
btext = btext & " |
| Url | "
btext = btext & request.form("url")
btext = btext & " |
 |
| Industry | "
if(request.form("pharma") <> "") then
btext = btext & "Pharmaceutical "
end if
if(request.form("chem") <> "") then
btext = btext & "Chemical "
end if
if(request.form("pai") <> "") then
btext = btext & "Paints "
end if
if(request.form("ink") <> "") then
btext = btext & "Inks "
end if
if(request.form("oth") <> "") then
btext = btext & "Others, " & request.form("txt_oth1")
end if
btext = btext & " |
| Application | "
btext = btext & request.form("appl")
btext = btext & " |
| No.of Ingredients | "
btext = btext & request.form("noof")
btext = btext & " |
| Method of Storage | "
if(request.form("bar") <> "") then
btext = btext & "Barrel "
end if
if(request.form("ta") <> "") then
btext = btext & "Tank "
end if
if(request.form("bot") <> "") then
btext = btext & "Bottle "
end if
if(request.form("oth1") <> "") then
btext = btext & "Others, " & request.form("txt_oth2")
end if
btext = btext & " |
| MSDC Data - For All Ingredients | "
btext = btext & request.form("msdc")
btext = btext & " |
| Minimum & Maximum | "
btext = btext & request.form("minim")
'btext = btext & " to" & request.form("minim2")
btext = btext & " |
| Production Rate | "
btext = btext & request.form("pro")
btext = btext & " |
| Batching Accuracy | "
btext = btext & request.form("batch")
btext = btext & " |
| Preference Shown | "
if(request.form("cmf100") <> "") then
btext = btext & "CFM Series 100 "
end if
if(request.form("cmf200") <> "") then
btext = btext & "CFM SERIES 200 "
end if
btext = btext & " |
| Other Features | "
btext = btext & "
| ..Touch Screen | "
btext = btext & request.form("r1")
btext = btext & " |
| ..Product Recirculation Facility | "
btext = btext & request.form("r2")
btext = btext & " |
| ..Manual Back-up Control System | "
btext = btext & request.form("r3")
btext = btext & " |
| ..Stainless Steel Console | "
btext = btext & request.form("r4")
btext = btext & " |
| ..Bar-Code Scanner & Printer | "
btext = btext & request.form("r5")
btext = btext & " |
| ..Semi Auto & Automatic Mixtures | "
btext = btext & request.form("r6")
btext = btext & " |
| Other Requirements | "
btext = btext & request.form("txoth")
btext = btext & " |
"
%>
<%' = btext %>
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = request.Form("email")
cdoMessage.To = "enertech@gmail.com"
cdoMessage.Bcc = "support@binaryinfotech.co.in"
cdoMessage.Subject = "State your Requirement For Computerised Formulation Makers"
cdoMessage.HTMLBody = btext
cdoMessage.Send
Set cdoMessage = Nothing
' Set cdoConfig = Nothing
%>
<%
msg1=""
msg1 =msg1 & "Dear "& request.form("person") &",