<%@language="VBScript"%> <% Response.Buffer = true %> <%response.expires=0%> <% success1 = "N" success2 = "N" msubmit = Request.Form("Submit") if ( msubmit = "Submit" ) then group=request("group") arrgroup=split(group,",") for i=lbound(arrgroup) to ubound(arrgroup) ' dim mymail 'as object set mymail = server.CreateObject("CDONTS.NewMail") mymail.To = "yazdi@on-lyne.com" mymail.cc = "" mymail.bcc= "webteam@on-lyne.com" if not ( Request.Form("email") = "" ) then mymail.From = Request.Form("email") else mymail.From = request.form("fname") end if if not ( Request.Form("fname") = "" ) then mymail.Subject = "Please subscribe me for the "&arrgroup(i)&" - " & ucase(Request.Form("fname")) else mymail.Subject = "Please subscribe me for the "&arrgroup(i) end if mbody = "" mbody="" mbody=mbody&"" mbody=mbody&"" mbody=mbody&"" mbody=mbody&"" mbody=mbody&"" mbody=mbody&"" mbody=mbody& "
 
*  "&arrgroup(i)&" ("&Request.Form("sub")&" Now)  *
 
 
    " if not ( Request.Form("fname") = "" ) then mbody = mbody & "Name : " & Request.Form("fname")&" " &Request.Form("lname") & "
    " end if if not ( arrgroup(i) = "" ) then mbody = mbody & "Group : " & arrgroup(i) & "
    " end if if not ( Request.Form("sub") = "" ) then mbody = mbody & "Subscribe/Unsubscribe : " & Request.Form("sub") & "
    " end if if not ( Request.Form("email") = "" ) then mbody = mbody & "E-Mail : " & Request.Form("email") & "
    " end if mbody=mbody&"
" mbody=mbody&"" mymail.Body = mbody ' Response.Write mbody &"


" mymail.Importance = 1 mymail.BodyFormat = 0 mymail.MailFormat = 0 mymail.Send success1 = "Y" set mymail = nothing dim mymail2 'as object set mymail2 = server.CreateObject("CDONTS.NewMail") mymail2.To = "imailsrv@wzcc.net" mymail2.cc = "yazdi@on-lyne.com" if not ( Request.Form("email") = "" ) then mymail2.From = Request.Form("email") else mymail2.From = request.form("fname") end if if not ( Request.Form("fname") = "" ) then mymail2.Subject = "Please subscribe me for the "&arrgroup(i)&" - " & ucase(Request.Form("fname")) else mymail2.Subject = "Please subscribe me for the "&arrgroup(i) end if mbody2 = "" if ( Request.Form("sub") = "Subscribe" ) then mbody2 = mbody2 & Request.Form("sub")&" "& arrgroup(i) &" "& Request.Form("fname")&" "& Request.Form("lname")& "
" end if if ( Request.Form("sub") = "Unsubscribe" ) then mbody2 = mbody2 & Request.Form("sub")&" "& arrgroup(i) & "
" end if 'Response.Write mbody2 mymail2.Body = mbody2 mymail2.Importance = 1 mymail2.BodyFormat = 0 mymail2.MailFormat = 0 mymail2.Send success2 = "Y" set mymail2 = nothing next success = "Y" end if %> Your Guide to the web
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
    ON-LYNE GROUPS
 

We are pleased to announce the formation of On-Lyne Interest Groups for your benefit.

Subscribe Now!!!
First Name * :
Last Name * :
Select Group * : Computing
Subscribe/Unsubsrcibe * : Subscribe
Unsubsrcibe
Email id * :

- How do I Subscribe/Unsubscribe to an Interest Group?

Subscribing and Unsubscribing to a Group is very simple. You just need to send a mail to imailsrv@on-lyne.info with the following text in the body of the message:

Subscribe GroupName YourFullName

If an existing List Member wants to unsubscribe, all he has to do is send a mail to imailsrv@on-lyne.info with the following text in the body of the message :

Unsubscribe GroupName

In both the above cases, please replace the GroupName with the actual name of the Group.

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 ( success1 = "Y" and success2 = "Y" ) then 'and success2="y" %> <% end if %>