Forgive my guys it's not nicely programmed but I'm starting.
The support page is opening the conn and steering the paging process.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="pages_support_region1.asp" -->
<%if not session("AdminOk")="true" then response.Redirect "login.asp" %>
<html><head><style type="text/css">
td{
font-family: verdana;
font-style: normal;
font-weight: bold;
font-size: .6em;
}
</style></head><body>
<script language=javascript>
function checkClick()
{
document.theForm.submit() ;
}
</script>
<form name="form1" method="post" action="search_names_results.asp">
<%
Dim rst, strSQL
set rst = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM SID_Master_Archief WHERE
((([SID_Master_Archief]![Regio1])=True)) ORDER BY
SID_Master_Archief.Document_Datum DESC"
rst.Open strSQL, connect, 3, 1, 1
Dim IntPageSize, PageIndex, TotalPages, TotalRecords
Dim RecordCount, RecordNumber
IntPageSize = 15
PageIndex = Request("PageIndex")
'If pageIndex is empty, set it to one.
if PageIndex = "" then PageIndex = 1
RecordCount = rst.RecordCount
RecordNumber = (PageIndex * IntPageSize) - (IntPageSize)
rst.PageSize = intPageSize ' Set the number of records per page
rst.AbsolutePage = PageIndex 'Define what page number on which the current
record resides.
TotalPages = rst.PageCount
dim intPrev, intNext
intPrev = PageIndex - 1
intNext = PageIndex + 1 'same as rst.AbsolutePage
response.write("<img src=banner.gif alt='ADMIS Webversion 1.0.0.'
border=0>")
response.write("<p>")
response.write("<font face= trebuchet>")
Response.write("<font size = 4 color=green>")
Response.write "ADMIS Region 1 Total Archive"
Response.write("</font>")
'Build table header
With Response
.write "<table border=1 cellpadding=5 cellspacing=0>"
.write "<tr bgcolor=gainsboro>"
.write "<td>ID</td>"
.write "<td>Publishing Date</td>"
.write "<td>Document Link</td>"
.write "<td>Stensbol</td>"
.write "<td>Wilson</td>"
.write "<td>Eisert</td>"
.write "<td>Schaekel</td>"
.write "</tr>"
end with
Dim Count 'We'll use this to limit the number of records displayed on a page
DIM strLocation, euroDate
Dim sLink, sHyperlink
sLink = "N:\CG2\Archief\"
dim intRowColor
Count = 1
do while NOT rst.EOF AND Count <= IntPageSize
With Response
.Write"<tr>"
if intRowColor = 0 Then
.Write "<TR align=left colspan=9 bgcolor=""lightblue"">"
intRowColor = 1
Else
.Write "<TR align=left colspan=9 bgcolor=""white"">"
intRowColor = 0
End if
.Write "<td>" & RecordNumber + Count & "</td>"
euroDate = Right("0" & Day(rst("document_datum")), 2) & "/" &
Right("0" & Month(rst("document_datum")), 2) & "/" &
Year(rst("document_datum"))
.Write "<td>" & euroDate & "</td>"
sHyperlink= sLink & Left(rst("document_link"),
Instr(rst("document_link"),"#")-1)
.Write "<td>" & "<A HREF=""" & sHyperlink & """>" &
Left(rst("document_link"), Instr(rst("document_link"),"#")-1) & "</A>" &
"</td>"
%>
<form name="form1" method="post" action="search_names_results.asp">
<%
if rst("ARR101") = "True" then 'stensbol
.Write "<td align=center><input type=checkbox name=check1 CHECKED
onclick=checkClick();></td>"
else
.Write "<td align=center><input type=checkbox name=check1
onclick=checkClick();></td>"
end if
if rst("ARR103") = "True" then 'wilson
.Write "<td align=center><input type=checkbox name=check2 CHECKED
onclick=checkClick();></td>"
else
.Write "<td align=center><input type=checkbox name=check2
onclick=checkClick();></td>"
end if
if rst("ARR104") = "True" then 'eisert
.Write "<td align=center><input type=checkbox name=check3 CHECKED
onclick=checkClick();></td>"
else
.Write "<td align=center><input type=checkbox name=check3
onclick=checkClick();></td>"
end if
if rst("ARR105") = "True" then 'schaekel
.Write "<td align=center><input type=checkbox name=check4 CHECKED
onclick=checkClick();></td>"
else
.Write "<td align=center><input type=checkbox name=check4
onclick=checkClick();></td>"
end if
%>
<!-- <td align=center><input type=checkbox name=check1 CHECKED
value=<%=x1%> onclick=checkClick();></td>
<td align=center><input type=checkbox name=check2 CHECKED value=<%=x2%>
onclick=checkClick();></td>
<td align=center><input type=checkbox name=check3 CHECKED value=<%=x3%>
onclick=checkClick();></td>
<td align=center><input type=checkbox name=check4 CHECKED value=<%=x4%>
onclick=checkClick();></td> -->
<%
.write "</tr>"
End with
count = count + 1
rst.MoveNext
loop
Response.Write "<tr><td align=center colspan=9 bgcolor=gainsboro>"
call BuildNav2 (intPrev,IntNext,TotalPages)
response.write "</td></tr></table>"
rst.close
%>
<table align=centert><input type="submit" name="Submit"
value="Update"></tr></table>
</body></html>
Marco
