Ciao a tutti sto cercando di migrare 1 applicazione da asp a .net ma ho qualche problema con il codice sottostante che in sostanza riproduce un menu... c'è qualche buon samaritano che mi dia delle dritte?
if IsNumeric(parent_id) then
parent_id = cint(parent_id)
end if
if IsNumeric(cat_id) then
cat_id = cint(cat_id)
end if

set rsSubMenu = server.createobject("ADODB.recordset")
rsSubMenu.cursortype = 3

strSQL = "SELECT menu_id, menu_parent_id, menu_name FROM menu ORDER BY menu_name ASC;"
rsSubMenu.open strSQL, adoCon

set rsMenu = server.createobject("ADODB.recordset")
rsMenu.cursortype = 3

strSQL = "SELECT menu_id, menu_parent_id, menu_name FROM menu ORDER BY menu_name ASC;"
rsMenu.open strSQL, adoCon

rsMenu.Filter = "menu_parent_id = 0"

do while not rsMenu.eof
if cat_id = rsMenu("menu_id") OR parent_id = rsMenu("menu_id") then
response.write("»" & rsMenu("menu_name") & "
" & chr(13))
rsSubMenu.filter = "menu_parent_id = " & rsMenu("menu_id")
do while not rsSubMenu.eof
if cat_id = rsSubmenu("menu_id") then
response.write("»" & rsSubMenu("menu_name") & "
" & chr(13))
else
response.write("»" & rsSubMenu("menu_name") & "
" & chr(13))
end if
rsSubMenu.movenext
loop
else
response.write("»" & rsMenu("menu_name") & "
" & chr(13))
end if
rsMenu.movenext
loop

rsSubMenu.close
set rsSubMenu = nothing

rsMenu.Close
set rsMenu = nothing