Listato 1 - common.asp

<%
'INIZIO IMPOSTAZIONI ******************
session.LCID = 1040
dbPath = server.mapPath("mdb-database/Db_MySite.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath
'FINE IMPOSTAZIONI *******************
'Lista delle categorie
'INPUT: connessione, id della categoria padre
'OUTPUT: array a due dimensioni con le informazioni del recordset
sub listCat(objConn,cat_parent_id,byRef listCatOutput)
if cat_parent_id = "" or IsNull(cat_parent_id) or cat_parent_id = 0 then cat_parent_id = -1

sql = "SELECT cat_id, cat_name, cat_parent_id, cat_total_sub FROM tCat WHERE cat_parent_id = "& cat_parent_id &" ORDER BY cat_name"
set rs = server.createObject("ADODB.Recordset")
rs.open sql, objConn, 1, 3
if not rs.eof then
v = 0 'Cat
ReDim listCatOutput((rs.recordCount-1),3)
do while not rs.eof
listCatOutput(v,0) = rs("cat_id")
listCatOutput(v,1) = rs("cat_name")
listCatOutput(v,2) = rs("cat_parent_id")
listCatOutput(v,3) = rs("cat_total_sub")
v = v + 1
rs.moveNext
loop
end if
rs.close
set rs = nothing
end sub
'Riepilogo contenuti della categoria selezionata
'INPUT: connessione, id della categoria
'OUTPUT: array a due dimensioni con le informazioni del recordset
sub listContent(objConn,cat_id,byRef listContentOutput)
sql = "SELECT * FROM tContent WHERE cat_id = "& cat_id &" ORDER BY content_title"
set rs = server.createObject("ADODB.Recordset")
rs.open sql, objConn, 1, 3
if not rs.eof then
k = 0
ReDim listContentOutput((rs.recordcount-1),3)
do until rs.eof
listContentOutput(k,0) = rs("content_id")
listContentOutput(k,1) = rs("content_title")
listContentOutput(k,2) = rs("content_description")
listContentOutput(k,3) = rs("cat_id")
k = k + 1
rs.moveNext
loop
else
ReDim listContentOutput(0,3)
listContentOutput(0,0) = 0
listContentOutput(0,1) = "[Nessun titolo]"
listContentOutput(0,2) = "[Nessuna descrizione]"
listContentOutput(0,3) = 0
end if
rs.close
set rs = nothing
end sub
sub dbConnect(objConn,connString)
set objConn = server.createObject("ADODB.Connection")
objConn.open connString
end sub
sub dbDisconnect(objConn)
objConn.close
set objConn = nothing
end sub
%>