%@ language=VBScript %> <% Option Explicit %> <% Dim companyname Dim contactname Dim staddress Dim city Dim state Dim zip Dim country Dim phone Dim fax Dim email Dim date Dim daterequired Dim liquid Dim flowrate Dim dischagrge Dim viscmin Dim viscmax Dim viscnormal Dim netinlet Dim suction Dim pumpmin Dim pumpmax Dim solidpercent Dim solidsize Dim solidgravity Dim solidphlevel Dim type1 Dim seltype Dim discharge Dim material Dim relief Dim mounting Dim odp Dim enclosure Dim class1 Dim phase Dim frequency Dim voltage Dim require Dim submitform Dim sch Dim strMessage Dim objCDOConfig Dim objCDOMessage submitform=false companyname = Request.Form("txtcompanyname") contactname = Request.Form("txtcontactname") staddress = Request.Form("txtstaddress") city = Request.Form("txtcity") state = Request.Form("txtstate") zip = Request.Form("txtzip") country = Request.Form("txtcountry") phone = Request.Form("txtphone") fax = Request.Form("txtfax") email = Request.Form("txtemail") date = Request.Form("txtdate") daterequired = Request.Form("txtdaterequired") liquid = Request.Form("txtliquid") flowrate = Request.Form("txtflowrate") discharge = Request.Form("txtdischarge") viscmin = Request.Form("txtviscmin") viscmax = Request.Form("txtviscmax") viscnormal = Request.Form("txtviscnormal") netinlet = Request.Form("txtnetinlet") suction = Request.Form("txtsuction") pumpmin = Request.Form("txtpumpmin") pumpmax = Request.Form("txtpumpmax") solidpercent = Request.Form("txtsolidpercent") solidsize = Request.Form("txtsolidsize") solidgravity = Request.Form("txtspecgravity") solidphlevel = Request.Form("txtphlevel") type1 = Request.Form("rdtype") material = Request.Form("rdmaterial") relief = Request.Form("rdrelief") mounting = Request.Form("rdmounting") enclosure = Request.Form("rdenclosure") class1 = Request.Form("txtclass") phase = Request.Form("txtphase") frequency = Request.Form("txtfreq") voltage = Request.Form("txtvolt") require = Request.Form("txtrequire") If Not companyname="" Then submitform=True If submitform Then strMessage = "
"
strMessage = strMessage & "Company Name : " & companyname & "
"
strMessage = strMessage & "Contact Name: " & contactname & "
"
strMessage = strMessage & "Street Address : " & staddress & "
"
strMessage = strMessage & "Country : " & country & "
"
strMessage = strMessage & "Phone : " & phone & "
"
strMessage = strMessage & "Fax : " & fax & "
"
strMessage = strMessage & "Email : " & email & "
"
strMessage = strMessage & "Street : " & staddress & "
"
strMessage = strMessage & "date : " & date & "
"
strMessage = strMessage & "Other Requitements : " & Replace(require, vbCrLf, "
") & "
"
strMessage = strMessage & "
|
|