Script Asp: Passare a Mysql da Access

[Shiva]

Ho uno script per la gestione di news in parte rivisto insieme a molti gentili utenti di html.it; sto provando a connetterlo a mysql ma...

La stringa di connessione è:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "server=62.149.XXX;db=Sql96001_1;" & _
"uid=XXX;pwd=XXX;driver=MySQL ODBC 3.51 Driver"
Conn.Open
%>

Mi restituisce il seguente errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/contactnewsletter_copia(2).asp, line 280

Il codice che estrapola i record è

<%Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%><% 
displayRecs = 5
recRange = 4
%><%
tablename = "[accouncements1]"
dbwhere = "[categoria]"
a_search = ""
b_search = ""
%><%
' Load Default Order
DefaultOrder = "date"
DefaultOrderType = "DESC"
OrderBy = ""
If Request.QueryString("order").Count > 0 Then
OrderBy = Request.QueryString("order")
' Check if an ASC/DESC toggle is required
If Session("accouncements_OB") = OrderBy Then
If Session("accouncements_OT") = "ASC" Then
Session("accouncements_OT") = "DESC"
Else
Session("accouncements_OT") = "ASC"
End if
Else
Session("accouncements_OT") = "ASC"
End If
Session("accouncements_OB") = OrderBy
Session("accouncements_REC") = 1
Else
OrderBy = Session("accouncements_OB")
if OrderBy = "" then
OrderBy = DefaultOrder
Session("accouncements_OB") = OrderBy
Session("accouncements_OT") = DefaultOrderType
End If
End If
If Request.QueryString("start").Count > 0 Then
startRec = Request.QueryString("start")
Session("accouncements_REC") = startRec
Else
startRec = Session("accouncements_REC")
if not isnumeric(startRec) or startRec = "" then
'reset start record counter
startRec = 1
Session("accouncements_REC") = startRec
End If
End If
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
strsql = "select * from [accouncements1]"
strsql = strsql & " WHERE 1=1 "
cat = request.QueryString("cat")
If dbwhere <> "" Then
strsql = strsql & " AND categoria = '"& cat &"' " 
End If
escludi = ("escludi")
If dbwhere <> "" Then
strsql = strsql & " AND NOT categoria = '"& escludi &"' " 
End If
if OrderBy <> "" then 
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("accouncements_OT")
end if 
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2 
totalRecs = rs.RecordCount
%><%
'Avoid starting record > total records
if clng(startRec) > clng(totalRecs) then
startRec = totalRecs
end if
'Set the last record to display
stopRec = startRec + displayRecs - 1
recCount = startRec - 1
if not rs.eof then
rs.movefirst
rs.move startRec - 1
end if
recActual = 0
Do While (NOT rs.EOF) AND (recCount < stopRec)
recCount = recCount + 1
If Clng(recCount) >= Clng(startRec) Then 
recActual = recActual + 1 %><%
x_Date = rs("Date")
x_Title = rs("Title")
x_Categoria = rs("Categoria")
%>

In rosso la riga 280; sto facendo errori clamorosi??

[Santino83_02]

http://www.connectionstrings.com/mysql

[Shiva]

Ho corretto così:

<%
xDb_Conn_Str = "Driver={MySQL ODBC 3.51 Driver};Server=62.149.xx;Port=3306;Database=Sql96001_1;User=Sql96001; Password=000000;Option=3;"
%>

e mi dice

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/contactnewsletter_copia(2).asp, line 296 che nel codice corrisponde a

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
totalRecs = rs.RecordCount


Ma almeno al database si è connesso? :master:

[eddyy]

non sono molto esperto, ma mi viene in mente:: ma hai visto se sull'hosting sia abilitato il mysql??

[Mizushi]

Modifica così:

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
totalRecs = rs.RecordCount

Oltretutto Mysql non supporta il recordcount, occhio...

[Santino83_02]

in genere gli hosts non usano i driver odbc ma gli oledb quindi prova a cambiare il connectionstrings. e in genere sempre c'è nelle faq un esempio di connectionstrings