Migrare da un server all'altro... help...

[Diplodus]

Ciao a tutti.
(s)fortunatamente abbiamo deciso di migrare dai server aruba verso altri server.
Il nuovo server è un Windows 2003 Standard Edition, il sito usa MySql, e naturalmente ci sono i primi errori riscontrati.

Il primo è:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.


La parte di codice interessata è la seguente:

function lastupdate()
sql = "SELECT username, lastlogon FROM members WHERE livello = '0' OR livello = '5' ORDER BY lastlogon DESC"
Set query=Server.CreateObject("ADODB.Recordset")
query.Open sql, dbc, 3
if not query.eof then
lastupdate = query("lastlogon")
end if
query.close
set query = nothing
response.Write("<a name=""up""></a>")
end function

invece la stringa di connessione al database è questa:
<%
Response.Buffer=true
Response.ExpiresAbsolute = Now() - 1
Response.addHeader "pragma","no-cache"
Response.CacheControl = "Private"
Session.LCID = 1040
dim dbc

dbConnString = "DRIVER={MySQL ODBC 5.1 Driver};DATABASE=Db1;SERVER=localhost;UID=root;PAS SWORD=P98jpop"

%>

Non capisco dov'è l'errore...
Avete qualche idea? Ho cercato in lungo e in largo, ma non ho trovato nulla. Anche perchè, il forum che usa la stessa connessione al database funziona perfettamente.
Grazie a tutti!

[^ohiaia^]

...gli apici per i numeri nella select?

...potrebbe esser

[Santino83_02]

livello='0' or livello='5' ?? ma non sono campi numerici?

[Diplodus]

allora...
si sono campi numerici ma su aruba non mi da nessun errore...
sul server sì.
tra l'altro ho provato a togliere gli apici e non succede nulla...

[maximum]

Originariamente inviato da Diplodus
allora...
si sono campi numerici ma su aruba non mi da nessun errore...
sul server sì.
tra l'altro ho provato a togliere gli apici e non succede nulla...

Ma che significa!?
Per logica concettuale un campo numerico non va tra apici, sbagli a giustificare il fatto che funzioni.
Concettualmente è ERRATO!!!!

[Diplodus]

ragazzi... concettualmente o no, sul server aruba funziona!
Anche io so che i numerici non vogliono apici, ma questo codice me lo sono ritrovato davanti, il sito è migrato su un altro server e quindi sono cominciati i primi problemi.
...

[^ohiaia^]

provala così:

sql = "SELECT `username`, `lastlogon`, `livello` FROM `members` WHERE `livello` = 0 OR `livello` = 5 ORDER BY `lastlogon` DESC; "

inoltre ... la connessione al db funziona?

... prova anche solo a fare un "select * from ..." e stampa il recordset... per esserne sicuri...

e visto che ci siamo...

  
host = "ind.ip.del.server"
dbnm = "nome del db mysql"
user = "username"
pswd = "password"

  dim conn
  set conn = server.CreateObject("ADODB.Connection")
  conn.Open ("server="& host &";db="& dbnm &";driver=MySQL;uid="& user &";pwd="& pswd &" ")

ovviamente metti i valori "giusti" per host, dbnm, user, pswd

[Diplodus]

Dunque...

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/backoffice/db/libreria.asp, line 173

Questo è l'errore utilizzando sia utilizzando la striga (senza cambiare la connessione) sia utilizzando la connessione con i parametri corretti ovviamente...

A questo punto si tratta di un problema di tipo di campo?

[^ohiaia^]

...suppongo che la riga 173 di libreria.asp sia dove esegui la "sql" di cui sopra...

...allega il file libreria... mejor se per intero... (dentro un quote o un code...)

[Diplodus]

<%
Function SR_Left(strText,intLimite)
Dim intPosSpace, arrExitChars, i

'Array con i caratteri da controllare. Ovviamente è possibile aggiungerne di nuovi, così come eliminare quelli inutilizzati o cambiarne l'ordine di controllo
arrExitChars = Array(" ",".",",",";",":","?","!")
If Not IsNumeric(intLimite) THEN
SR_Left = strText
ElseIf (Len(strText) <= intLimite) Or (intLimite <= 0) Then
SR_Left = strText
Else
For i=0 To Ubound(arrExitChars)
intSpace = inStrRev(Left(strText,intLimite),arrExitChars(i))
If intSpace > 0 Then
SR_Left = Left(strText,intSpace) & "..."
Exit For
Else
SR_Left = Left(strText,intLimite) & "..."
End If
Next
End If
End Function

function replaceTextArea(testo)
if testo <> "" then
replaceTextArea = replace(testo, VbCrLf, "
")
replaceTextArea = replace(replaceTextArea,"'","''")
else
replaceTextArea = testo
end if
end function

function visTextArea(testo)
if testo <> "" then
visTextArea = replace(testo, "

", "")
visTextArea = replace(visTextArea, "</p>", "")
visTextArea = replace(visTextArea, "
", VbCrLf)
visTextArea = replace(visTextArea, "
", "")
else
visTextArea = testo
end if
end function


sBBSLangPage = ""
BBS.SetupBBS
BBS.SetScheme(0)


function amici(id)
' numero friend
sql = "SELECT count(id) as totale FROM myfriends WHERE idmember = "& id &" and conferma =1"
'response.Write(sql)
Set queryfriends=Server.CreateObject("ADODB.Recordset" )
queryfriends.Open sql, dbc, 3
if not queryfriends.eof then
amici = queryfriends("totale")
else
amici = 0
end if
queryfriends.close
end function

function verificaamici(id,idd)
' numero friend
sql = "SELECT count(id) as totale FROM myfriends WHERE idfriend = "& id &" and idmember = "&idd
'response.Write(sql)
Set queryfriends=Server.CreateObject("ADODB.Recordset" )
queryfriends.Open sql, dbc, 3
if not queryfriends.eof then
verificaamici = queryfriends("totale")
else
verificaamici = 0
end if
queryfriends.close
end function


function lastupdate()
sql = "SELECT username, lastlogon FROM `members` WHERE livello = '0' OR livello = '5' ORDER BY lastlogon DESC"
Set query=Server.CreateObject("ADODB.Recordset")
query.Open sql, dbc, 3
if not query.eof then
lastupdate = query("lastlogon")
end if
query.close
set query = nothing
response.Write("<a name=""up""></a>")
end function

function MailMember(idutente)
sql = "SELECT emailaddress, memberId FROM `members` WHERE memberId = "& idutente
Set queryMem=Server.CreateObject("ADODB.Recordset")
queryMem.Open sql, dbc, 3
if not queryMem.eof then
MailMember = queryMem("emailaddress")
end if
queryMem.close
set queryMem = nothing
end function

function DeleteMailMember(idarticolo)
sql = "SELECT idutente FROM `sito_MyWIP` WHERE idarticolo = " &idarticolo
Set query=Server.CreateObject("ADODB.Recordset")
query.Open sql, dbc, 3
imeil=query("idutente")
query.close
set query = nothing
sql = "SELECT emailaddress, memberId FROM `members` WHERE memberId = "& imeil
Set query=Server.CreateObject("ADODB.Recordset")
query.Open sql, dbc, 3
if not query.eof then
DeleteMailMember = query("emailaddress")
end if
query.close
set query = nothing
end function

sBBSLangPage = ""
BBS.SetupBBS
BBS.SetScheme(0)

Queste sono variabili di sessione inizializzate dal forum. Il forum funziona perfettamente.. Il codice scritto per il sito no

Io intanto sto diventando :berto: