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") namei=Request("namei") maili=Request("maili") if namei="" then namei="John Doe" if maili<>"" then path = Server.MapPath("maillist.txt") set fs = CreateObject("Scripting.FileSystemObject") set file = fs.OpenTextFile(path, 8) file.WriteLine(maili&";;name="&namei) file.Close() response.redirect "index.asp" ' set rsQuestList=connVB.Execute("UPDATE maillist SET ad='"&namei&"',mail='"&maili&"'") end if %>

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

.gif>

<%if dil<>"TR" then%> You can join our newslist and receive our news directly to your mail address:

Your name:

Your mail:

<%else%> Haber grubumuza katılarak haberlerimizi ve duyurularımızı direk e-posta adresinize alabilirsiniz:

Adınız, Soyadınız:

E-posta adresiniz:

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