 |
Business Enquiry |
| |
|
|
|
<%If Request.Form="" Then %>
<% Else
'receive the form values
Dim semail, sEmailText, sQ1, sQ2, sQ3, sQ4, sQ5, sQ6, sQ7, sQ8, sQ9, sQ10, sQ11, sQ12, sQ13, sQ14, sQ15, sQ16, sQ17, sQ18, sQ19, sQ20, sQ21, sQ22, sQ23, sQ24, sQ25, sQ26, sQ27, sQ28, sQ29, sQ30, sQ31,sQ32, sQ33, sQ34, sQ35, sQ36, sQ37, sQ38, sQ39, sQ40, sQ41, sQ42, sQ43, sQ44, sQ45, sQ46, sQ47, sQ48, sQ49, sQ50, sQ51, sQ52, sQ53, sQ54, sQ55, sQ56, sQ57, sQ58, sQ59, sQ60, sQ61, sQ62, sQ63, sQ64, sQ65, sQ66, sQ67, sQ68, sQ69, sQ70, sQ71, sQ72, sQ73, sQ74, sQ75, sQ76, sQ77, sQ78, sQ79, sQ80, sQ81, sQ82, sQ83, sQ84, sQ85, sQ86, sQ87, sQ88, sQ89, sQ90, sQ91, sQ92, sQ93, sQ94, sQ95, sQ96, sQ97, sQ98, sQ99, sQ100, sQ101, sQ102, sQ103, sQ104, sQ105, sQ106, sQ107, sQ108, sQ109, sQ110, sQ111, sQ112, sQ113, sQ114, sQ115, sQ116, sQ117, sQ118, scompany, scontactperson, saddress, sadr3, scity, spin, sdistrict, sstate, scountry, sphone, sphoner, smob, sfax, sdlno, skstno, stransport, sitpan, scstno, sbanker, ssatno, sterms, svatno
sQ1=ReQuest.Form("Q1")
sQ2=ReQuest.Form("Q2")
sQ3=ReQuest.Form("Q3")
sQ4=ReQuest.Form("Q4")
sQ5=ReQuest.Form("Q5")
sQ6=ReQuest.Form("Q6")
sQ7=ReQuest.Form("Q7")
sQ8=ReQuest.Form("Q8")
sQ9=ReQuest.Form("Q9")
sQ10=ReQuest.Form("Q10")
sQ11=ReQuest.Form("Q11")
sQ12=ReQuest.Form("Q12")
sQ13=ReQuest.Form("Q13")
sQ14=ReQuest.Form("Q14")
sQ15=ReQuest.Form("Q15")
sQ16=ReQuest.Form("Q16")
sQ17=ReQuest.Form("Q17")
sQ18=ReQuest.Form("Q18")
sQ19=ReQuest.Form("Q19")
sQ20=ReQuest.Form("Q20")
sQ21=ReQuest.Form("Q21")
sQ22=ReQuest.Form("Q22")
sQ23=ReQuest.Form("Q23")
sQ24=ReQuest.Form("Q24")
sQ25=ReQuest.Form("Q25")
sQ26=ReQuest.Form("Q26")
sQ27=ReQuest.Form("Q27")
sQ28=ReQuest.Form("Q28")
sQ29=ReQuest.Form("Q29")
sQ30=ReQuest.Form("Q30")
sQ31=ReQuest.Form("Q31")
sQ32=ReQuest.Form("Q32")
sQ33=ReQuest.Form("Q33")
sQ34=ReQuest.Form("Q34")
sQ35=ReQuest.Form("Q35")
sQ36=ReQuest.Form("Q36")
sQ37=ReQuest.Form("Q37")
sQ38=ReQuest.Form("Q38")
sQ39=ReQuest.Form("Q39")
sQ40=ReQuest.Form("Q40")
sQ41=ReQuest.Form("Q41")
sQ42=ReQuest.Form("Q42")
sQ43=ReQuest.Form("Q43")
sQ44=ReQuest.Form("Q44")
sQ45=ReQuest.Form("Q45")
sQ46=ReQuest.Form("Q46")
sQ47=ReQuest.Form("Q47")
sQ48=ReQuest.Form("Q48")
sQ49=ReQuest.Form("Q49")
sQ50=ReQuest.Form("Q50")
sQ51=ReQuest.Form("Q51")
sQ52=ReQuest.Form("Q52")
sQ53=ReQuest.Form("Q53")
sQ54=ReQuest.Form("Q54")
sQ55=ReQuest.Form("Q55")
sQ56=ReQuest.Form("Q56")
sQ57=ReQuest.Form("Q57")
sQ58=ReQuest.Form("Q58")
sQ59=ReQuest.Form("Q59")
sQ60=ReQuest.Form("Q60")
sQ61=ReQuest.Form("Q61")
sQ62=ReQuest.Form("Q62")
sQ63=ReQuest.Form("Q63")
sQ64=ReQuest.Form("Q64")
sQ65=ReQuest.Form("Q65")
sQ66=ReQuest.Form("Q66")
sQ67=ReQuest.Form("Q67")
sQ68=ReQuest.Form("Q68")
sQ69=ReQuest.Form("Q69")
sQ70=ReQuest.Form("Q70")
sQ71=ReQuest.Form("Q71")
sQ72=ReQuest.Form("Q72")
sQ73=ReQuest.Form("Q73")
sQ74=ReQuest.Form("Q74")
sQ75=ReQuest.Form("Q75")
sQ76=ReQuest.Form("Q76")
sQ77=ReQuest.Form("Q77")
sQ78=ReQuest.Form("Q78")
sQ79=ReQuest.Form("Q79")
sQ80=ReQuest.Form("Q80")
sQ81=ReQuest.Form("Q81")
sQ82=ReQuest.Form("Q82")
sQ83=ReQuest.Form("Q83")
sQ84=ReQuest.Form("Q84")
sQ85=ReQuest.Form("Q85")
sQ86=ReQuest.Form("Q86")
sQ87=ReQuest.Form("Q87")
sQ88=ReQuest.Form("Q88")
sQ89=ReQuest.Form("Q89")
sQ90=ReQuest.Form("Q90")
sQ91=ReQuest.Form("Q91")
sQ92=ReQuest.Form("Q92")
sQ93=ReQuest.Form("Q93")
sQ94=ReQuest.Form("Q94")
sQ95=ReQuest.Form("Q95")
sQ96=ReQuest.Form("Q96")
sQ97=ReQuest.Form("Q97")
sQ98=ReQuest.Form("Q98")
sQ99=ReQuest.Form("Q99")
sQ100=ReQuest.Form("Q100")
sQ101=ReQuest.Form("Q101")
sQ102=ReQuest.Form("Q102")
sQ103=ReQuest.Form("Q103")
sQ104=ReQuest.Form("Q104")
sQ105=ReQuest.Form("Q105")
sQ106=ReQuest.Form("Q106")
sQ107=ReQuest.Form("Q107")
sQ108=ReQuest.Form("Q108")
sQ109=ReQuest.Form("Q109")
sQ110=ReQuest.Form("Q110")
sQ111=ReQuest.Form("Q111")
sQ112=ReQuest.Form("Q112")
sQ113=ReQuest.Form("Q113")
sQ114=ReQuest.Form("Q114")
sQ115=ReQuest.Form("Q115")
sQ116=ReQuest.Form("Q116")
sQ117=ReQuest.Form("Q117")
sQ118=ReQuest.Form("Q118")
scompany=ReQuest.Form("tablets")
scompany=ReQuest.Form("company")
scontactperson=ReQuest.Form("contactperson")
saddress=ReQuest.Form("address")
sadr3=ReQuest.Form("adr3")
scity=ReQuest.Form("city")
spin=ReQuest.Form("pin")
sdistrict=ReQuest.Form("district")
sstate=ReQuest.Form("state")
scountry=ReQuest.Form("country")
sphone=ReQuest.Form("phone")
sphoner=ReQuest.Form("phoner")
smob=ReQuest.Form("mob")
sfax=ReQuest.Form("fax")
sdlno=ReQuest.Form("dlno")
skstno=ReQuest.Form("kstno")
stransport=ReQuest.Form("transport")
sitpan=ReQuest.Form("itpan")
scstno=ReQuest.Form("cstno")
sbanker=ReQuest.Form("banker")
svatno=ReQuest.Form("vatno")
sterms=ReQuest.Form("terms")
semail=ReQuest.Form("email")
'create the HTML formatted email text
sEmailText = sEmailText & ""
sEmailText = sEmailText & "| Alrif 0.25 Tablets 20x10 | : | " & sQ1 & " | "
sEmailText = sEmailText & "| Alrif 0.5 Tablets 20x10 | : | " & sQ2 & " | "
sEmailText = sEmailText & "| Amlo Trac-5 Tablets 14x20 | : | " & sQ3 & " | "
sEmailText = sEmailText & "| Amlo Card Forte 14x20 | : | " & sQ4 & " | "
sEmailText = sEmailText & "| Buwin Plus Tablets 20x10 | : | " & sQ5 & " | "
sEmailText = sEmailText & "| Calvical-500 Tabs 20x10 | : | " & sQ6 & " | "
sEmailText = sEmailText & "| Calibon Tonic 200 ml | : | " & sQ7 & " | "
sEmailText = sEmailText & "| Carden 50 Tabs 14x20 | : | " & sQ8 & " | "
sEmailText = sEmailText & "| Carden 100 Tabs 14x20 | : | " & sQ9 & " | "
sEmailText = sEmailText & "| Caredroxyl-125 Tabs 10x10 | : | " & sQ10 & " | "
sEmailText = sEmailText & "| Caredroxyl-250 Tabs 10x10 | : | " & sQ11 & " | "
sEmailText = sEmailText & "| Caredroxyl-500 Tabs 10x10 | : | " & sQ12 & " | "
sEmailText = sEmailText & "| Carecof Tabs 10x10 | : | " & sQ13 & " | "
sEmailText = sEmailText & "| Carecof Syrup 60 ml | : | " & sQ14 & " | "
sEmailText = sEmailText & "| Cyprin-250 Tabs 20x10 | : | " & sQ15 & " | "
sEmailText = sEmailText & "| Cyprin-500 Tabs 10x10 | : | " & sQ16 & " | "
sEmailText = sEmailText & "| Cyprin-TD Tabs 10x10 | : | " & sQ17 & " | "
sEmailText = sEmailText & "| Diocid-20 Cap. 10x10 | : | " & sQ18 & " | "
sEmailText = sEmailText & "| Domact Tab 20x10 | : | " & sQ19 & " | "
sEmailText = sEmailText & "| Enzofer Cap 3x10 | : | " & sQ20 & " | "
sEmailText = sEmailText & "| Fepro Tab 3x10 | : | " & sQ21 & " | "
sEmailText = sEmailText & "| Fepro Syrup 150 ml | : | " & sQ22 & " | "
sEmailText = sEmailText & "| Fifa Tab 10x3 | : | " & sQ23 & " | "
sEmailText = sEmailText & "| Floxzol Suspension 30 ml | : | " & sQ24 & " | "
sEmailText = sEmailText & "| Fluzole 150 Tab 1 Tablet | : | " & sQ25 & " | "
sEmailText = sEmailText & "| Frozyl M Syrup 50 ml | : | " & sQ26 & " | "
sEmailText = sEmailText & "| Hicip-250 Tab 20x10 | : | " & sQ27 & " | "
sEmailText = sEmailText & "| Hicip-500 Tab 10x10 | : | " & sQ28 & " | "
sEmailText = sEmailText & "| Hicip-TZ Tab 10x10 | : | " & sQ29 & " | "
sEmailText = sEmailText & "| Hymin Tab 1 Tab | : | " & sQ30 & " | "
sEmailText = sEmailText & "| Hymin Suspention 10 ml | : | " & sQ31 & " | "
sEmailText = sEmailText & "| Ibelac - TR Cap 20x10 | : | " & sQ32 & " | "
sEmailText = sEmailText & "| Incez DT Tab 30x10 | : | " & sQ33 & " | "
sEmailText = sEmailText & "| Inloxy Cap 10x10 | : | " & sQ34 & " | "
sEmailText = sEmailText & "| Inmox-250 Cap 10x10 | : | " & sQ35 & " | "
sEmailText = sEmailText & "| Inmox-500 Cap 10x10 | : | " & sQ36 & " | "
sEmailText = sEmailText & "| Inmox-Ax-250 Tab 10x10 | : | " & sQ37 & " | "
sEmailText = sEmailText & "| Inmox-Ax-500 Tab 10x10 | : | " & sQ38 & " | "
sEmailText = sEmailText & "| Inmox Dry Syrup 60 ml | : | " & sQ39 & " | "
sEmailText = sEmailText & "| Inmox Kid Tab 20x10 | : | " & sQ40 & " | "
sEmailText = sEmailText & "| Inprovin Powder 200 gms | : | " & sQ41 & " | "
sEmailText = sEmailText & "| Inrox-Kid Tab 10x10 | : | " & sQ42 & " | "
sEmailText = sEmailText & "| Inrox Tab 10x10 | : | " & sQ43 & " | "
sEmailText = sEmailText & "| Inspar Tab 10x10 | : | " & sQ44 & " | "
sEmailText = sEmailText & "| Intragesic Tab 30x10 | : | " & sQ45 & " | "
sEmailText = sEmailText & "| Intrazyme Tonic 200 ml | : | " & sQ46 & " | "
sEmailText = sEmailText & "| Intrim Tab 10x10 | : | " & sQ47 & " | "
sEmailText = sEmailText & "| Intrim D.s Tab 10x10 | : | " & sQ48 & " | "
sEmailText = sEmailText & "| Intrim Suspension 50 ml | : | " & sQ49 & " | "
sEmailText = sEmailText & "| Lomin Cap 20x10 | : | " & sQ50 & " | "
sEmailText = sEmailText & "| M-Dox Tab 10x10 | : | " & sQ51 & " | "
sEmailText = sEmailText & "| MeditinPlus Tablets 10x10 | : | " & sQ52 & " | "
sEmailText = sEmailText & "| Meditin-150 Tab 30x10 | : | " & sQ53 & " | "
sEmailText = sEmailText & "| Meditin-300 Tab 30x10 | : | " & sQ54 & " | "
sEmailText = sEmailText & "| Norin-400 Tab 10x10 | : | " & sQ55 & " | "
sEmailText = sEmailText & "| Norin-TD Tab 10x10 | : | " & sQ56 & " | "
sEmailText = sEmailText & "| Norin-MZ Suspension 30 ml | : | " & sQ57 & " | "
sEmailText = sEmailText & "| Noventa Liquid 180 ml | : | " & sQ58 & " | "
sEmailText = sEmailText & "| Nozin Tab 25x10 | : | " & sQ59 & " | "
sEmailText = sEmailText & "| Nozin Syrup 50 ml | : | " & sQ60 & " | "
sEmailText = sEmailText & "| Nile Tab 20x10 | : | " & sQ61 & " | "
sEmailText = sEmailText & "| Nile Suspension 60 ml | : | " & sQ62 & " | "
sEmailText = sEmailText & "| Nile Plus Tab 5x5x6 | : | " & sQ63 & " | "
sEmailText = sEmailText & "| Nile Plus Suspension 60 ml | : | " & sQ64 & " | "
sEmailText = sEmailText & "| Nile Gel 30 gms | : | " & sQ65 & " | "
sEmailText = sEmailText & "| Nile-CZ Tab 20x5 | : | " & sQ66 & " | "
sEmailText = sEmailText & "| Nimpep Tab 20x10 | : | " & sQ67 & " | "
sEmailText = sEmailText & "| Oflobid-200 Tab 10x10 | : | " & sQ68 & " | "
sEmailText = sEmailText & "| Oflobid-TZ Tab 10x10 | : | " & sQ69 & " | "
sEmailText = sEmailText & "| Penta-40 Tab 10x10 | : | " & sQ70 & " | "
sEmailText = sEmailText & "| Pro-Seal Powder 200 gms | : | " & sQ71 & " | "
sEmailText = sEmailText & "| Protimin Tonic 200 ml | : | " & sQ72 & " | "
sEmailText = sEmailText & "| Quinex-250 Tab 30x10 | : | " & sQ73 & " | "
sEmailText = sEmailText & "| Quinex-500 Tab 30x10 | : | " & sQ74 & " | "
sEmailText = sEmailText & "| Racef-250 Cap 10x10 | : | " & sQ75 & " | "
sEmailText = sEmailText & "| Racef-500 Cap 10x10 | : | " & sQ76 & " | "
sEmailText = sEmailText & "| Raclox-500 Cap 10x10 | : | " & sQ77 & " | "
sEmailText = sEmailText & "| Revistat-250 Tab 10x10 | : | " & sQ78 & " | "
sEmailText = sEmailText & "| Revolina Cap 3x10 | : | " & sQ79 & " | "
sEmailText = sEmailText & "| Revolina Granules 200 gms | : | " & sQ80 & " | "
sEmailText = sEmailText & "| Rofinol 12.5 Tab 20x10 | : | " & sQ81 & " | "
sEmailText = sEmailText & "| Rofinol 25 Tab 20x10 | : | " & sQ82 & " | "
sEmailText = sEmailText & "| Rofinol 50 Tab 10x10 | : | " & sQ83 & " | "
sEmailText = sEmailText & "| Rofinol-P Tab 200 gms | : | " & sQ84 & " | "
sEmailText = sEmailText & "| Rofinol-T Tab 20x10 | : | " & sQ85 & " | "
sEmailText = sEmailText & "| Soya-Rich Powder 200 gms | : | " & sQ86 & " | "
sEmailText = sEmailText & "| Spasid Tab 25x10 | : | " & sQ87 & " | "
sEmailText = sEmailText & "| Teloxid Cap 10x10 | : | " & sQ88 & " | "
sEmailText = sEmailText & "| Tranase Tab 10x10 | : | " & sQ89 & " | "
sEmailText = sEmailText & "| Viton-12 Tonic 200 ml | : | " & sQ90 & " | "
sEmailText = sEmailText & "| Viton Drops 15 ml | : | " & sQ91 & " | "
sEmailText = sEmailText & "| Ventosol-AX Syrup 100 ml | : | " & sQ92 & " | "
sEmailText = sEmailText & "| Vencof Expt. 100 ml | : | " & sQ93 & " | "
sEmailText = sEmailText & "| Viron- SR Tab 20x10 | : | " & sQ94 & " | "
sEmailText = sEmailText & "| Vitafol-Z TR Cap 3x10 | : | " & sQ95 & " | "
sEmailText = sEmailText & "| Winopar Syrup 50 ml | : | " & sQ96 & " | "
sEmailText = sEmailText & "| Winopar 500 Tab 30x10 | : | " & sQ97 & " | "
sEmailText = sEmailText & "| Winopar 650 Tab 20x10 | : | " & sQ98 & " | "
sEmailText = sEmailText & "| Medicillin-Plus 500 Inj. 3 ml | : | " & sQ99 & " | "
sEmailText = sEmailText & "| Amisulf 100 Inj. 2 ml | : | " & sQ100 & " | "
sEmailText = sEmailText & "| Amisulf 500 Inj. 2 ml | : | " & sQ101 & " | "
sEmailText = sEmailText & "| Decrina Inj 2 ml | : | " & sQ102 & " | "
sEmailText = sEmailText & "| Garin 80 Inj. 2 ml | : | " & sQ103 & " | "
sEmailText = sEmailText & "| Clofina Inj. 3 ml | : | " & sQ104 & " | "
sEmailText = sEmailText & "| Cloodip Oint 10 gms | : | " & sQ105 & " | "
sEmailText = sEmailText & "| Clodip-GM Oint 10 gms | : | " & sQ106 & " | "
sEmailText = sEmailText & "| Susil Oint 10 gms | : | " & sQ107 & " | "
sEmailText = sEmailText & "| Paril Gel 30 gms | : | " & sQ108 & " | "
sEmailText = sEmailText & "| P-Don Oint 5 gms | : | " & sQ109 & " | "
sEmailText = sEmailText & "| Freeder M Oint 5 gms | : | " & sQ110 & " | "
sEmailText = sEmailText & "| Clorim-B Oint 10 gms | : | " & sQ111 & " | "
sEmailText = sEmailText & "| Wizole-F Oint 15 gms | : | " & sQ112 & " | "
sEmailText = sEmailText & "| Sabe-F Oint 15 gms | : | " & sQ113 & " | "
sEmailText = sEmailText & "| Megascab Lotion 100 ml | : | " & sQ114 & " | "
sEmailText = sEmailText & "| Aquadent -K Paste 50 gms | : | " & sQ115 & " | "
sEmailText = sEmailText & "| Gummage 15 ml | : | " & sQ116 & " | "
sEmailText = sEmailText & "| Amijel 15 ml | : | " & sQ117 & " | "
sEmailText = sEmailText & "| Klorex Mouth Wash 125 ml | : | " & sQ118 & " | "
sEmailText = sEmailText & "| Tablets | : | " & stablets & " | "
sEmailText = sEmailText & "| Company Name | : | " & scompany & " | "
sEmailText = sEmailText & "| contactperson | : | " & scontactperson &" | "
sEmailText = sEmailText & "| Address1 | : | " & saddress & " | "
sEmailText = sEmailText & "| Address2 | : | " & sadr3 & " | "
sEmailText = sEmailText & "| City | : | " & scity & " | "
sEmailText = sEmailText & "| Pin | : | " & spin & " | "
sEmailText = sEmailText & "| districtrict | : | " & sdistrict & " | "
sEmailText = sEmailText & "| State | : | " & sstate & " | "
sEmailText = sEmailText & "| Country | : | " & scountry & " | "
sEmailText = sEmailText & "| Phone1 | : | " & sphone & " | "
sEmailText = sEmailText & "| Phone2 | : | " & sphoner & " | "
sEmailText = sEmailText & "| Mobile | : | " & smob & " | "
sEmailText = sEmailText & "| Fax | : | " & sfax & " | "
sEmailText = sEmailText & "| DL. No. | : | " & sdlno & " | "
sEmailText = sEmailText & "| KST No. | : | " & skstno & " | "
sEmailText = sEmailText & "| Transport | : | " & stransport & " | "
sEmailText = sEmailText & "| CST No. | : | " & scstno & " | "
sEmailText = sEmailText & "| Email | : | " & semail & " | "
sEmailText = sEmailText & "| VAT No. | : | " & svatno & " | "
sEmailText = sEmailText & "| Terms | : | " & sterms & " | "
sEmailText = sEmailText & "| Sbaker | : | " & sbanker & " | "
sEmailText = sEmailText & ""
sEmailText = sEmailText & " "
'create the mail object
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From= semail
NewMailObj.To = "intralabs@yahoo.com"
NewMailObj.Subject = "Enquiry from site"
NewMailObj.Body = sEmailText
'you need to add these 2 lines for the mail to be sent in HTML format
'remove them and the email will be sent in Text format
NewMailObj.BodyFormat = 0
NewMailObj.MailFormat = 0
NewMailObj.Send
Set NewMailObj=Nothing
Response.write "Thank you.
"
Response.write "We will get back to you shortly"
End If %>
|
|
Copyrights @ Invisionmedi.com 2006 |
|
This site is designed and developed by
|
|
| |
