%@ 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 strq2
ip=Request.ServerVariables("REMOTE_ADDR")
if Request.Form("submit")="Submit" Then
'set objRs=Server.CreateObject(ADODB.recordset)
strq2= "exec ossp_ins_ask_se '"&request.Form("name")&"','"&request.Form("email")&"','"&request.Form("se")&"','"&request.Form("subject")&"','"&request.Form("comments")&"','"&request.Form("url")&"','"&date&"','"&ip&"' "
'response.Write(strq)
objConn.execute strq2
End if
%>
Organic Spam.com-Report Spam
Report Search Engine Spam
Report Spam - User’s give their utmost
belief on search Engines. But unfortunately not all search
engines have user’s best interests at heart. The spam results
being displayed by most of the search engines are a burning example
of this. Search engine spam is a crime and to fight against it and
to bring back search engines on the right track we need your support.
As a webmaster or a general user if you feel that you have been
a victim of search engine spam, please let us know by using this
form. We will thoroughly investigate your report and take appropriate
action to uncover such deceptive practices.
<%
if request.QueryString("action")="posted" Then
%>
Your Comment has been posted
<%end if%>
View Spam Reports by others:
Posted on
Posted by
Keyword
Search Engine
Total Views
<%
Dim pp,ii
pp=8
if Trim(Request.QueryString("pp"))<>"" Then
pp=Request.QueryString("pp")
End if
Dim intPageSize
Dim intCurrentPage
Dim intTotalPages,intI
intPageSize=pp
%>
<%
if Request.ServerVariables("CONTENT_LENGTH") = 0 Then
intCurrentPage=1
Else
intCurrentPage=(Request.Form("CurrentPage"))
Select Case Request.form("submit")
Case "« Previous"
intCurrentPage = intCurrentPage - 1
Case "Next »"
intCurrentPage = intCurrentPage + 1
End Select
End if
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation=adUseClient
objRS.CursorType=adOpenStatic
objRS.CacheSize=intPageSize
strQ="select * from report_spam order by id_num desc"
objRS.Open strQ,objConn,,,adCmdText
objRS.PageSize=intPageSize
If Not(objRS.EOF)Then objRS.AbsolutePage=intCurrentPage
intTotalPages=objRS.PageCount
%>
<%
For intI = 1 To objRS.PageSize
%>