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="links" haklar="all rights reserved" else baslik1="linkler" haklar="Tüm hakları saklıdır" end if %>

.gif>
<% set rsQuestList=connVB.Execute("SELECT * FROM link order by kate") say=0 do while (not rsQuestList.eof) say=say+1 kate=rsQuestlist("kate") set rsQuestList2=connVB.Execute("SELECT * FROM link_kat where id="&kate) %> <% rsQuestList.movenext loop %>
<%if dil<>"TR" then bas2=rsQuestlist2("bas") bas=rsQuestlist("bas") vis1="Visited" vis2=" times." vis3= "Visit Link" goo= "Search Google for" sss=rsQuestlist("acik") else bas2=rsQuestlist2("bastr") bas=rsQuestlist("bastr") sss=rsQuestlist("aciktr") vis1="" vis2=" kere ziyaret edildi." vis3= "Göster!" goo= "Google'da ara: " end if %>
<%=bas2%> > <%=bas%>
<%'=rsQuestlist("imaj")%> <% if sss<>"" then%> <%=sss%>
<%end if%>
<%sss=rsQuestlist("url") if sss<>"" then%> " target="_blank" style=text-decoration:none><%=vis3%> <%end if%> | " target="_blank" style=text-decoration:none> <%=goo%> "<%=bas%>"
<%=vis1%> <%=rsQuestlist("vis")%> <%=vis2%>

© mayfly 2005 | <%=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.