Satan Reklam :: Basin Reklamları

<% 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="basin" %> Satan Reklam :: Basin Reklamları

<% 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() %>

<% if pagename="gulenelma" then %>

<% sql=" SELECT * FROM TV WHERE ID IN (SELECT MAX(ID) FROM TV)" objRS.open sql,objCN,1,3 %>

,300,220)">

<%=objRS("IMG_NAME")%>" border="0" vspace="3" width="100" height="75">
<%=objRS("TITLE")%>

<% objRS.close %>

<% else %>

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

<% sql=" SELECT * FROM PRESS ORDER BY NEW DESC,PRIORITY DESC, DATE DESC" objRS.open sql,objCN,1,3 if not objRS.eof then %> <% maxPageCap=6 counter=3 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 then%>

<% else %>

<%end if%>

sayfa <%=curPage %>

<%if (curPage*maxPageCap)

<% else %>

<%end if%>

<% while not objrs.eof and co <% if counter<1 then %> <% counter=3 end if%> <% co=co+1 co1=co1+1 counter=counter-1 objRS.movenext wend end if if counter<>0 then while counter<>0 %> <% counter=counter-1 wend end if objRs.close %>


,650,450)"><%=objRS("IMG_NAME")%>" border="0" vspace="3" width="100" height="75"> <% if objRs("NEW")= 1 then %> <% end if %> <%=objRS("TITLE")%>

[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]