<%@ Language=VBScript %>
<% Response.Buffer = true %>
<% Server.ScriptTimeout = 500%>
<%
'on error resume next
'for each thing in Request.Form
' Response.Write "
" & thing & ":::" & Request.Form(thing)
'next
msubmit = Request.Form("Submit")
success = "N"
if ( msubmit = "Submit" ) then
mto = ""
pinfo = ""
tradeenq = ""
corporateinf = ""
if not ( Request.Form("productinfo") = "" ) then
pinfo = trim(ucase(Request.Form("productinfo")))
if ( pinfo = "L" ) then
if not ( mto = "" ) then
mto = mto & " , sl_mondkar@spl.co.in , marketing@spl.co.in "
else
mto = " sl_mondkar@spl.co.in , marketing@spl.co.in "
end if
end if
if ( pinfo = "E" ) then
if not ( mto = "" ) then
mto = mto & " , r_rangarajan@spl.co.in "
else
mto = " r_rangarajan@spl.co.in "
end if
end if
end if
if not ( Request.Form("tradeenq") = "" ) then
tradeenq = trim(ucase(Request.Form("tradeenq")))
if ( ( tradeenq = "L" ) and not ( pinfo = "L" ) ) then
if not ( mto = "" ) then
mto = mto & " , sl_mondkar@spl.co.in , marketing@spl.co.in "
else
mto = " sl_mondkar@spl.co.in , marketing@spl.co.in "
end if
end if
if ( ( tradeenq = "E" ) and not ( pinfo = "E" ) ) then
if not ( mto = "" ) then
mto = mto & " , r_rangarajan@spl.co.in "
else
mto = " r_rangarajan@spl.co.in "
end if
end if
end if
if not ( Request.Form("corporateinf") = "" ) then
corporateinf = trim(ucase(Request.Form("corporateinf")))
if ( corporateinf = "L" ) then
if not ( mto = "" ) then
mto = mto & " , sara_dsouza@spl.co.in "
else
mto = " sara_dsouza@spl.co.in "
end if
end if
end if
if ( mto = "" ) then
mto = " marketing@spl.co.in "
end if
' response.write "
pinfo : " & pinfo
' response.write "
Trade Enq : " & tradeenq
' response.write "
Corporate Information : " & corporateinf
' response.write "
mto : " & mto
set mymail = server.CreateObject("CDONTS.NewMail")
mymail.To = mto
' mymail.from = "yazdi@on-lyne.com"
if not ( Request.Form("email") = "" ) then
mymail.From = Request.Form("email")
else
mymail.from = "anonymous@on-lyne.com"
end if
if not ( Request.Form("name") = "" ) then
mymail.Subject = "FEEDBACK FROM - " & ucase(Request.Form("name"))
else
mymail.Subject = "FEEDBACK FORM "
end if
mbody = ""
mbody = "FEEDBACK FORM " & ""
if not ( Request.Form("name") = "" ) then
mbody = mbody & " NAME : " & ucase(Request.Form("name")) & "
"
end if
if not ( Request.Form("org") = "" ) then
mbody = mbody & " ORGANISATION : " & ucase(Request.Form("org")) & "
"
end if
if not ( Request.Form("desig") = "" ) then
mbody = mbody & " DESIG : " & ucase(Request.Form("desig")) & "
"
end if
if not ( Request.Form("address") = "" ) then
mbody = mbody & " ADDRESS : " & Request.Form("address") & "
"
end if
if not ( Request.Form("email") = "" ) then
mbody = mbody & " EMAIL : " & Request.Form("email") & "
"
end if
mbody = mbody & " ENQUIRIES ON : " & "
"
if ( ucase(trim(Request.Form("productinfo"))) = "L" ) then
mbody = mbody & " : " & "PRODUCT INFORMATION - LOCAL" & "
"
end if
if ( ucase(trim(Request.Form("productinfo"))) = "E" ) then
mbody = mbody & " : " & "PRODUCT INFORMATION - EXPORT" & "
"
end if
if ( ucase(trim(Request.Form("tradeenq"))) = "L" ) then
mbody = mbody & " : " & "TRADE ENQUIRIES - LOCAL" & "
"
end if
if ( ucase(trim(Request.Form("tradeenq"))) = "E" ) then
mbody = mbody & " : " & "TRADE ENQUIRIES - EXPORT" & "
"
end if
if ( ucase(trim(Request.Form("corporateinf"))) = "L" ) then
mbody = mbody & " : " & "CORPORATE INFORMATION - " & "
"
end if
if not ( Request.Form("comment") = "" ) then
mbody = mbody & " COMMENTS : " & Request.Form("comment") & "
"
end if
mymail.Body = mbody
mymail.Importance = 1
mymail.BodyFormat = 0
mymail.MailFormat = 0
mymail.Send
success = "Y"
set mymail = nothing
end if
%>
Supremepetrochem.com
|
|
 |
|
|
|
 |
|
|
| |
|
| |
|
|
612 Raheja Chambers,
Nariman Point,
Mumbai - 400 021, INDIA.
Telephone
No.: +91-22-2288 3518 - 20
Fax
No.: +91-22-2288 3521
|
|
Corporate
Office
|
|
|
Building No. 11, 5th Floor,
Solitaire Corporate Park,
167, Guru Hargovindji Marg,
(Andheri-Ghatkopar Link Road)
Chakala, Andheri (East),
Mumbai - 400093, INDIA.
Telephone
No.: +91-22-6709 1900
Fax No.: +91-22-4005 5681.
|
|
|
|
Village: Amdoshi / Wangani,
District: Raigad,
Maharashtra 402 106, INDIA.
Telephone No.: +91-2194-222540 - 2548
Fax No.: +91-2194-222337 / 2537 / 2617
Email: splw@bom7.vsnl.net.in
|
|
|
|
|
|
|
|
|
| Site
best viewed with a Screen Resolution of 800 X 600, If you have any trouble
viewing this site do get back to us at webteam@on-lyne.com |
<%
if ( success = "Y" ) then
%>
<%
end if
%>
