Ciao e grazie per la disponibilità 
La versione di MySQL che uso è la 4.1.13, comunque l'ultima disponibile sul sito www.mysql.com.
Ho provato il listato che c'è al link che mi hai segnalato, ma c'è ancora qualcosa che non va...
Di seguito l'asp e alla fine del post gli errori.
codice:
<%
dim letteraindice
letteraindice=Request.QueryString ("lettera")
'Recupero le variabili per paginare
page = Cint(request.querystring("page"))
if page = 0 then page = 1
'Assegno il nome del database
database = "database"
call dbConnect(objConn, database)
'Totale dei record
strSQL = "SELECT COUNT(*) FROM archivio"
Set objRS = objConn.Execute(strSQL)
tot_record = objRS(0)
set objRS = nothing
'Record per pagina
pageSize = 5
'Primo record di ogni pagina
inizio = (page - 1) * pageSize
'Pagine complessive per effetto della paginazione
pagine_totali = tot_record / pageSize
'Arrotondamento in caso di resto della divisione precedente
if pagine_totali - CInt(pagine_totali) > 0 then
pagine_totali = CInt(pagine_totali + 1)
else
pagine_totali = CInt(pagine_totali)
end If
%>
<html>
<head>
ecc...
<%
'Visualizzazione dei record paginati
strSQL="SELECT * FROM archivio WHERE gruppo LIKE '" & letteraindice & "%' ORDER BY gruppo LIMIT " & inizio & ", " & PageSize
Set objRS = server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
if tot_record > 0 then
for i=1 to PageSize
if objRS.eof<>true and objRS.bof<>true then
%>
<TR>
<TD width="50%" bgcolor="#363D45"><%=rs(3)%></TD>
<TD width="50%" bgcolor="#363D45"><%=rs(1)%>
<font color="#FFAC00"><% if RS("settimana") = "si" then
Response.Write ("SPOTLIGHTS ON")
end if %></font>
</TD>
</TR>
<%
objRS.movenext
end if
next
Else
Response.write("Nessun record trovato")
end if
%>
<tr align="right" valign="top" bgcolor="#363D45">
<td colspan="4">
<%
'Pagine precedenti
if page > 1 then
Response.write("<--")
else
Response.Write ("|")
end if
'Pagine successive
if tot_record > pageSize and pagine_totali > page then
Response.write("-->")
else
Response.Write ("|")
end if
objRS.close
set objRS = nothing
call dbDisconnect(objConn, database)
'SUB
'Apertura connessione database
sub dbConnect(objConn, database)
connectionstring = "DRIVER={MySQL ODBC 3.51 Driver};DATABASE="& database &";SERVER=localhost;UID=root;PASSWORD=innovatel"
set objConn = server.createObject("ADODB.Connection")
objConn.Open connectionstring
end sub
'Chiusura connessione database
sub dbDisconnect(objConn, database)
objConn.close
set objConn = nothing
end sub
%>
ERRORI
(1) Se uso la seguente stringa in SQL per connettermi al database:
strSQL = "SELECT COUNT(*) FROM archivio WHERE gruppo LIKE '"&letteraindice
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''A' at line 1
/disintegration/archivio_recensioni2_prova.asp, line 14
(2) Se invece uso questa:
strSQL = "SELECT COUNT(*) FROM archivio"
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/disintegration/archivio_recensioni2_prova.asp, line 22
(linea 22: pagine_totali = tot_record / pageSize)
A questo punto non riesco proprio più a capirci niente 
Grazie
Rispondi quotando
