<% ' Besöksräknare... Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("counter.txt") on error resume next Set a = fs.OpenTextFile(Wfile) hits = Clng(a.ReadLine) hits = hits + 1 a.close Set a = fs.CreateTextFile(Wfile,True) a.WriteLine(hits) a.Close %> Concrete Finishing Method Project
 
Senaste Nytt
<% Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT * FROM News WHERE Aktivt=1 AND Startpage=1" RecSet.Open Visa, Connect, 3, 3 Do Until RecSet.EOF Response.Write("
  • " & RecSet("Meddelanderubrik") & "


  • ") RecSet.MoveNext Loop RecSet.Close %>
    <% Connect.Close %>