mayfly | the rock band in istanbul ~ you may fly...

<% 'dil = Request.Cookies("mayfly") 'if dil="" then response.redirect "ipdetect.asp" %> mayfly | the rock band in istanbul ~ you may fly... <% set connVB=server.createobject("ADODB.Connection") connVB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/mayfly.mdb") 'connVB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mayfly.mdb") %>

<%if dil<>"TR" then baslik1="news" haklar="all rights reserved" else baslik1="guncelhaber" haklar="Tüm hakları saklıdır" end if %>

.gif>
<% set rsQuestList=connVB.Execute("SELECT * FROM news order by tar DESC,kate ASC") say=0 do while (not rsQuestList.eof) and (say<10) say=say+1 %> <% rsQuestList.movenext loop %>

<%=say%>. <%if dil<>"TR" then idd=rsQuestlist("id") bas=rsQuestlist("bas") ice=rsQuestlist("ice") yaz="Details" kate=rsQuestlist("kate")+1 else idd=rsQuestlist("id") bas=rsQuestlist("bastr") ice=rsQuestlist("icetr") yaz="Haber detayı" kate=rsQuestlist("kate") end if %> .gif> <%=bas%> (<%=rsQuestlist("tar")%>)

<%=ice%>

<% asd=rsQuestlist("url") if asd<>"" then %> Link: <%=rsQuestlist("url")%>

<%end if%>
<%if dil<>"TR" then%>Total 0 reviews. Read reviews! <%else%>
<% set rs2=connVB.Execute("SELECT count(*) as yorsay FROM yorums where konu='news' and neye="&idd) %> Toplam <%=rs2("yorsay")%> yorum yapılmış, yorumları okumak için tıklayın!

Yorumları Gizle! <% set rs2=connVB.Execute("SELECT * FROM yorums where konu='news' and neye="&idd&" order by tar DESC") ysay=0 do while (not rs2.eof) and (ysay<10) ysay=ysay+1 %>
<%=rs2("yorum")%>
<%=rs2("gonder")%> - <%=rs2("tar")%>
<% rs2.movenext loop %>

<%end if%>

<%if dil<>"TR" then%>Read all news!<%else%>Tüm haberler için tıklayın!<%end if%>

© mayfly 2006 | <%=haklar%>.
<% response.write Application("ActiveUsers") & " user(s) online." %> <% fp = Server.MapPath("counter.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close Response.Write ct %> visitors total.