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!!
Codice PHP:
<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 
Rispondi quotando
