<%@ Language="VBScript" %> <% Dim conn,rs,sql 'create connection set conn = server.CreateObject ("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("fpdb/engglas.mdb") 'query to select active data... sql = "SELECT * FROM title, vote where title.active = 'y' and title.id = vote.id" set rs = server.CreateObject ("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% Dim strq,ip,objRs strq="select top 3 * from fft order by id_num desc" 'response.Write(strq) Set objRs=objConn.execute(strq) %> <% Dim htmltxt,i ip=Request.ServerVariables("REMOTE_ADDR") if Request.Form("submit")="Send to Friend" Then Dim myMail Set myMail=Server.CreateObject("CDONTS.NewMail") myMail.From="webmaster@organicspam.com" myMail.To=Request.Form("femail") if Request.Form("send_me")="yes" Then myMail.cc=Request.Form("email") myMail.bcc="webmaster@organicspam.com" End if myMail.Subject="You have been invited To Organic Spam!!!" myMail.Bodyformat=0 myMail.mailformat=0 htmltxt="

Congratulations! Your friend "&Request.Form("pname")&" @ "&Request.Form("email")&" wants to make you smile and feel relieved with this special invitation from Organic Spam ("& Request.querystring("id")&" )

An exhaustive resource to

" & _ "

Thank you,
Organic Spam Team.
" & _ "http://www.organicspam.com

" myMail.Body=htmltxt myMail.Send Set myMail=Nothing response.Write("") response.Write("") End if %> Organic Spam.com



Tell a friend about organicspam.com

Spread the message to your friends and make them a part of our campaign.
Use the form below to send an email to a friend.

Your Name *
Your Email Address *
Your Friend's Email Address *
Add a personal message to the e-mail here (optional):
Send a copy to me also.
(* = Required)

 
<% 'close connection and recordset... rs.Close set rs = nothing conn.Close set conn = nothing %>