<% Set objCn = Server.CreateObject ("ADODB.Connection") Set objRs = Server.CreateObject ("ADODB.Recordset") objCn.ConnectionString = "Data Source="& Server.MapPath("./cgi-bin/ercsr02.mdb") objCn.Provider = "Microsoft.JET.OLEDB.4.0" objCn.Open %> <%%> <% pagename="ajanslar" %> Satan Reklam :: Reklam Ajansları
<% sql="SELECT * FROM BANNERS WHERE PAGENAME='"& pagename & "'" objRs.open sql,objCn,1,3 if not objRs.EOF then %> " >" width="468" height="60" border="0"> <% end if objRs.Close() %>
anasayfa
bize yazin
linkler
uye olun
tv reklamları
basın reklamları
internet reklamları
anti reklamlar
güncel reklamlar
göze batanlar
gülen elma
reklam ajansları
iş imkanları
mağaza
reklam arama

<% if pagename="gulenelma" then %>
<% sql=" SELECT * FROM TV WHERE ID IN (SELECT MAX(ID) FROM TV)" objRS.open sql,objCN,1,3 %> <% objRS.close %>
<% else %>



<%end if%> <%%> <%%> <%%> <%%>


<% sql=" SELECT * FROM AGENCIES WHERE ISPUBLISH=1 ORDER BY PRIORITY DESC, NAME " objRS.open sql,objCN,1,3 if not objRS.eof then %> <% maxPageCap=10 if trim(request.querystring("page"))="" then curpage=1 else curPage=cint(trim(request.querystring("page"))) end if recCo=objRs.recordcount x=(curpage-1)*maxPageCap if x>recCo then response.write "hata" response.end end if objRs.move x co=0 co1=(curPage-1)*maxPageCap %> <% if ((curPage>1)or((curPage*maxPageCap)
<%if curPage>1 then%> <% else %> <%end if%>
sayfa <%=curPage %>
<%if (curPage*maxPageCap) <% else %> <%end if%>
<%else%>

<%end if%> <% while not objrs.eof and co
<%=objRS("NAME")%>
Adres : <%=objRS("ADDRESS")%>
Telefon : <%=objRS("PHONE")%>
Fax : <%=objRS("FAX")%>
E-mail : <%=objRS("EMAIL")%>
Web : " target="_blank"><%=objRS("WEB")%>

<% co=co+1 co1=co1+1 objRS.movenext wend end if %> <% if ((curPage>1)or((curPage*maxPageCap)
<%if curPage>1 then%> <% else %> <%end if%>
sayfa <%=curPage %>
<%if (curPage*maxPageCap) <% else %> <%end if%>
<%else%>

<%end if%>

 
 
[Tv Reklamları] [Basın Reklamları] [İnternet Reklamları] [Anti Reklamlar] [Güncel Reklamlar] [Göze Batanlar] [Gülen Elma]
[Reklam Ajansları] [İş İmkanları] [Bize Yazın] [Linkler] [Üye Ol] [Reklam Verin]

Satan Reklam © 2003