if Not rs.EOF then arrTopicData = rs.GetRows(TopicCount,1) iTopicCount = UBound(arrTopicData, 2) else iTopicCount = "" end if mi sono accorto che non richiamava il db in MSQL dunque lo cambiato copiando da un altro file .
sostituire con questo !
set rs = Server.CreateObject("ADODB.Recordset") if Not strDBType = "mysql" then rs.cachesize = 20 end if rs.open strSql, my_Conn, 3, adLockReadOnly, adCmdText
if Not rs.EOF then arrTopicData = rs.GetRows(TopicCount) iTopicCount = UBound(arrTopicData,2) else iTopicCount = "" end if
rs.CursorLocation=AdUseClient prima di rs.cachesize = 20 cos' potrebbe funzionare con tutti i db.. prova un attimo e poi ci dici (senza tutte le modifiche che hai fatto)
Aggiungi a preferiti
(anche qui:
1 ospite.)
Spedito - 27/10/2008 : 10:15:56
~
Invii: 
