Interrogazione db un po' lenta

[Dirk Pitt]

Egregi (e gentili signore)
Faccio un'interrogazione sul db (MySQL) per ricavare se la modalità di "settaggio" del numero della rivista sia in automatico oppure in manuale e in entrambi i casi effettuo delle operazioni.
Di seguito il codice (funzionante)

modal = 1    ' 0 = modalità automatica		1 = modalità manuale

sqlstring = "SELECT nr_online.numero AS numero, nr_online.modalita, nr_rivista.numero AS nr_rivista_numero, nr_rivista.mese AS nr_rivista_mese, nr_rivista.anno AS nr_rivista_anno FROM nr_online INNER JOIN nr_rivista ON nr_online.numero = nr_rivista.numero WHERE nr_online.modalita=" & modal

Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.ActiveConnection = objConn
objRs.Open sqlstring

																	' se in modalità manuale, ricerca il valore del numero rivista
If not objRs.EOF then							
	nr_attuale 		= objRs("numero")
	mese_attuale 	= objRs("nr_rivista_mese")
	anno_attuale	= objRs("nr_rivista_anno")
Else															
																	' se in modalità automatica, ricerca il numero
																	' in base all'anno attuale e al mese attuale
	mese_attuale = Month(date)			
	anno_attuale = Year(date)
	
	sqlstring2 = "SELECT numero, mese, anno FROM nr_rivista WHERE mese=" & mese_attuale & " AND anno=" & anno_attuale
	Set objRs2 = Server.CreateObject("ADODB.Recordset")
	objRs2.ActiveConnection = objConn
	objRs2.Open sqlstring2
	
	Do while not objRs2.EOF
		nr_attuale = objRs2("numero")
	objRs2.Movenext
	Loop
	
	objRs2.close
	Set objRs2 = Nothing
End if

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing

Come premesso il suddetto codice funziona, nesusn problema. L'unico fastidio è che ci impiega un po' di tempo per fare le verifiche al db e di conseguenza a caricare la pagina.
Pensate sia dovuto alle query un po' "trigose" (nemmeno poi tanto).
Questo il link http://www.donneinviaggio.it/index2.asp

[Dirk Pitt]

up...