Prova ad adattarti questo:
<%
codice:
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"/mdb-database/new.mdb")
Dim SQLDown,RECDown,sql1,sql2,rs1,rs2
sql1 = "SELECT * FROM tabella_sottocategorie"
set rs1 = conn.execute(sql1)
if not rs1eof then
do until rs1.eof
response.write rs1("nome_sottocategoria") & " - "
sql2 = "SELECT nome_categoria FROM tabella_categorie WHERE id_categoria = " & rs1("id_Categoria")
set rs2 = conn.execute(sql2)
if not rs2.eof then
response.write rs2("nome_categoria")
end if
rs2.close
set rs = nothing
response.write "</br>"
rs1.moveNext
loop
end if
rs1.close
set rs1 = nothing
conn.close
set conn = nothing
%>