Ciao a tutti,
sono una novellina e sto facendo un sitino in flash con interrogazioni al database (per quello nel codice che segue ci sono degli strani response!
)
I miei problemi sono 2:
1 questo collegamento é veramente lentissimo come posso accelerare la connessione
2 come vedte dal codice io cerco di selezionare solo i records che anno il capo anno1 e anno2 rispettivamente >= e <= della variabile che gli mando. ma quello che ho scritto non funziona!!
qualcuno puó aiutarmi!??
grazie
<%@ Language=VBScript %>
<%Option Explicit%><%
Dim Conn
Dim SQL
Dim ris, datamin, datamax
Dim primo, numrec, file,datainput,datainput2,fondo,comm,tipo1
Dim anno1,anno2, linkfile1,linkfile1a,linkfile1b,linkfile1c, linkfile2
Const adOpenKeyset = 1
set Conn = Server.CreateObject("ADODB.Connection")
set ris = Server.CreateObject("ADODB.Recordset")
SQL = 0
datainput = request.querystring("anno")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath ("memoria.mdb")
'questo é quello che compare nel database access al capo che mi serve
'SELECT [interventi].[Tipo], * FROM interventi ORDER BY [interventi].[Tipo];
SQL = "select * FROM fondi WHERE anno1>= "& datainput &" and anno2 <= "& datainput
SQL = SQL & " ORDER BY committente"
ris.Open SQL, Conn
primo = 0
numrec = 0
Do While not ris.EOF
if numrec=0 then
fondo = "fondo" & numrec & "="
else
fondo = "&fondo" & numrec & "="
end if
comm = "&committente" & numrec & "="
tipo1 = "&tipologia1" & numrec & "="
numrec = numrec+1
Response.Write(fondo & ris.Fields("fondo").Value)
Response.Write(comm & ris.Fields("committente").Value)
Response.Write(tipo1 & ris.Fields("Tipo1").Value)
'end if
ris.MoveNext
Loop
Response.Write("&nrec=" & numrec)
Response.Write("&fine=1")
ris.Close
Conn.Close
set Conn = Nothing
set ris = Nothing
'set categinput = Nothing
response.end
%>
