<%@ Language=VBScript %> <% Session.LCID = 1033 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("catalog"), "")%> <%=GetData(rsData.Fields("category1"), "")%> <%=GetData(rsData.Fields("type"), "")%> <%=GetData(rsData.Fields("size_w"), "")%> <%=GetData(rsData.Fields("size_h"), "")%> <%=GetData(rsData.Fields("size_l"), "")%> <%=GetData(rsData.Fields("e_size_w"), "")%> <%=GetData(rsData.Fields("e_size_h"), "")%> <%=GetData(rsData.Fields("e_size_l"), "")%> <%=GetData(rsData.Fields("wurl"), "Hypelink")%> <%=GetData(rsData.Fields("notes"), "")%> <% iNumberOfRows = iNumberOfRows + 1 rsData.movenext Loop end if end sub sub WriteTableHeader %> <% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" %> <% end sub %>

" & Label("pic") & "

" & Label("catalog") & "

" & Label("category1") & "

" & Label("type") & "

" & Label("size_w") & "

" & Label("size_h") & "

" & Label("size_l") & "

" & Label("e_size_w") & "

" & Label("e_size_h") & "

" & Label("e_size_l") & "

" & Label("wurl") & "

" & Label("notes") & "