Tæl en gang om når man går ind på siden

Jeg her ved at lave en hjemmeside, hvor jeg har lavet så man kan se hvormange der besøger hver enkelt side.

Jeg har lavet det sådan

-------side.asp----------------
<%@ Language=VBScript %>

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"test.mdb\")

id = Request.QueryString(\"id\")

set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM taeller WHERE ID=\" & id, Conn, 1, 3

    rs(\"besog\") = rs(\"besog\") + 1
rs.Update

url = rs(\"url\")

rs.Close
set rs = nothing

Conn.Close
set Conn = nothing

Response.Redirect(url)
%>


Linkene til de forskellige sider er så side.sp?id=1 så tæller den en op i databasen, og videresiller til f.eks. test.asp

Men når man indtaster adresse til at komme ind på startsiden f.eks. www.test.dk så tæller den ikke, da jeg ikke ved hvordan man laver det sådan, jeg her dette script, som vælger en tilfældig post og tæller og viser, samt tæller op, hvordan laver jeg det om, eller laver noget andet, som tæller den bestemte side op!


<%
      set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM Banner\", Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)

    rs(\"Shown\") = rs(\"Shown\") + 1
rs.Update

Response.Write(\"<a href=\'redirect.asp?id=\" & rs(\"ID\") & \"\' target=\'_blank\'><img src=\'\" & rs(\"Filename\") & \"\' alt=\'\" & rs(\"Description\") & \"\' border=\'0\'></a>\") & vbCrLf

rs.Close
set rs = nothing

Conn.Close
set Conn = nothing
%>

Det er et banner system som jeg har lavet om på, så jeg skal også have fjernet det med at den viser et tilfældigt banner