|
<%If objRs.EOF Then%>
| | Nessun Risultato! |
<%Else%>
| <%=Paging(intPage, objRs.PageCount, objRs.RecordCount)%> | |
|
|
|
<%
If objRs.PageCount < intPage Then intPage = objRs.PageCount
objRs.AbsolutePage = intPage
Dim strRowColor
strRowColor = "#ffffff"
Do While Not objRs.EOF And intRecord <= intPageSize
%>
|
','smaltoweb','fullscreen=no,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=510,height=500,top=30,left=30').focus();"><%=objRs("Nome").Value%>
<%
If strRowColor = "#ffffff" Then strRowColor = "F8F8FA" Else strRowColor = "#ffffff"
intRecord = intRecord + 1
objRs.MoveNext
Loop
%> | |
|
|