Welcome to SURAT's Most Informative, Advanced, and Fastest Downloading Portal Site

<% if request.servervariables("REQUEST_METHOD")="POST" and request("check")="TELL" then sub sendemail(toemail,toname,fromemail,fromname) Dim strSubject, strBody, strClientMail set objCDOMail = server.createobject("cdonts.newmail") strSubject = "Recommended by : " & fromname strBody = "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "Welcome to SmartSurat.com" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "

Hi, " strBody = strBody & fromname & " wants you to check smartsurat.com portal site
" strBody = strBody & "
Dear user,

" strBody = strBody & "This is surat's most informative, advanced and fastest downloading portal site " strBody = strBody & "with free email, dating, chat, free education, career center, matrimonial," strBody = strBody & "romance, greetings and many more.

" strBody = strBody & "SmartSurat's Message
" strBody = strBody & request("message") strBody = strBody & "

Visit today for Exciting experience.

" strBody = strBody & "Thank you.

Web Master
SmartSurat.com
" strBody = strBody & "Click here to go NOW!!

" strBody = strBody & "

One of your friends sent" strBody = strBody & "this email through our website.
" strBody = strBody & "Friend's name: " & fromname & "
" strBody = strBody & "Friend's IP address: " & request.servervariables("REMOTE_ADDR") & "
" strBody = strBody & "Date and Time: " & now() & "

" strBody = strBody & "

" objCDOMail.From = fromemail objCDOMail.To = toemail objCDOMail.Subject = strSubject objCDOMail.bodyformat = 0 objCDOMail.mailformat = 0 objCDOMail.Body = strBody objCDOMail.send set objCDOMail = nothing end sub if request("f1email") <> "" then call sendemail(request("f1email"),request("f1name"),request("youremail"),request("yourname")) end if if request("f2email") <> "" then call sendemail(request("f2email"),request("f2name"),request("youremail"),request("yourname")) end if if request("f3email") <> "" then call sendemail(request("f3email"),request("f3name"),request("youremail"),request("yourname")) end if%>

Confirmation

Dear User,

Your Information has been successfully submitted .

Thank you for using SmartSurat.com Service.

From
Web Master
SmartSurat.com

<%else%>

Tell a Friend

If you want to tell your friends, or to yourself a reminder, about this site its very easy. Simply fill in the e-mail address of the persons you wish to inform about this site, with your name, and click the SEND button. If you wish to, you can modify the message given in the message box.
	Name	E-Mail Address
Your name
Friend 1
Friend 2
Friend 3
Your Message

<%end if%>