<%  
   
  Oku="DBQ="& Server.Mappath("db.mdb") &";Driver={Microsoft Access Driver (*.mdb)}"  
  Set Baglan=Server.CreateObject("Adodb.Connection")  
  Baglan.Open Oku  
  %>  
  <%  
  Set Rs=Server.CreateObject("Adodb.Recordset")  
  sorgu = "Select * from anakat"  
  Rs. Open Sorgu, Baglan, 1, 3  
  %>  
   
  <%  
  do while not rs.eof  
  %>  
  <a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=8780299&url=b.asp?id=<%=rs("id")%>" data-href="b.asp?id=<%=rs("id")%>"><%=rs("anakatismi")%></a>  
  <%  
  rs.movenext  
  loop  
  rs.close  
  set rs=nothing  
  %>  
  

 
  <%  
   
  Oku="DBQ="& Server.Mappath("db.mdb") &";Driver={Microsoft Access Driver (*.mdb)}"  
  Set Baglan=Server.CreateObject("Adodb.Connection")  
  Baglan.Open Oku  
  %>  
   
  <%  
  id=request.querystring("id")  
  Set Rs=Server.CreateObject("Adodb.Recordset")  
  sorgu = "Select * from altkat where catid="&id&" "  
  Rs. Open Sorgu, Baglan, 1, 3  
  %>  
   
   
  <%  
  do while not rs.eof  
  %>  
  <%=rs("altkatismi")%>  
  <%  
  rs.movenext  
  loop  
  rs.close  
  set rs=nothing  
  %>