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