kategorileri yanyana dizme

kategoriler 

Online Haber
Gazeteler
Dergiler
Online Dergi
Radyolar
Televizyonlar

Online Haber Gazeteler Dergiler Online Dergi Radyolar Televizyonlar

<center>
<table width="770" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td>
            <!--#include file="ust.asp" --></td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr bgcolor="#FFFFFF">
            <td width="19%" valign="top"></td>
            <td width="61%" valign="top">
            <table width="99%" border="0" cellspacing="0" cellpadding="0" align="center" bordercolor="#FFFFFF">
              <tr>
                <td background="tm7/backk.JPG">
                <div align="center">
                  <font color="#666666">ALT KATEGORİLER</font></div>
                </td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF">
                <!--#include file="config.asp"--><%
dim catID
dim conn
dim rs
dim sql
dim title
dim url
dim sDesc
dim sql1
dim us


catID = request.queryString("catID")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
    
Conn.Open dsn
    
SQL = "SELECT * from links where Durum = 'Aktif' and catID="&catID & " and subCatID = 0"
    
rs.Open SQL, Conn

%> <br>
                <%
SQL1 = "SELECT * from subTopics where  catID="&catID
set us = conn.execute(sql1)
do while not us.eof

	response.write "<a href=secCat.asp?mainID=" & catID & "&catID="& us("id") & ">" & us("title") & "</a><br>"
	
us.movenext
loop
%> <br clear="all">
                <font color="red">Bu Kategoride Herhangi Bir Alt Kategoriye Girmeyen 
                Siteler:</font><br>
                <% if rs.eof then response.write "Bu kategoride herhangi bir alt kategoriye girmeyen site bulunamadı..."
do while not rs.eof
	title = rs("title")
	url = rs("url")
	sDesc = rs("sDesc")
%> <a href="secCatDevam.asp?id=<%=rs("id")%>"><br>
                <%=rs("title")%></a><br>
                <%=Left(rs("sDesc"),160)%>
                <a href="secCatDevam.asp?id=<%=rs("id")%>">devamı...</a><br>
                <br>
                <%
rs.movenext
loop

'closing objects
us.close
set us = nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
%> <br>
                <br>
                <center>
                <p></p>
                </center></td>
              </tr>
            </table>
            </td>
            <td width="20%" valign="top"></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>
        <!--#include file="alt.asp" --></td>
      </tr>
    </table>
    </td>
  </tr>
</table>

</body>
</center>

</html>