<%
Dim Con, sConnString
'Dim MM_sConnString_STRING
'MM_sConnString_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/product.mdb")
Set Con = Server.CreateObject("ADODB.Connection")
'con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/product.mdb")
'sConnString = "Provider = Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.Mappath("/mdb-database/product.mdb")
'sConnString = "Provider = Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.Mappath("./product.mdb")
'Con.Open(sConnString)
'Set con=server.createObject("adodb.connection")
con.open Application("Product")
'con.open "product1"
%>
<%
'id parent
function getParent(con,id)
dim rez
set rs=server.createObject("adodb.recordset")
rs.open "select * from cat where id=" & id,con
while not rs.eof
if rs.bof then break
rez=rs("parent").value
rs.moveNext
wend
rs.close
set rs=nothing
getParent=rez
end function
'-------------------------------
function getNameParent(con,id)
dim rez
rez=""
set rs=server.createObject("adodb.recordset")
rs.open "select name from cat where id=" & id,con
while not rs.eof
if rs.bof then break
rez=rs("name").value
rs.moveNext
wend
rs.close
set rs=nothing
if rez="" then rez="Main"
'if rez="" then rez="Main"
getNameParent=rez
end function
%>
<%
id=request("id")
if(id="")then id=0
%>
<%
if cint(id)>0 then
%>
<% ElseIf id=0 Then %>
<%
end if
%>
<%=getNameParent(con,id)%>
<%
set rs=server.createObject("adodb.recordset")
rs.open "select * from cat where parent=" & id ,con
while not rs.eof
if rs.bof then
break
end if
%>
