Satan Reklam :: Dünyanın en ilginç ve en komik 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 %> <%%> <% session("login_name") function logkontrol() loginpassword = Request("formpassword") loginname = Request("formusername") session("message")="" if trim(loginname) = "" then Session("message") = "Kullanıcı adı?" exit function end if if trim(loginpassword) = "" then Session("message") = "Şifre?" exit function end if sql = "SELECT * FROM CUSTOMERS WHERE USERNAME='"& loginname &"'" objRs.Open sql,objCn,1,3 if objRs.EOF then Session("message") = "Kullanıcı bulunamadı" objRs.close exit function end if if loginpassword <> trim(objRs("PASSWORD") ) then Session("message") = "Hatalı şifre" objRs.close exit function end if Session("logincheck")= "OK" session("login_name")= loginname session("pass_word")= loginpassword objRs.close set user=nothing end function if Request.form("formsubmitted")="yes" then logkontrol else session("message")="" end if %> <% pagename="main" %> Satan Reklam :: Dünyanın en ilginç ve en komik 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() %>

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

" width="280" height="200" border="0"> <%objRs.Close()%>

<% sql=" SELECT GE.IID,GE.SUBJECT AS SUBJECT,GE.CONTENT AS CONTENT,GE.REG_DATE AS REG_DATE,C.USERNAME AS USERNAME FROM GULENELMA AS GE,CUSTOMERS AS C WHERE GE.IID=" & IMAGE_ID & "AND GE.CID=C.ID AND ISPUBLISH=1 ORDER BY PRIORITY DESC,GE.REG_DATE DESC" objRS.open sql,objCN,1,3 if not objrs.eof then %>

<%=objRS("SUBJECT")%>

<%=Left(objRS("CONTENT"),120)%> ...[hepsini oku]

<%=objRS("USERNAME")%>

<% else %>

Gülen Elma Nedir?

Sizce yandaki resim neyin reklamı ve sizce ne bunun sloganı. Yaratıcılığınızı gösterin. Beraber eğlenelim :)

[Tamam. Yazmak istiyorum.]

<%end if objRs.Close() %>

<% if Session("logincheck")<>"OK" then %> <%if session("message")<>"" then%><% session("message")="" end if%> <%else%> <%end if%>

<%=session("message")%>
kullanıcı adı

şifre



şifremi unuttum
Merhaba <%=session("login_name")%>

Tv Reklamları bölümü
geçici olarak
kapatılmıştır.

Tekrar açılana kadar
AdsMonkey.com
sitesindekilere göz
atabilirsiniz.

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

,650,450)">

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

<% sql=" SELECT G.SUBJECT AS SUBJECT,G.CONTENT AS CONTENT,G.REG_DATE AS REG_DATE,C.USERNAME AS USERNAME FROM GOZ AS G,CUSTOMERS AS C WHERE G.CID=C.ID AND ISPUBLISH=1 ORDER BY G.REG_DATE DESC" objRS.open sql,objCN,1,3 if not objrs.eof then %>

<%=objRS("SUBJECT")%>

<%=Left(objRS("CONTENT"),120)%>...[hepsini oku]

Tarih : <%=FormatDateTime(objRS("REG_DATE"),2)%> Yazan : <%=objRS("USERNAME")%>

<% end if objRs.Close() %>

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

Made by IDEASTEP