|
Ask
Search Engine
You have every reasons to question search engines. If you
feel search engines are playing with your trust, natural results, and ultimately blurring your online world, don't hesitate but ask. If you have the power to make a change, raise you voice and seek explanation for their unjust actions, if any you feel. Don’t
let search engines take advantage
of your silence, instead raise your voice and question search engines
ethics and moral responsibilities. Fill in the form below to ask search engines.
<%
if request.QueryString("action")="posted" Then
%>
Your Question has been posted
<%end if%>
View Questions by others:
| Posted on |
Posted by |
Subject |
Search Engine |
Total Views |
<%
Dim objRs,strQ
Dim pp,ii
pp=15
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 "<>"
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 ask_se 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
%>
| <%=objRS("sdate")%> |
<%=objRS("pname")%> |
|
<%=objRS("se")%> |
<%=objRS("total_view")%> |
<% objRS.MoveNext()
if objRS.EOF Then Exit For
Next
objRS.Close :
Set objRS=Nothing :
%>
Disclaimer |