<%@ Language=VBScript %>
<%
Session.LCID = 1040
On Error Resume Next
strSQL = Request.Form("SQL")
set dbConnection = server.CreateObject ("ADODB.Connection")
dbConnection.ConnectionString = strConnection
dbConnection.Open
Set rsDetails = server.CreateObject ("ADODB.Recordset")
rsDetails.Open strSQL, dbConnection
if NOT rsDetails.EOF then
mypage = Request.Form("mypage")
rsDetails.PageSize = Request.Form("pagesize")
maxRecords = cdbl(rsDetails.RecordCount)
maxPages=cdbl(rsDetails.PageCount)
if cdbl(mypage) > cdbl(maxPages) then
mypage = maxpages
End IF
rsDetails.AbsolutePage = mypage
maxrecs=cdbl(rsDetails.pagesize)
End IF
call WriteTableHeader
Call loopRs(rsDetails, CLng(Request.Form("pagesize")))
Response.Write("")
rsDetails.Close
Set rsDetails = Nothing
' display table with results
sub loopRs(rsData, nPageSize)
' Pagination:
dim iShadeTheDetail
dim iNumberOfRows
iNumberOfRows = 0
if isObject(rsData) then
' Pagination: UNTIL iNumberOfRows>=maxrecs
DO UNTIL rsData.eof OR iNumberOfRows>=nPageSize
' To insure that every other one is shaded
If iShadeTheDetail = 0 then
sShadeClass = "class=shade"
iShadeTheDetail = 1
Else
sShadeClass = ""
iShadeTheDetail = 0
End If
%>
>
<%=GetData(rsData.Fields("ANNO"), "")%>
<%=GetData(rsData.Fields("AUTORE"), "")%>
<%=GetData(rsData.Fields("TITOLO"), "")%>
<%=GetData(rsData.Fields("EDITORE"), "")%>
<%=GetData(rsData.Fields("PAGINE"), "")%>
">
<%
iNumberOfRows = iNumberOfRows + 1
rsData.movenext
Loop
end if
end sub
sub WriteTableHeader
%>