<% 'dil = Request.Cookies("mayfly") 'if dil="" then response.redirect "ipdetect.asp" %> <% 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="interview" haklar="all rights reserved" else baslik1="roportaj" haklar="Tüm hakları saklıdır" end if %> .gif> <%if dil<>"TR" then%> <%else%> <%end if%>

© 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.

powered by animadverto