Satan Reklam :: Güncel 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="anket" %> Satan Reklam :: Güncel 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%> <%%> <%%> <%%> <%%>

<%backcolor=1 sql="SELECT * FROM SURVEY ORDER BY DATE DESC" objRs.open sql,objCn,1,1 while not objRs.eof %> "> <%if backcolor=1 then tr_color="#F5F5F5" else tr_color="#E8E8E8" end if %> <% backcolor=backcolor*(-1)%> <%ObjRs.movenext wend %> <% ObjRs.close %>

<%=objRs("AD_TITLE")%> <%=objRs("AD_INFO")%>

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