%@ 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)
%>
Organic Spam Articles -
Articles Archive
<%
Dim pp,ii
pp=10
if Trim(Request.QueryString("pp"))<>"" Then
pp=Request.QueryString("pp")
End if
Dim intPageSize
Dim intCurrentPage
Dim intTotalPages,intI
intPageSize=pp
%>
<%
if Request.querystring("go")="" Then
intCurrentPage=1
Else
intCurrentPage=Request.querystring("CurrentPage")
Select Case Request.querystring("go")
Case "prev"
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 articles order by sdate 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
%>