Quick help plz

Den melder følgende fejl:
error '80020009'
Exception occurred.
I denne linje:
If TTime = RTime And rs("lokalenr") >< 2 Then

Følgende har jeg kørende efter overstående kode og når jeg køre med en session("id") <> 3 så er der ingen fejl i systemet!

If session("Id") <> 3 Then
  if not rs.EOF then
    start = rs("tid")
  else
    RTime = 0
  end if
  RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale

  If TTime = RTime Then
    strKommentar = rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """  class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
    rs.movenext
  Else
    ' Check for frokostpause
  If session("Id") <> 2 Then
    if not booWeekend and (TTime >= 1130 and TTime <= 1300) then
      strKommentar = "Kantinen serverer frokost"
    else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
    End If
  else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
  End If
  End if
  SkrivLinie strTid, strKommentar
  ' Tiden i næste linie
  MCnt = MCnt + 30
  if (MCnt = 60) then
    MCnt = 0
    TCnt = TCnt + 1
  end if
End If

If TTime = RTime And rs("lokalenr") <> 2 Then

??

Kravet siger at tiden (eks 10.00 eller 12:00) skal være samme tid som den i databasen og derudover at lokalenumret skal være 2!

Og ja det er i den der er fejl ... det skriver den!

Du er vel kommet forbi EOF, måske...

Her er det hele i en samlet version ...

<%
function CStr2(Value)
  if Value < 10 then
    CStr2 = "0" & CStr(Value)
  else
    CStr2 = CStr(Value)
  end if
end function

TCnt = 7 ' Starttid
MCnt = 0 ' Startminutter

for Cnt = 1 to 34 ' Antal linier
  strtid = CStr2(TCnt) & ":" & CStr2(MCnt)
  TTime = TCnt * 100 + MCnt ' Tiden der skal udskrives nu

If session("Id") = 3 Then
  if not rs.EOF then
    start = rs("tid")
  else
    RTime = 0
  end if
  RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale

  If rs("lokalenr") >< 2 AND TTime = RTime Then
    strKommentar = rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """  class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
    rs.movenext
  Else
    ' Check for frokostpause
  If not booWeekend and (TTime >= 1130 and TTime <= 1300) then
      strKommentar = "Kantinen serverer frokost"
    else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
    End If
  End if
  SkrivLinie strTid, strKommentar
  ' Tiden i næste linie
  MCnt = MCnt + 30
  if (MCnt = 60) then
    MCnt = 0
    TCnt = TCnt + 1
  end if
End If
%>

<%
If session("Id") <> 3 Then
  if not rs.EOF then
    start = rs("tid")
  else
    RTime = 0
  end if
  RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale

  If TTime = RTime Then
    strKommentar = rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """  class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
    rs.movenext
  Else
    ' Check for frokostpause
  If session("Id") <> 2 Then
    if not booWeekend and (TTime >= 1130 and TTime <= 1300) then
      strKommentar = "Kantinen serverer frokost"
    else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
    End If
  else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
  End If
  End if
  SkrivLinie strTid, strKommentar
  ' Tiden i næste linie
  MCnt = MCnt + 30
  if (MCnt = 60) then
    MCnt = 0
    TCnt = TCnt + 1
  end if
End If
%>

Halløj - kig lige her:

If session("Id") <> 3 Then
  if not rs.EOF then
    start = rs("tid")
  else
    RTime = 0
  end if
  RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale



start er ikke initialiseret hvis RS.EOF=TRUE
Flyt den sidste linie ind i din if blok.

Jeg forstår ikke hvad du mener ... hvad er det jeg skal flytte ind i min if?

Jeg tror jeg fandt ud af hvad du mener ... følgende ikke:
If session("Id") = 3 Then
  if not rs.EOF then
    start = rs("tid")
    RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale
  else
    RTime = 0
  end if

Det har jeg lige ændret den til og får nu denne fejl:
error '80020009'
Exception occurred.

I denne linje:
If rs("lokalenr") >< 2 AND TTime = RTime Then

det er sikkert, dvs måske, fordi rs.EOF er sand når
du aflæser rs("lokalenr") - jeg husker ikke hvad
beskedden plejer at være. Men du tester jo
for rs.EOF lidt længere oppe.

Må jeg iøvrigt gratulere dig for den værste gang
spagetti-kode jeg længe har set. Den kan jeg
sagtens bruge til at vise frem som et dårligt
eksempel.

Erikjacobsen ... hvis du syntes det er sådan en spagetti-kode hvad så med at du fandt fejlen og fiksede koden så den ikke er så spagetti agtig! Så vil jeg gerne give dig 200 point for det!