Satan Reklam :: Reklam Arama

<% 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="genel" %> <% found_item=1 %> Satan Reklam :: Reklam Arama

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

<% if (request.form("keyword")<>"" or trim(request.querystring("page"))<>"" ) and len(trim(request("keyword")))>1 then if request.form("keyword")<>"" then key=replace(request.form("keyword"),"'","''") area=request.form("select") else key=trim(request.querystring("keyword")) area=trim(request.querystring("area")) end if found_item=0 if area="TV" then AdTypeNo="2" AdTypePopUpSize="300,220" end if if area="PRESS" then AdTypeNo="" AdTypePopUpSize="650,450" end if if area="ANTIADS" then AdTypeNo="3" AdTypePopUpSize="650,450" end if sql="SELECT * FROM " & area & " WHERE TITLE LIKE '%" & key & "%'" objRs.open sql,objCn,1,3 if not objRS.eof then found_item=1 %> <% 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 %> <% if found_item=1 then%>

,<%=AdTypePopUpSize%>)">

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

<% end if %> <%=objRS("TITLE")%>

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

<% if len(key)< 2 then %>
İstediğiniz kategoriyi seçip istediğiniz anahtar sözcüğü yazarak arama yapabilirsiniz.
Anahtar kelimeniz en az 2 karakterden oluşmalıdır.

Kolay gelsin.

<% end if%> <% if found_item=0 then %> Üzgünüz! Aradığınız kritere uyan bir sonuç bulunamamıştır !

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