<%@ LANGUAGE="VBScript" %> <% Response.expires = 0 Dim connection, sSQL, sConnString, recordset, GetRecordSet Dim currentHit, CurrentHitUpd, CurrentHitCount, GetCurrentHitCount Set connection = Server.CreateObject("ADODB.connection") Set recordset = Server.CreateObject("ADODB.Recordset") sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("hitcounter.mdb") Connection.Open sConnString GetRecordSet = "select CurrentHitCount from tblHitCount" RecordSet.open GetRecordSet, Connection IF NOT session("hit") = "sann" THEN CurrentHit = RecordSet("CurrentHitCount") CurrentHitUpd = CurrentHit+1 session("CurrentHitUpd") = CurrentHitUpd sSQL="Update tblHitCount SET CurrentHitCount = '"&CurrentHitUpd&"' WHERE pageName = 'example'" Connection.Execute sSQL END IF recordset.close 'connection.Close 'Set connection = Nothing session("hit") = "sann" %> www.himcc.se
<% Dim ptstotal Set connection = Server.CreateObject("ADODB.connection") Set recordset = Server.CreateObject("ADODB.Recordset") 'sSQL="SELECT * FROM Users_tbl ORDER BY totmil DESC" sSQL="SELECT poang, act_pts, datum, Fnamn, Enamn, SUM(act_pts+poang) FROM Users_tbl GROUP BY datum,Fnamn,Enamn,act_pts,poang ORDER BY SUM(act_pts+poang) DESC" sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("/Touring/Users.mdb") Connection.Open sConnString Recordset.Open sSQL, Connection Dim cnt cnt = 1 Response.Write "" Do while cnt < 6 Response.Write "" cnt = cnt + 1 recordset.Movenext loop recordset.Close Set recordset = Nothing connection.Close Set connection = Nothing %>



Touringtävlingen Topp 5!
Placering
Poäng
" & cnt & ". " & recordset("Fnamn") & " " & recordset("Enamn") ptstotal = recordset("poang")+recordset("act_pts") Response.Write "" & ptstotal & "pts

 

Touringtävlingen.

________________________

<%=session("CurrentHitUpd")%> besökare
sedan 2006-07-30
________________________

Annons:


Välviksviksleden tel853450 Det rätta däcksvalet för din motorcykel hjälper vi dig gärna med.



Annons:


10% på delar och tillbehör
för HIMCC's medlemmar.