<% Dim DocIcon(3) DocIcon(0) = "pdf.png" DocIcon(1) = "doc.png" DocIcon(2) = "xls.png" DocIcon(3) = "url.png" '-------------------------------------------------------------- Sub MakeURL(docID,docURL) if docURL = "" or isNull(docURL) then Response.Write(" ") else Response.Write("") end if End Sub '-------------------------------------------------------------- Set cnnMDB = Server.CreateObject("ADODB.Connection") cnnStrMDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("treeDocs.mdb") cnnMDB.Open(cnnStrMDB) Set rs1 = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") Set rs3 = Server.CreateObject("ADODB.RecordSet") Set rs4 = Server.CreateObject("ADODB.RecordSet") '-------------------------------------------------------------- rs1SQL = "SELECT * FROM treeDocs WHERE ParentID = 0 ORDER BY ID" rs1.Open rs1SQL,cnnMDB,3,1 %> <% do until rs1.EOF itmID1 = rs1("ID") %> <% rs1.MoveNext loop rs1.Close '--------------- Set rs1 = Nothing Set rs2 = Nothing Set rs3 = Nothing Set rs4 = Nothing %>

TİCARET SİCİLİ İŞLEMLERİ REHBERİ ALANYA TİCARET VE SANAYİ ODASI - TİCARET SİCİLİ MÜDÜRLÜĞÜ
+	<%=rs1("txtItem")%>
	<% rs2SQL = "SELECT * FROM treeDocs WHERE ParentID = " & itmID1 & " ORDER BY ID" rs2.Open rs2SQL,cnnMDB,3,1 do until rs2.EOF itmID2 = rs2("ID") urlDOC = rs2("urlDOC") urlPDF = rs2("urlPDF") tipDOC = rs2("docType") '------------------ rs3SQL = "SELECT * FROM treeDocs WHERE ParentID = " & itmID2 & " ORDER BY ID" rs3.Open rs3SQL,cnnMDB,3,1 if rs3.EOF then sign2 = "-" urlEx = rs2("txtItem") class2= "secondNoLink" else sign2 = "+" urlEx = "" & rs2("txtItem") & "" class2= "second" end if %> <% rs2.MoveNext loop'rs2 rs2.Close %> <%=sign2%> <%=urlEx%> <%Call MakeURL(tipDOC,urlDOC)%> <%Call MakeURL(0,urlPDF)%>   <% do until rs3.EOF itmID3 = rs3("ID") urlDOC = rs3("urlDOC") urlPDF = rs3("urlPDF") tipDOC = rs3("docType") '--------------------- rs4SQL = "SELECT * FROM treeDocs WHERE ParentID = " & itmID3 & " ORDER BY ID" rs4.Open rs4SQL,cnnMDB,3,1 if rs4.EOF then sign3 = "-" urlEx = rs3("txtItem") class3= "thirdNoLink" else sign3 = "+" urlEx = "" & rs3("txtItem") & "" class3= "third" end if %> <% rs3.MoveNext loop rs3.Close %> <%=sign3%> <%=urlEx%> <%Call MakeURL(tipDOC,urlDOC)%> <%Call MakeURL(0,urlPDF)%>   <% do until rs4.EOF itmID4 = rs4("ID") urlDOC = rs4("urlDOC") urlPDF = rs4("urlPDF") tipDOC = rs4("docType") %> <% rs4.MoveNext loop rs4.Close %> · <%=rs4("txtItem")%> <%Call MakeURL(tipDOC,urlDOC)%> <%Call MakeURL(0,urlPDF)%>

<% cnnMDB.Close Set cnnMDB = Nothing %>