antal hits på specefikke sider?

Du vil have en tæller:

"Denne artikel er læst <%=RS(read)%> gange"?

Du skal lave noget kode som kan gemme det i databasen evt, sådan den kan tjekke om siden findes og hvis ikke selv oprette en ny side i databasen. Filen koden ligger i kunne hedde counthit.asp

<%
Set conn = Server.......
Conn.Open ConnectionString
'Hendt siden fra enten querystring/session/variable alt efter hvordan det laves
side = Session("side")
SQL = "select * from sidecount where side = '" & side & "'"
set rs=conn.execute(SQL)
if rs.EOF then
  sql = "insert into sidecount (side, antal) values ('" & side & "', 1)"
else
  sql = "update sidecount set antal=antal+1 where side = '" & side & "'"
end if
Conn.Execute (SQL)
%>


som eksempelt er vist bruges session("side") til at gemme giden som skal tælle en op. Så kan man på de sider som skal tælles:
<%
Session("side") = Request.ServerVariables("SCRIPT_NAME")  'Alternativ bare = "guestbook.asp"
Server.Execute("counthit.asp")
%>

eagleeye> var det muligt at du kunne uddybe det lidt mere - jeg er ikke så god til asp at jeg selv lige laver noget kode, som du foreslår

Ja jeg kan prøve:

Du laver en side cointhit.asp


<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "din connection string"
'Hendt siden fra enten session
side = Session("side")
'Tjke om siden findes
SQL = "select * from sidecount where side = '" & side & "'"
set rs=conn.execute(SQL)
if rs.EOF then
'Hvis den ikke findes lav en indsæt
  sql = "insert into sidecount (side, antal) values ('" & side & "', 1)"
else
'Hvis den findes lav en update og lig en til
  sql = "update sidecount set antal=antal+1 where side = '" & side & "'"
end if
Conn.Execute (SQL)
Conn.Close
Set Conn=Nothing
%>


--

På de sider du vil tælle hits kan du sætte disse to linjer ind:
<%
Session("side") = Request.ServerVariables("SCRIPT_NAME") 'Finder den side man er på
Server.Execute("counthit.asp") 'Opdater tælleren for siden
%>

eagleeye> det virker jo fint - lav lige et svar

Ja ok her et svar :))
Lidt sendt på den godt nok.