[Resolvido] FormatDateTime

[Argos 0]

Boa tarde

 

Tenho uma tabela com uma lista de horários, das 00:00 às 23:40, com intervalos de 20 minutos (00:20, 00:40, 01:00, 01:20...)

Alguém pode me dizer onde está o erro aqui?

 

Do While FormatDateTime(rec("Horas"),0) > FormatDateTime(("18:00:00"),0) and FormatDateTime(rec("Horas"),0) <= FormatDateTime(("23:40:00"),0)
response.write rec.Fields.Item("Horas").Value &"<br>"
rec.MoveNext
loop

 

Ele lista corretamente até o último, depois dele aparece o erro '80020009'.

Se eu tiro o símbolo de igual do <= FormatDateTime(("23:40:00"),0) funciona.

Se eu troco o FormatDateTime(("23:40:00"),0) por FormatDateTime(("23:20:00"),0) também funciona.

[Argos 0]

Resolvido inserindo

If rec.EOF Then Exit Do

depois do

rec.MoveNext

[xanburzum 169]

Isso muitas vezes pode acontecer se você faz referência a um objeto de conjunto de registros que foi criado em uma página diferente, ou no escopo de sessão. No primeiro caso, você terá que consultar novamente a base de dados para este conjunto de registros , você nunca deve guardar um objeto recordset no escopo de sessão