ialt fra db

Hvis du har en counter for hver download så skal du summere couterne


SQL = "SELECT SUM(counter) As found FROM download"

oki tak eagleeye/

lige en ting til hvis du gider.

hva så med antal downloads pr. dag
der er en dato tabel i db`en
hvordan skriver man så den?

Hvis du har et dato felt kan du lave en GROUP BY på datoen

SQL = "SELECT SUM(counter) As found, dato FROM download GROUP BY dato"

Så skulle den tælle counter sammen hvor dato er ens. Det kan udskrives i et loop

do while not rs.EOF
  Response.write rs("found") & " downloads den : " & rs("dato")
  rs.Movenext
loop

kan man gøre det sådan at den skriver antal downloads der er foretaget idag .. f.eks downloaded idag 230

Så den kun hendter dem for idag?

SQL = "SELECT SUM(counter) As found, dato FROM download GROUP BY dato ORDER BY Dato DESC"


do while not rs.EOF
  Response.write lavDato(rs("dato")) & " var der " & rs("fundet") & " downloads"
  rs.Movenext
loop


Og så lig denne function ind i bunden af koden:

<%
function lavDato(dato)
  datoDB = FormatDateTime(dato,2)
  if CStr(datoDB) = Cstr(Date) then
    str = "I dag"
  elseif CStr(datoDB) = CStr(DateAdd("d", -1, Date)) then
    str = "I går"
  else
    str = dato
  end if
  lavDato = str
end function
%>

sådan her?

<%
Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("download.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
SQL = "SELECT SUM(counter) As found, dato FROM download GROUP BY dato ORDER BY Dato DESC"

  do while not rs.EOF
  Response.write lavDato(rs("dato")) & " var der " & rs("fundet") & " downloads"
  rs.Movenext
loop
%>
<%
function lavDato(dato)
  datoDB = FormatDateTime(dato,2)
  if CStr(datoDB) = Cstr(Date) then
    str = "I dag"
  elseif CStr(datoDB) = CStr(DateAdd("d", -1, Date)) then
    str = "I går"
  else
    str = dato
  end if
  lavDato = str
end function
%>

Ja det skal lige en recordset ind... Prøv at rette disse linier:

Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("download.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
SQL = "SELECT SUM(counter) As found, dato FROM download GROUP BY dato ORDER BY Dato DESC"

 

Til:

Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("download.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

SQL = "SELECT SUM(counter) As found, dato FROM download GROUP BY dato ORDER BY Dato DESC"

Set rs = Conn.Execute(SQL)

oki nu virker den men den skal kun vise en dag og ikke alle dage?

du kan se det her www.doszone.dk

nå jeg smutter eagleeye jeg siger mange tak for hjælpen :-)

Du må undskylde men jeg var nød til at gå pga telefonen..:)