noone
Sat Oct 14 15:34:35 CDT 2006
Il giorno 9 Oct 2006 13:17:57 -0700, "flagpointer" <ginares@gmail.com> ha scritto:
>If pobjRs_LinInc.AbsolutePosition = 1 Then
> ' action
>End If
>But it does'nt work.Well, I just can't figure out how to use correctly
>this property.
It works fine for me.
The error should be somewhere else.
Maybe after taking the action you do not move to the next record.
'Shows all records or nRecordDaMostrare (if <)
Do
lista=lista & "<tr>" 'starts to display a record
********* if orecordset.absoluteposition=1 then orecordset.movenext
'Skips record #1
For i=0 To oRecordset.fields.count-1
'gets fields
lista = lista & "<td>" & oRecordset.fields(i) & "</td>"
Next
'lista=lista & "</tr>" 'ends the line
'or adds the record number
lista=lista & "<td>" & orecordset.absoluteposition & "</td></tr>"
oRecordset.movenext
Loop until oRecordset.eof Or (oRecordset.AbsolutePosition = nRecordDaMostrare + 1)
--
Giovanni Cenati (Aosta, Italy)
Write to user "Reventlov" and domain at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--