inizio così:
codice:
<%
Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"/mdb-database/store.mdb")
Dim RECDown,SQL
Set RECDown= server.CreateObject("ADODB.Recordset")
Dim strDenominazione
strDenominazione = Replace(Request("denominazione"), "_", " ")
Dim SQLDown
SQLDown = "SELECT * FROM catalogo_Articoli WHERE denominazione = '"& strDenominazione &"' order by denominazione asc"
RECDown.Open SQLDown,ConnDown,1,3
dim numRecords
numRecords = RECDown.RecordCount
if RECDown.eof then
response.write "Nullo"
else
While Not RECDown.EOF
%>
<%
RECDown.MoveNext
WEnd
end if
RECDown.Close
ConnDown.Close
Set RECDown = Nothing
Set ConnDown = Nothing
%>
non va in errroe ma non estrae nulla... :master: