ciao ho il seguente codice di una pagina in asp che su server win 2000 mi funzionava bene mentre su server win 2003 non riesco a farla girare mi sapete dire dove c'è l'errore??? grazie
<HTML>
<HEAD>
<TITLE>:::: NIGATO srl :::: </TITLE>
</HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<BODY bgcolor="#FFFFFF">
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#A0A0A0" width="751" cellpadding="0" id="AutoNumber2">
<tr>
<td align="center">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" id="AutoNumber3">
<tr>
<td width="751" colspan="2" valign="top"></td>
</tr>
<tr>
<td width="159" valign="top">
</td>
<td width="592" align="center" valign="top">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" id="AutoNumber4" width="100%">
<tr>
<td width="100%">
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
'
<%
Dim iPageSize 'Numero di record da visualizzare
Dim iPageCount 'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent 'Pagina corrente
Dim strOrderBy 'Parametro in base a cui definire l'ordinamento
Dim strSQL 'Comando da eseguire
Dim objPagingRS 'Recordset ADODB
Dim iRecordsShown 'Variabile usata per definire i record mostrati
' Imposto il numero di record visualizzati
iPageSize = 20
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/forum.mdb")
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
sql="select * from forum order by topic desc,livello"
objPagingRS.Open sql, conn, 3, 3
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
' Conto il numero di record restituiti dalla query
iPageCount = objPagingRS.PageCount
' Se il numero di record è maggiore di quello impostato in iPageSize
' allora creo i link avanti e indietro
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
' Controllo che non mi vengano restituiti zero record.
If iPageCount = 0 Then
response.redirect "vuoto.asp"
Else
objPagingRS.AbsolutePage = iPageCurrent
%>
<html>
<head>
<title>*AmicoPc* ...e il computer non è più un problema!</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta NAME="description" CONTENT="AmicoPc.com offre consigli, trucchi e suggerimenti per usare al meglio Internet, Windows, Office. Le guide essenziali alla sicurezza online e all'hardware, la storia dei computer. Possibilità di richieste di aiuto personalizzate direttamente online e in modo completamente gratuito.">
<meta NAME="robots" CONTENT="all">
<meta NAME="copyright" CONTENT="Realizzazione AmicoPc.com. Nessun diritto riservato.">
<meta NAME="Classification" CONTENT="Computer:Help">
<meta NAME="rating" CONTENT="General">
</head>
<body bgcolor="#FFFFFF" text="#6F6F6F" link="#000099" vlink="#000099" alink="#000099">
<table width="447" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="top">
<td width="447">
</p>
<p align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#C60000">
BENVENUTI NEL FORUM ON LINE DELLA NIGATO</font>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Moderatore:
<font color="#000099">Nigato srl</font></font></p>
<table width="447" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="20">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#c60000">
Messaggi</font></p>
</td>
<td height="20"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#c60000">
Mittente</font></td>
<td height="20">
<p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#c60000">
Data</font></p>
</td>
</tr>
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<tr bgcolor="#EBECFF">
<td width="287"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%
if objPagingRS("livello")=0 then
response.write "<span>• </span>"
re=""
else
re= "Re: "
For numerello = 0 To objPagingRS("livello")
Response.Write ""
Next
end if
response.write "" & re & objPagingRS("soggetto")&""
%> </font></td>
<td width="80"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
"><font color="#000099"><% = objPagingRS("nome") %></font>
</font> </td>
<td width="80">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><% = objPagingRS("data")%></font></div>
</td>
</tr>
<%
iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
End If
objPagingRS.Close
Set objPagingRS = Nothing
Conn.Close
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15" width="34%"></td>
<td height="15" width="66%"></td>
</tr>
<tr>
<td width="34%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">[img]immagini/new.gif[/img]
<font color="#000099">nuovo messaggio</font></font></td>
<td width="66%">[img]immagini/cerca.gif[/img]
<a href="search.asp"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000099">
cerca nel forum</font></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25%" height="30"></td>
<td width="25%" height="30"></td>
<td width="25%" height="30"></td>
<td width="25%" height="30"></td>
</tr>
<tr>
<td width="25%"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Pag.
<%= iPageCurrent%> di <%= iPageCount%></font></td>
<td width="25%"> <%
If iPageCurrent <> 1 Then
%>
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<a href="default.asp"><font color="#000099">
indice</font></a></font></div>
<% end if %> </td>
<td width="25%"><%
If iPageCurrent <> 1 Then
%><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a
href="index.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>"><font color="#000099"><<
indietro</font> </a></font><% end if %></td>
<td width="25%"><%If iPageCurrent < iPageCount Then
%>
<div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a
href="index.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">
<font color="#000099">avanti >></font></a></font></div>
<% end if %> </td>
</tr>
</table>
</td>
</tr>
</table>
<p align="center"></p>
</body>
</html></font></p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="751" colspan="2">
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</BODY>
</HTML>
Rispondi quotando
