<% dim z Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(Server.MapPath("\cgi-bin\zaehler.txt")) Then ' Set zaehler = FSO.OpenTextFile( _ ' Server.MapPath("..\cgi-bin\zaehler.txt"), 1) ' z = zaehler.ReadAll ' zaehler.Close ' Set zaehler = Nothing Else z = 0 End If z = z + 1 'Um 1 erhöhen 'Set zaehler = FSO.OpenTextFile( _ ' Server.MapPath("..\cgi-bin\zaehler.txt"), 2, True) 'zaehler.Write z 'zaehler.Close 'Set zaehler = Nothing Set FSO = Nothing '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(Server.MapPath("\cgi-bin\Datum.txt")) Then Set xOpen = FSO.OpenTextFile(Server.MapPath("\cgi-bin\Datum.txt"), 1) xDatum = xOpen.ReadAll xOpen.close end if Set FSO = Nothing '########################################################################## ' Neu ab 5.09.2005 Dim Laufschrifttext set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\cgi-bin\Gams.mdb") db.Open connect sql = "select * from Laufschrift" set rs = db.Execute(sql) Laufschrifttext = rs("Laufschrifttext_E") db.Close set db=Nothing set rs=Nothing %>

 Trachtenverein D´Gamskogler Ampass

 

<%=Laufschrifttext%>

   <%=z%> Visitors
 

www.gamskogler.at

   <% Response.Write Application("ConcurrentUsers")%> User Online
 

info@gamskogler.at

Actualization 

<% =xDatum %>