Søg
Avatar billede lllund Nybegynder
01. december 2004 - 21:43 Der er 2 kommentarer og
1 løsning

Optælling af tilmeldinger på forside af kalender

....Fortsættelse af http://eksperten.dk/spm/566960:

Nu skulle det virke med at er max kan komme 8 tilmeldinger på hver dag. Problemet er nu bare at jeg mangler at få en oversigt vist på forsiden, således at man kan se hvormange der har meldt sig på på hver dag:

hvis nogle vil hjælpe ligger filerne her
http://roskildebus.dk/test
eller det hele er pakket her:
http://roskildebus.dk/test/kalender.zip

Som det er nu skriver den kun det seneste navn ind:
(udsnit fra index.asp)

strSql = "SELECT * FROM calendar WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)"
stryear = "select * FROM yearlycal Where month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)"   

    set rsyearly = my_conn.execute (stryear)
  set rs = my_conn.Execute (StrSql)
      intCount= 0
      ' populate array with days of month
  do until rs.EOF or intCount = 31
    if Day(rs("dte")) = intCount + 1 then
                dictDte(intCount, 1) = rs("text_field")&"<br>"
        rs.Movenext       
    End If
    'dictDte(intCount, 2) = intCount + 1
    intCount = intCount + 1
  loop
  rs.close

håber nogle kan hjælpe!
Kasper Lund
Avatar billede tofte Juniormester
01. december 2004 - 22:05 #1
Dim iDay, iWeek, sFontColor, dictDte(31,2), intCount,strCount, rsCount
  strSql = "SELECT * FROM calendar WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)"
  stryear = "select * FROM yearlycal Where month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)"   
  strCount = "SELECT dte,Count(id) as antal from yearlycal GROUP by dte"
 
  set rsyearly = my_conn.execute (stryear)
  set rs = my_conn.Execute (StrSql)
  set rsCount = my_conn.Execute(strCount)
 
      intCount= 0
      ' populate array with days of month
  do until rs.EOF or intCount = 31
    if Day(rs("dte")) = intCount + 1 then
                dictDte(intCount, 1) = rs("text_field")&"<br>"
        rs.Movenext       
    End If
    'dictDte(intCount, 2) = intCount + 1
    intCount = intCount + 1
  loop
 
  do until rscount.eof
    dictDte(Day(rsCount("dte"))-1, 1) = dictDte(Day(rsCount("dte"))-1, 1)&_
    rscount("antal")
    rscount.movenext
  loop
  rs.close
  rsCount.close


klippet fra
<% REM This section executes the event query and draws a matching calendar. %>
til <html>
Avatar billede lllund Nybegynder
01. december 2004 - 22:11 #2
Ja det kører ...har slettet:

intCount= 0
      ' populate array with days of month
  do until rs.EOF or intCount = 31
    if Day(rs("dte")) = intCount + 1 then
                dictDte(intCount, 1) = rs("text_field")&"<br>"
        rs.Movenext       
    End If
    'dictDte(intCount, 2) = intCount + 1
    intCount = intCount + 1
  loop

og så virker det perfekt!!!!

Smid endeligt et svar

Mange TAK
Avatar billede tofte Juniormester
01. december 2004 - 22:20 #3
Et svar, men bare nøjes med 100 points, det tog jo ikke ret lang tid.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
25/0713:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
White papers
Flere white papers »