<% Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl,"/")
istekbolum2=istekbolum(3)
parcala=split(istekbolum2,"-")
islem=parcala(1)
if islem="linkekle" then%>
Link Ekle
<%end if%>
Sitemizde Kayıtlı Linkler
<% rs.open "select * from link_sektor",baglantim,1,3
if not rs.eof then
do while not rs.eof %>
<%= rs("adi") %>
<% ra.open "select * from link where onay=true and link_sektor="&rs("id"),baglantim,1,3
if not ra.eof then
do while not ra.eof %>
" target="_blank"> <%= ra("adi") %> |
<% ra.movenext
loop
end if
ra.close
%>