Brinkster funkar... men inte fullt ut?? Rs.eof?

5 svar · 274 visningar · startad av Johanneshov 12 dec. 2003

JohanneshovMedlem sedan nov. 200387 inlägg

Frågan12 dec. 2003 08:28#1

Kör lokalt då funkar min lilla site perfekt... Laddade upp grejorna på Brinkster för att testa innan jag köper in mig på hotell. Brinkster funkade bra på en gång, men tyvärr inte helt tillfredsställande...

Felsökning ger att följande INTE verkar skrivas ut hos Brinkster. Frågan är då varför? Funkar som sagt lokalt hos mig..??
Kan Rs (EOF) behandlas annorlunda hos Brinkster?

Do while not Rs.EOF
   If CInt(Right(RS("Datum"),2)) <> CInt(iCounter) Then Exit DO 
   If CInt(Right(RS("Datum"),2)) = CInt(iCounter) Then
	Response.Write("Pass:" &VbCrLf & dagpass)
        	Response.Write VbCrLf
        	Response.Write Rs("Pass")
	Response.Write VbCrLf
    	Response.Write Int(rs("tid")/60) & ":" & Right("0" &  (rs("tid") MOD 60), 2) &VbCrLf & "h."
        	Response.Write VbCrLf 
        	Response.Write Rs("Str") &VbCrLf & "km." & VbCrLf
        	Response.Write "<br>"
        	Response.Write Rs("Kommentar")
        	dagpass = dagpass + 1
	RS.MoveNext
   End If
Loop

Kör Connection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ om det nu skulle spela någon roll.

MVH
Johanneshov, så nära slutet... nöjd men ändå besviken! :moose

***uppdaterat mer info***

Aktuell Rs är

sql = " select id, datum, pass, tid, str, kommentar"
sql = sql &  " from traning"
sql = sql &  " where datum like '" & Left(dDate,7) & "%' order by datum asc"

Set Rs = Conn.Execute (sql)
Rs.Movefirst

När jag kör ovan med Rs.movefirst får jag fel:

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Kör jag utan Rs.Movefirst händer ingenting... verkar vara problem med RS:et???

Vad tror ni "njutare"???

SebbeMedlem sedan jan. 20032 285 inlägg

12 dec. 2003 08:43#2

Två orsaker jag kan tänka på:

1. Du har inte lagt in databasen i db-mappen.
2. Skriv

Session.LCID = 1053

högst upp på sidan.

JohanneshovMedlem sedan nov. 200387 inlägg

12 dec. 2003 08:45#3

Sebbe... jorå se ovan för mer info... Jag har andra funktioner som relaterar till db på sidan som fungerar utmärkt!

SebbeMedlem sedan jan. 20032 285 inlägg

12 dec. 2003 08:49#4

Kontrollera alltid att Recordsetet inte är tomt:

If NOT Rs.EOF Then
  Do while not Rs.EOF
     If CInt(Right(RS("Datum"),2)) <> CInt(iCounter) Then Exit DO 
     If CInt(Right(RS("Datum"),2)) = CInt(iCounter) Then
	Response.Write("Pass:" &VbCrLf & dagpass)
        	Response.Write VbCrLf
        	Response.Write Rs("Pass")
	Response.Write VbCrLf
    	Response.Write Int(rs("tid")/60) & ":" & Right("0" &  (rs("tid") MOD 60), 2) &VbCrLf & "h."
        	Response.Write VbCrLf 
        	Response.Write Rs("Str") &VbCrLf & "km." & VbCrLf
        	Response.Write "<br>"
        	Response.Write Rs("Kommentar")
        	dagpass = dagpass + 1
	RS.MoveNext
     End If
  Loop
Else
  Response.Write("Tomt...")
End If

JohanneshovMedlem sedan nov. 200387 inlägg

12 dec. 2003 14:10#5

Hoppla!
BRINKSTER gillar inte "like"... verkar det som

Jag kör nu med följande...

sql = sql &  " where month(datum) = "& dMonth&" order by datum asc"

istället och då funkar det så länge jag har någonting i db för den aktuella månaden... får fnula ut ngt om jag inte har ngt i db för den aktuella månaden!

JohanneshovMedlem sedan nov. 200387 inlägg

12 dec. 2003 14:28#6

Tack!