da access a mysql

[Partisan75]

Ciao a tutti, sto provando a migrare da db access a mysql e le prime 2 grandi domande sono le seguenti:

1) mi conviene includere un file in tutte le pagine per la connessione al db? come?

2) in tutte le pagine asp ho la dichiarazione <%Option Explicit%> e se aggiungo una select di esempio tipo quella sotto non posso far conciliare le 2 dichiarazioni:

<%@LANGUAGE = JScript%>
<%
 
    // Stringa di connessione a SQL Server
    var stringa = "Data Source=localhost; Database=ecommerce; User ID=root; Password=passprova;" 
    
    // Query da lanciare
    var SQL = "SELECT * FROM prodotti WHERE Data Between (NOW()- interval 21 day) AND (NOW()- interval 8 day)";
 
 
 
    // Apro la connessione ed il recordset
    var cn = new ActiveXObject("ADODB.Connection");
    var rs = new ActiveXObject("ADODB.Recordset");
    cn.Open(stringa);
    rs.Open(SQL, cn, 1)
   
   
    // Verifico se esistono dati nella tabella
    if (rs.EOF)
    {
        Response.Write("Nessun dato presente");
    }
    // Se ce ne sono li stampo a video
    else
    {
        with (Response)
        {
            while (rs.EOF == false)
            {
                Write("ID: " + rs("id") + "<br>");
                Write("Nome: " + rs("Prodotto") + "<br>");
                Write("Cognome: " + rs("SCategoria") + "<br>");
                Write("Telefono: " + rs("Categoria") + "<br>");
                rs.MoveNext();
            }
        }
    }
    rs.Close();
    cn.Close();
%>

come si risolve?
grazie mille in anticipo

[Partisan75]

Salve, dopo un po di tempo sono riuscito ad andare avanti ma vorrei un vostro aiuto prima di fare tutto il lavoro inutilmente, cioè passare da access a mysql, e cioè vorrei chiedervi se faccio bene.

faccio una prima select...

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DB_CONNECTIONSTRING
SQLnews2 = "SELECT * FROM prodotti WHERE Data Between (NOW()- interval 21 day) AND (NOW()- interval 8 day)"
RSnews2 = Server.CreateObject("ADODB.Recordset")
set RSnews2 = conn.execute(SQLnews2)
If Not RSnews2.EOF Then
RSnews2.MoveFirst
Do While Not RSnews2.EOF
%>

Poi all’interno di questa e prima di chiuderla ne faccio un’altra …

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DB_CONNECTIONSTRING
SQLclick2 = "SELECT * FROM click WHERE url = "& FixSQL(RSnews2("ID"))
Set RSclick2 = Conn.Execute(SQLclick2)
If Not RSclick2.EOF Then
clicks = RSclick2("clicks")
Response.write clicks
Else
Response.write 0
End if
RSclick2.close
%>

Ne faccio ancora un’altra…

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DB_CONNECTIONSTRING
SQLPiace2 = "SELECT * FROM PiaceUser WHERE url = "& FixSQL(RSnews2("ID"))
Set RSPiace2 = Conn.Execute(SQLPiace2)
If Not RSPiace2.EOF Then
PiaceUser2 = RSPiace2("PiaceUsers")
Response.write PiaceUser2
Else
Response.write 0
End if
RSPiace2.close
%>

E poi chiudo la prima …

<%
RSnews2.MoveNext
Loop
Else
END IF
RSnews2.Close
%>


All'inizio della pagina ho il file di inclusione con questo codice:

<%
'Evito la memorizzazione in cache/proxy della pagina
response.Expires = -1500
response.AddHeader "PRAGMA", "NO-CACHE"
response.AddHeader "CACHE-CONTROL", "PRIVATE"
response.CacheControl = "PRIVATE"

' MySQL Version
DB_CONNECTIONSTRING = "Data Source=localhost; Database=ecommerce; User ID=root; Password=pass;"
%>

Quindi c'è qualcosa che non va? suggerimenti?
Grazie mille davvero