IIS6 e non vedo più i numeri di pagina

[Gordio]

Buongiorno

ho un dilemma che mi stà logorando!!

Ho realizzato un progettino in ASP e una parte di questo presenta a video un impaginazione di record.
Lo sviluppo l'ho fatto su un PC con Win2000 e relativo IIS (credo 5), il tutto funzionante con l'impaginazione di 30 record x pagina e in fondo i link ai numeri delle restanti pagine .
Il codice dell'impaginazione l'ho preso da un esempio (credo proprio su questo forum)e riadattato.

Il problema è sorto quando ho spostato tutto il progetto su un SERVER Win 2003 con IIS6....
praticamente se da un client interrogo l'impaginazione non vedo + i numeri di pagina in fondo per navigare tra i record... altra cosa strana è che se eseguo lo script dallo stesso server 2003 in cui risiede, queste magicamente riappaiono!!! :master:

Quello su Win 2000 funziona sia in locale che dal client!!!


questo è il codice dello script .. preciso che i ResponseWrite di "pagine" e quello del LINK per tornare all'HOME vengono stampati a video.... mancano solo i numeri (link) delle pagine!!

<link type="text/css" rel="stylesheet" href="tabstyle.css" />
<%
Dim filepatch
Dim Conn
Dim Rs_ADB
Dim Sql
On Error Resume Next
' ---------- Apre la connessione con il DB Access ---------

filepatch= Server.MapPath ("DBfabbi/appofabb.mdb")
'------------- Seleziono i campi da mostrare -----------
Sql="SELECT codice, tp, desccod, descforn FROM Tb_fabbisogno"
set Conn= Server.CreateObject("ADODB.Connection")
Conn.open ("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" +filepatch)
set Rs_ADB = Server.CreateObject("ADODB.Recordset")
'----------------------------PAGINAZIONE---------------------
'Imosto il numero di rec x pagina e controllo il n°pagina
'------------------------------------------------------------
recxpage = 30 'NUMERO RECORD PER PAGINA
page=Request("page")
            If page = "" Then
                page= 1
            'Else
            '    iPageCurrent = CInt(Request.QueryString("page"))
            End If
'-------------------------------------------------------------
Rs_ADB.open Sql, Conn, 3,3
'---------------------------------------------------------------
'    Valorori oggetto paginazione
'---------------------------------------------------------------
Rs_ADB.PageSize = recxpage
Rs_ADB.AbsolutePage = page 
If Rs_ADB.Eof=True or Rs_ADB.Bof=True then 
   Response.Write "

Nessun risultato trovato</P>" 
Else 
Response.Write "<table id='sezprinc'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#cccccc'>"
Response.Write "<table cellpadding='2' cellspacing='1' border='0' width='100%'>"
Response.Write "<tr height='22'>"
Response.Write "<td bgcolor='#dddddd' WIDTH='15%'><font face='verdana' 15px color='#000000'>[b]CODICE[/b]</font></td>"
Response.Write "<td bgcolor='#dddddd' WIDTH='4%' align='center'><font face='verdana' size='1' color='#000000'>[b]TP[/b]</font></td>"
Response.Write "<td bgcolor='#dddddd' WIDTH='20%' align='center'><font face='verdana' size='1' color='#000000'>[b]DESCRIZIONE[/b]</font></td>"
Response.Write "<td bgcolor='#dddddd' WIDTH='20%' align='center'><font face='verdana' size='1' color='#000000'>[b]Ultimo FORNITORE[/b]</font></td>"
Response.Write "</tr>"
            
             
    For i=1 to recxpage 
        if Not Rs_ADB.EOF then 
               Dim Rig, bg
               Rig = Rig + 1
               If Rig Mod 2 = 0 then
                     bg = "#E4E4E4"
               Else
                     bg = "#ccccff"
               End if    
               Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' >" & Rs_ADB(0) & "</font></td>"
               Response.Write "<td align='center'><font color='#000000' face='Verdana' >" & Rs_ADB(1) & "</font></td>"
               Response.Write "<td align='center'><font color='#000000' face='Verdana' >" & Rs_ADB(2) & "</font></td>"
               Response.Write "<td align='center'><font color='#000000' face='Verdana' >" & Rs_ADB(3) & "</font></td></tr>"
               Rs_ADB.MoveNext 
        end if 
    Next
    Response.Write ("</table></center>") 
End if 
Response.Write "

[B]Pagine:[/B] "
For pag=1 to Rs_ADB.PageCount 
    Response.Write "<A href='provatabfab2.asp?page=" & pag & "'>" 
    Response.Write pag 
    Response.Write "</A> " 
Next
    Response.Write "</P>" 
    Response.Write "[url='default.html']Home[/url]"
Rs_ADB.Close 
Set Rs_ADB=Nothing 
Conn.Close 
SetConn=Nothing 

Response.Write "</TABLE>"    
Response.Write "</TD>"
Response.Write "</TR>"
Response.Write "</TABLE>"        
%> 

aiuto please!!!

Grazie