<%
if request("hidSubmit")="Y" then
Cname=request("Contact_FullName")
address=request("Company Name")
phone=request("Contact_WorkPhone")
wphone=request("Contact_HomePhone")
fax=request("Contact_FAX")
email=request("Contact_FAX1")
comments=request("Queries")
Sample=request("Sample")
LDTEELinedrivertransformer=request("EELinedrivertransformer")
LDTuulinedriver=request("uulinedriver")
LDTDrumcoretype=request("Drumcoretype")
LFCEElinefilter=request("EElinefilter")
LFCUUCoreType=request("UUCoreType")
FCLFET24framecorelinevertical=request("ET24framecorelinevertical")
FCLET28linefiltervertical=request("ET28linefiltervertical")
FCLET24linefilterhorizontal=request("ET24linefilterhorizontal")
FCLD1=request("D1")
FCLET35linefiltervertical=request("ET35linefiltervertical")
FCLUT20=request("UT20")
WidthCoil=request("Widthcoil")
ecLiearityfixed=request("Liearityfixed")
ecLinearityvariable=request("Linearityvariable")
fiD2=request("D2")
fiBeadcorefixedinductor=request("Beadcorefixedinductor")
remarks=request("remarks")
MailMsg="| Name : | " & Cname & " | | Address : | " & address&" | | Home Phone : | " & phone & " | | Work Phone : | " & wphone & " | | Fax : | " & fax & " | | EMail : | " & email & " | | Comments : | " & comments & " | | Request for : " & Sample & " for the following Products . | | Line Driver Transformer -- EE Core Type: " & LDTEELinedrivertransformer & " | | Line Driver Transformer -- UU Core Type: " & LDTuulinedriver & " | | Line Driver Transformer -- Drum Core Type: " & LDTDrumcoretype & " | | Line Filter Choke -- EE Core Type: " & LFCEElinefilter & " | | Line Filter Choke -- UU Core Type: " & LFCUUCoreType & " | | Frame Core Line Filter -- ET24-Vertical -- ET24framecorelinevertical: " & FCLFET24framecorelinevertical & " | | Frame Core Line Filter -- ET28-Vertical-- ET28linefiltervertical: " & FCLET28linefiltervertical & " | | Frame Core Line Filter -- ET24-Horizontal-- ET24linefilterhorizontal: " & FCLET24linefilterhorizontal & " | | Frame Core Line Filter -- ET28-Horizontal-- D1: " & FCLD1 & " | | Frame Core Line Filter -- ET35-Vertical-- D1: " & FCLET35linefiltervertical & " | | Frame Core Line Filter -- UT20-- D1: " & FCLUT20 & " | | Width Coil: " & WidthCoil & " | | eLinearity Coilr -- Fixed Type -- Liearityfixed: " & ecLiearityfixed & " | | eLinearity Coilr -- Variable Type -- Linearityvariable: " & ecLinearityvariable & " | | Fixed Inductor -- Drum Core Type -- D2: " & fiD2 & " | | Fixed Inductor -- Bead Core Type -- D2: " & fiBeadcorefixedinductor & " | | Remarks: " & remarks & " |
"
' response.write(MailMsg)
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = "admin@perfectelectronics.com"
'objCDO.Cc = "robert@pftec.com"
'objCDO.bcc = "ramu.ravi@pftec.com"
objCDO.From = email 'FromAddress
objCDO.MailFormat = 0
objCDO.BodyFormat = 0
objCDO.Subject = "Enquiry from WebSite"
objCDO.Body = MailMsg
if objCDO.Send then
SendMail = "Y"
else
SendMail = "N"
end if
set objCDO = nothing
response.write("Thanks For Your Query. We will get back to you soon. ")
end if
%>
|