<% myDB = "/MDB-database/riassortimenti.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
dim rs
dim deposito
sql = "SELECT * FROM Table1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn ,3,3
deposito = "PE"
do while not (rs.eof or PE)
if(strcomp(rs("depositorichiedente"),deposito,vbtextcompare)=0)then
response.write ("deposito")
else
rs.movenext
end if
loop

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing