---

Jeg har hentet en asp kalender fra Active Server Corner. Den
giver mig dog et problem som jeg har lidt svært ved at
gennemskue. Fejlkoden er:

ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.

/hh/calendar_v1.asp, line 177


koden omkring linie 177 ser således ud:

' Loop until all the rows are exhausted
          Do While EndRows = False
            ' Start a table row
            Response.Write "   <TR>" & vbCrLf
            ' This is the loop for the days in the week
            For intLoopDay = cSUN To cSAT
               ' If the first day is not sunday then print the last days of
previous month in grayed font
               If intFirstWeekDay > cSUN Then
                  Write_TD LastMonthDate, "NON"
                  LastMonthDate = LastMonthDate + 1
                  intFirstWeekDay = intFirstWeekDay - 1
               ' The month starts on a sunday   
               Else
                  ' If the dates for the month are exhausted, start printing
next month's dates
                  ' in grayed font
                  If intPrintDay > intLastDay Then
                     Write_TD NextMonthDate, "NON"
                     NextMonthDate = NextMonthDate + 1
                     EndRows = True
                  Else
                     ' If last day of the month, flag the end of the row
                     If intPrintDay = intLastDay Then
                        EndRows = True
                     End If

Jeg håber nogen kan hjælpe.

Mvh
LT

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Laurits Thomsen skrev:


> /hh/calendar_v1.asp, line 177
>
>
> koden omkring linie 177 ser således ud:

Hvilken af de mange linjer er nr. 177?
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> > /hh/calendar_v1.asp, line 177
> >
> >
> > koden omkring linie 177 ser således ud:
>
> Hvilken af de mange linjer er nr. 177?
> --
UPS. jeg fik vist talt lidt forkert. Det er faktisk linien efter
den sidste linie jeg havde skrevet før. så linie 177 hedder: (det
er den første linie i koden der er 177):

dToday = CDate(intThisMonth & "/" & intPrintDay & "/" &
intThisYear)
                     If NOT Rs.EOF Then
                        ' Set events flag to false. This means the day has no
event in it
                        bEvents = False
                      Do While NOT Rs.EOF AND bEvents = False
                           ' If the date falls within the range of dates in the
recordset, then
                           ' the day has an event. Make the events flag True
                      If dToday >= Rs("Start_Date") AND dToday <=
Rs("End_Date") Then
                              ' Print the date in a highlighted font
                      Write_TD "<A HREF=events.asp?date="&
Server.URLEncode(dToday) & " CLASS='EVENT' TARGET='rightframe'> "
& intPrintDay & "</A>", "HL"
                              bEvents = True
                           ' If the Start date is greater than the date itself,
there is no point
                           ' checking other records. Exit the loop   
                      ElseIf dToday < Rs("Start_Date") Then
                              Exit Do
                           ' Move to the next record
                           Else   
                         Rs.MoveNext
                           End If
                      Loop
                        ' Checks for that day
                        Rs.MoveFirst
                     End If


Mvh
LT

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

> > --
> UPS. jeg fik vist talt lidt forkert.

Nej, den var faktisk god nok første gang. Linie 177 siger:
If intPrintDay > intLastDay Then

Mvh
LT

PS. undskyld forvirringen (jeg har ikke linienumre på i notesblok)

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Laurits Thomsen skrev:

> Nej, den var faktisk god nok første gang. Linie 177 siger:
> If intPrintDay > intLastDay Then

Det lyder mærkeligt - har du oprettet en af de to variable som et
objekt?


> PS. undskyld forvirringen (jeg har ikke linienumre på i
> notesblok)

Prøv at bruge en editor med linjenumre.

--
Jens Gyldenkærne Clausen
»Diplomatiet består netop i, at de gamle kommatister kan få lov til
at tro, at de har vundet. Men i virkeligheden har de tabt.«
Ole Togeby i Information

---

Laurits Thomsen wrote:
> Jeg har hentet en asp kalender fra Active Server Corner. Den
> giver mig dog et problem som jeg har lidt svært ved at
> gennemskue. Fejlkoden er:
>
> ADODB.Recordset error '800a0e78'
> Operation is not allowed when the object is closed.
>
> /hh/calendar_v1.asp, line 177

> Snip kode

Så vidt jeg kan se ud af koden er der tale om kalenderen fra kamath.com. Jeg
benytter den selv på forsamlingshus siden som du finder i min signatur. Jeg
har sammenlignet den kodestump du har postet med koden fra omtalte side.
Koden er identisk, så fejlen skyldes noget andet.

Mit gæt er et database problemer. Så vidt jeg husker er databasen access 97
som jeg ikke kunne få til at fungere. Måtte oprette databasen i en nyere
version af access. Jeg ville i hvert fald lede efter problemer i forbindelse
med databasen

Jeg har tilpasset kalenderen en del, og løb da også ind i del problemer i
den forbindelse. Da siden blev lavet var webhotellets server opsat med dansk
datoformat, hvilket betød at der blev byttet om på dato og måned. Ellers har
jeg ændret det således at kalenderen starter med mandag i stedet fra søndag.

Held og lykke med projektet


--
Med venlig hilsen - Carsten Sørensen

Gode råd til webdesigneren - http://csnet.dk/html/
Nørholm Forsamlingshus - http://forshus.dk