<%@ 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 = Request.Form("Submit3") success = "N" if ( msubmit = "Submit" ) then 'set mymail = server.CreateObject("CDONTS.NewMail") Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp.on-lyne.com" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "webteam@on-lyne.com" .Item(cdoSendPassword) = "On-lyne0" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "webteam@on-lyne.com" .from = Request.Form("email") if not ( Request.Form("email") = "" ) then .From = Request.Form("email") end if if not ( Request.Form("name") = "" ) then .Subject = "Suggestions from : " & Request.Form("name") else .Subject = "Suggestion Form : on-lyne.info" end if mbody = "" mbody = "

Suggestion Form : on-lyne.info

" if not ( Request.Form("name") = "" ) then mbody = mbody & "

NAME : " & Request.Form("name") & "

" end if if not ( Request.Form("sex") = "M" ) then mbody = mbody & "

SEX : " & "MALE

" end if if not ( Request.Form("sex") = "F" ) then mbody = mbody & "

SEX : " & "FEMALE

" end if if not ( Request.Form("email") = "" ) then mbody = mbody & "

EMAIL : " & Request.Form("email") & "

" 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("navigate") = "E" ) then mbody = mbody & "

NAVIGATE : " & "EASY

" end if if not ( Request.Form("navigate") = "D" ) then mbody = mbody & "

NAVIGATE : " & "DIFFICULT

" end if if not ( Request.Form("comment") = "" ) then mbody = mbody & "

COMMENT : " & Request.Form("comment") & "

" end if if not ( Request.Form("inclusion") = "" ) then mbody = mbody & "

TO INCLUDE : " & Request.Form("inclusion") & "

" end if if not ( Request.Form("suggestion") = "" ) then mbody = mbody & "

SUGGESTION " & Request.Form("suggestion") & "

" end if .HTMLBody = mbody 'mymail.Importance = 1 'mymail.BodyFormat = 0 'mymail.MailFormat = 0 .Send End With success = "Y" Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing end if %> States : India Maharashtra Delhi Calcutta Chennai Kashmir Kerala Goa Rajasthan Uttar Pradesh
Home Classified About Us Groups Services FAQ's Contact Us
Email Login
IT Solutions Provider
A complete shopping Portal with best offers
Taking care of you and your baby
Free Newsletters
Feedback
Your Suggestion
AD. Banners
Drop in your query here
Utility
Bookmark Us
Submit a Site
Tell a Friend
Link to us
SEARCH
    YOUR SUGGESTIONS

Help us to serve you better. Just fill in the details in the fields below do drop in your comments regarding this site

Name  
Sex  
Male Female
Email  
City  
Country  
How do you find the site to navigate.  
Easy Difficult
Comment  
What other things would you like to see on this site.  
Suggest in any URL (website) you would like to add to this site
 
 
DeskAway Project Management   Giveaway of the Day
 
Topics of your Interest
Arts
Astrology
Automobiles
Bangalore
Banking
Beauty & Fashion
Bollywood
Consulates
Consumers
Cooking
Corp. Governance
Cricket
C. S. R.
Dance
Delhi
Developers
Drivers & Utilities
Education
E-Greetings
Encyclopedia
Finance
Forms Online
Gaming Online
Health
Hollywood
Home Modeling
Hotels
Human Resources
Hyderabad
Insurance
Internet
Jobs
Kids
Legal Affairs
Matrimonial
Mobile
Mumbai
Music
News
NGO
Offbeat
Parenting
Police
Photography
Real Estate
Religion
Science
Search Engine
Shopping
Sports
Solar Energy
SSI's
States
Telephone
Television
Trade Fairs
Travel
Wildlife
Women
WTO
Youth
Zoroastrian
Copyright © 2003, All rights reserved.
Site designed and maintained by On-lyne Comtech (I) Pvt. Ltd.
<% if ( success = "Y" ) then %> <% end if %>