Connessione Mysql

[mmaria]

Cari amici sono Maria
ho una connessione con visualizzazione di un db access che funziona perfettamente
voglio collegare tutto ad un db MYSQL
come faccio?
Ecco la connessione e la visualizzazione ACCESS
<%
Dim Connect, dbconn
Connect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/search.mdb")
Set dbconn=Server.CreateObject("ADODB.Connection")
dbconn.open Connect
Dim sql,rsSearch
sql = "SELECT siteurl,sitetitle,sitedescriptions FROM sites WHERE sitekeywords Like '%" & srch & "%' ORDER BY dateadded DESC"
Set rsSearch = Server.CreateObject("ADODB.Recordset")
rsSearch.Open sql, dbconn, 3, 3
IF srch = "" Then
total = "0"
ELSE
total = rsSearch.RecordCount
END IF
%>

Ed ecco i dati per connettere al DB MYSQL
Driver={MySQL ODBC 3.51 Driver}; Server=42.189.190.181; Database=Sql338696_1; UID=Sql338696;PASSWORD=3378d7gt;

[Roby_72]

Connect = "Driver={MySQL ODBC 3.51 Driver}; Server=42.189.190.181; Database=Sql338696_1; UID=Sql338696;PASSWORD=3378d7gt;"

Roby

[mmaria]

Per questa riga
sql = "SELECT siteurl,sitetitle,sitedescriptions FROM sites WHERE sitekeywords Like '%" & srch & "%' ORDER BY dateadded DESC"

mi da il seguente errore:
Variable is undefined: 'sql'

[Roby_72]

Dovevi solo sostituire la riga che ti ho fornito al tuo codice. Hai cancellato troppa roba, riguarda con attenzione.

Roby

[mmaria]

hO SOLAMENTE SOSTITUITO QUELLA RIGA
E MI DA QUESTO ERRORE

Per questa riga
sql = "SELECT siteurl,sitetitle,sitedescriptions FROM sites WHERE sitekeywords Like '%" & srch & "%' ORDER BY dateadded DESC"

mi da il seguente errore:
Variable is undefined: 'sql'

[Roby_72]

Secondo me hai tolto anche questa riga...

Dim sql,rsSearch

Roby

[mmaria]

Si hai ragione però adesso mi da questo altro errore

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

su questa riga:
If NOT rsSearch.EOF Then rsSearch.AbsolutePage = currentpage

[Roby_72]

Con MySQL la pagainazione puoi gestirla diversamente potendo usare la clausola LIMIT della query.
Fai una ricerca.

Roby

[mmaria]

Io l'ho fatta in questo modo


<%
Dim srch,currentpage,total,RecordsPerPage,pages,rs1,rs 2,u

currentpage = Request.QueryString("currentpage")
IF currentpage ="" OR currentpage < 1 Then
currentpage = 1
END IF
srch = Request.QueryString("srch")
RecordsPerPage = 10
%>

[Roby_72]

Lo so come l'hai fatta e quella parte di script potrebbe anche essere mantenuta...
E' il resto che devi rivedere, a partire dalla query.

Roby