RS auslesen und selektiv auf Daten zugreifen

[woormsen]

HAllo , gibt es in ASP eine Möglichkeit erst das ganze RS auszulesen -->

<% option explicit %>
<%
Dim objConn, data, strOutput, rs, strSQL, Feld, error300

set objConn = Server.CreateObject("ADODB.Connection")
objConn.open "hornnuernberg"

data="passt"
error300 = "<err>error300</err>"
strOutput=""

Select Case data

Case "passt"

strSQL = "SELECT * FROM Distribution;"
set rs = objConn.execute(strSQL)
if not rs.eof then
strOutput = "<mc><nm>Distribution</nm><pm>"
do while not rs.eof
strOutput = strOutput & "<a>"
For each Feld in rs.Fields
if isNull(Feld.Value) then
strOutput = error304
exit for
else
strOutput = strOutput & "<b>" & Feld.value & "</b>"
end if
next
strOutput = strOutput & "</a>"
rs.movenext
loop
strOutput = strOutput & "</pm></mc>"
end if
rs.close

Case Else
response.write "failed"

End Select

response.contenttype="text/xml"
response.write strOutput

set objConn = Nothing

%>
und im Anschluss z.B. bei einer Ausgabe von 100 Datensätzen nur
Datensatz 30-40, oder 33-44 etc . auszugeben/übertragen ....?? so wie oben kommt "alles"/ das gesamte Recordset in strOutput.... bin da auf der Suche nach einer Möglichkeit.... Gruss Thomas

[Ralf Walther]

Hallo,

die einfachste Möglichkeit ist folgende:

Du definierst einen Zähler und initialisierst ihn, läßt ihn innerhalb von

do while not rs.eof

hochzählen und führst den

For each Feld in rs.Fields

Block nur aus wenn der Zähler die entsprechenden Werte besitzt:

z.B.

...

Dim i

i=0

do while not rs.eof

i=i+1
if i >= 30 and i <=40 then

For each Feld in rs.Fields

.....

next

end if

rs.movenext
loop

....

Gruß Ralf