%@ Language=VBScript %>
<% Response.Buffer = true %>
<% Server.ScriptTimeout=150 %>
<%
'on error resume next
'for each thing in Request.Form
' Response.Write "
" & thing & ":::" & Request.Form(thing)
'next
msubmit = ""
msubmit = Request.Form("Submit3")
success = "N"
if ( msubmit = "Submit" ) then
set mymail = server.CreateObject("CDONTS.NewMail")
mymail.To = "yazdi@on-lyne.com"
mymail.from = Request.Form("email")
if not ( Request.form("name") = "" ) then
mymail.Subject = "Advertisement Banner Request from - " & Request.form("name") & " "
else
mymail.Subject = " Advertisement Banner Request "
end if
mbody = "
NAME : " & Request.form("name") & "
" end if if not ( Request.form("address") = "" ) then mbody = mbody & "ADDRESS : " & Request.form("address") & "
" end if if not ( Request.form("city") = "" ) then mbody = mbody & "CITY : " & Request.form("city") & "
" end if if not ( Request.form("country") = "" ) then mbody = mbody & "COUNTRY : " & Request.form("country") & "
" end if if not ( Request.form("phone") = "" ) then mbody = mbody & "TEL NO. : " & Request.form("phone") & "
" end if if not ( Request.form("fax") = "" ) then mbody = mbody & "FAX NO. : " & Request.form("fax") & "
" end if if not ( Request.form("email") = "" ) then mbody = mbody & "EMAIL ID : " & Request.form("email") & "
" end if if not ( Request.form("business") = "" ) then mbody = mbody & "BUSINESS : " & Request.form("business") & "
" end if if ( ucase(Request.form("banner")) = "S" ) then mbody = mbody & "Type of AD Banner on your site : STATIC
" end if if ( ucase(Request.form("banner")) = "A" ) then mbody = mbody & "Type of AD Banner on your site : ANIMATED
" end if if ( ucase(Request.form("page")) = "H" ) and ( Request.Form("particular") = "" ) then mbody = mbody & "How many Pages would you like to
" mbody = mbody & "have your AD Banner running. : HOMEPAGE
" end if if ( ucase(Request.form("page")) = "A" ) and ( Request.Form("particular") = "" ) then mbody = mbody & "How many Pages would you like to
" mbody = mbody & "have your AD Banner running. : ALLPAGES
" end if if not ( Request.form("particular") = "" ) then mbody = mbody & "How many Pages would you like to
" mbody = mbody & "have your AD Banner running. : " & Request.form("particular") & "
" end if mymail.Body = mbody mymail.Importance = 1 mymail.BodyFormat = 0 mymail.MailFormat = 0 mymail.Send set mymail = nothing success = "Y" end if %>
|
||||||||
|
||||||||
Copyright
© 2003, All rights reserved. Site designed and maintained by On-lyne Comtech (I) Pvt. Ltd. |