<%@ 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 tv,objRs2 ip=Request.ServerVariables("REMOTE_ADDR") if request.QueryString("id")<>"" Then strq="select * from report_spam where id_num="&Request.QueryString("id") Set objRs2=objConn.execute(strq) End if %> Organic Spam.com
Ask Search Engines
 
Ask Google
 
Ask Yahoo
 
Ask MSN
 
other engine
 
<%While not objRs.EOF%> <% objRs.movenext Wend %>
 
  » "><%=objRs("question") %>
   
 
 
<% 'if no data in database for selected query... if rs.eof then %> <%else%>
Web Poll
 
Active poll :

No active poll!
 
" method="POST" id="form1" name="form1">
<%=rs.fields("title")%> 
<% Dim a 'create radio buttons for a = 1 to rs.recordcount %> "> <%=rs.fields("answer")%>
<% rs.movenext if rs.eof then rs.movelast end if next %>
">
  <%end if%> <% 'close recordset rs.Close set rs = nothing 'open rs with new query .. to select inactive data... sql = "SELECT * FROM title where active = 'n'" set rs = server.CreateObject ("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>
 Previous polls
 
  SE Litigation
  Sebs Review
  SE Humour
   



<% While not objRs2.eof tv=Cint(objRs2("total_view"))+1 %>
Keyword: <%=objRs2("keyword")%> Search Engine: <%=objRs2("se")%>
Total Views : <%=tv%>
Spam Url :  <%=objRs2("spam_url")%>

 

<%=objRs2("comment")%>

 

<% if objRs2("upload_file")="NA" Then %> <% else %> " width="64" height="64">

<%end if%>

 
(Posted by <%=objRs2("pname")%> on <%=objRs2("spam_date")%>)

 

<% objRs2.movenext Wend objRs2.close Set objRs2=nothing objConn.execute("update report_spam set total_view="&tv&" where id_num="&request.QueryString("id")) %>

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