|
Name of Company | "
btext = btext & request.form("name")
btext = btext & " |
Address of Company | "
btext = btext & request.form("add")
btext = btext & " |
Contact Person Name | "
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 & " |
|
Application | "
btext = btext & request.form("application")
btext = btext & " |
Name of part to be clean | "
btext = btext & request.form("clean")
btext = btext & " |
Material | "
btext = btext & request.form("material")
btext = btext & " |
Component Size & Wt. (Max.) | "
btext = btext & request.form("component")
btext = btext & " |
No. of Components hr./shift | "
btext = btext & request.form("nocom")
btext = btext & " |
Minimum Batch Qty. | "
btext = btext & request.form("batch")
btext = btext & " |
No of Stage | "
btext = btext & request.form("stage")
btext = btext & " |
Different Stages | "
if(request.form("pre") <> "") then
btext = btext & "Pre-cleaning "
end if
if(request.form("Ulscleaning") <> "") then
btext = btext & "Uls cleaning "
end if
if(request.form("rinsing") <> "") then
btext = btext & "Rinsing "
end if
if(request.form("drying") <> "") then
btext = btext & "Drying "
end if
btext = btext & " Others if any, " & request.form("differnt_other")
btext = btext & " |
Component Shape | "
btext = btext & request.form("comshape") &" "
btext = btext & " and other," & request.form("comshapeother")
btext = btext & " |
Contamination | "
if(request.form("oil") <> "") then
btext = btext & "Oil "
end if
if(request.form("grease") <> "") then
btext = btext & "Grease "
end if
if(request.form("dust") <> "") then
btext = btext & "Dust "
end if
if(request.form("machine") <> "") then
btext = btext & "Machine burr "
end if
if(request.form("salt") <> "") then
btext = btext & "Salt Deposits "
end if
if(request.form("ferric") <> "") then
btext = btext & "Ferric Oxide "
end if
if(request.form("buff") <> "") then
btext = btext & "Buffing Compound "
end if
if(request.form("lapp") <> "") then
btext = btext & "Lapping Paste "
end if
if(request.form("flux") <> "") then
btext = btext & "Flux "
end if
if(request.form("wax") <> "") then
btext = btext & "Wax "
end if
if(request.form("ink") <> "") then
btext = btext & "Ink "
end if
if(request.form("paint") <> "") then
btext = btext & "Paint "
end if
btext = btext & "Others if any, explain what & why " & request.form("contaothers")
btext = btext & " |
Auto / Semi Material Handling System Required? | "
btext = btext & request.form("material1")
btext = btext & " |
Do parts need rust inhibitors | "
btext = btext & request.form("rust")
btext = btext & " |
Do parts need to dry after cleaning | "
btext = btext & request.form("dry")
btext = btext & " |
Present cleaning method | "
btext = btext & request.form("method")
btext = btext & " |
Any preferred cleaning Chemicals | "
if(request.form("alkaline") <> "") then
btext = btext & "Alkaline "
end if
if(request.form("acid") <> "") then
btext = btext & "Acid "
end if
if(request.form("perchloroethylene") <> "") then
btext = btext & "Perchloroethylene "
end if
if(request.form("methylene") <> "") then
btext = btext & "Methiylene Chloride "
end if
if(request.form("trichloroethylene") <> "") then
btext = btext & "Trichloroethylene "
end if
if(request.form("chorosol") <> "") then
btext = btext & "Chorosol "
end if
if(request.form("isopropyl") <> "") then
btext = btext & "Isopropyl Alcohol "
end if
if(request.form("water") <> "") then
btext = btext & "D. I. Water "
end if
if(request.form("plainwater") <> "") then
btext = btext & "Plain Water "
end if
btext = btext & "Others if any, explain what & why " & request.form("chmothers")
btext = btext & " |
Space available at site | "
btext = btext & request.form("space")
btext = btext & " |
Special features / requirements | "
btext = btext & request.form("feature")
btext = btext & " |
Miscellaneous information | "
btext = btext & request.form("information")
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.support@rediffmail.com"
cdoMessage.Bcc = "support@binary-infotech.com"
cdoMessage.Subject = "State your Requirement For Ultrasonic Cleanings Equipments"
cdoMessage.HTMLBody = btext
cdoMessage.Send
Set cdoMessage = Nothing
' Set cdoConfig = Nothing-->
msg1 = "Dear "& request.Form("person") &",