Response.Write

[Andreas]

Hi,

ich habe eine Response.Write Ausgabe. Wie kann man die z.B. auf 100 'Datensätze begrenzen?

Beispiel:

Response.Write rsSearch("Characterization") & "<BR>" & _
                   "<A HREF='" & rsSearch("Path") & "'>" & _
                   rsSearch("FileName") & "</A>" & _
                   " (" & rsSearch("Size") & " bytes)<P>"
rsSearch.MoveNext

Gruß

A.K.

[MarkX]

Hi,

ich habe eine Response.Write Ausgabe. Wie kann man die z.B. auf 100 'Datensätze begrenzen?

Na zum Beispiel indem Du ne For-Next-Schleife drumrum bastelst.

MfG
MarkX.

[Andreas]

Kann mir das mal jemand erklären??!!?!

mfg

ich habe eine Response.Write Ausgabe. Wie kann man die z.B. auf 100 'Datensätze begrenzen?

Na zum Beispiel indem Du ne For-Next-Schleife drumrum bastelst.

[Tom2]

Hi Andreas

Dim i

For i=1 To 100
  Response.Write "Was immer du willst." & i
Next

MfG & HtH

Tom2

[Andreas]

Hi nochmal,

habe schon eine While-schleife, wie kann ich da ne for-next schleife hinzufügen?

Mein Fall:

While Not rsSearch.EOF

if Request.Form("autor") <>"" then
     Response.Write "<SPAN CLASS='document'>" & _
     rsSearch("DocAuthor") & "</SPAN><BR>"
  end if

if Request.Form("titel") <>"" then
     Response.Write "<SPAN CLASS='document'>" & _
     rsSearch("DocTitle") & "</SPAN><BR>"
  end if

if Request.Form("keywords") <>"" then
     Response.Write "<SPAN CLASS='document'>" & _
     rsSearch("DocKeywords") & "</SPAN><BR>"
  end if

if Request.Form("Kategorie") <>"" then
     Response.Write "<SPAN CLASS='document'>" & _
     rsSearch("DocCategory") & "</SPAN><BR>"
  end if

if Request.Form("Dateiname") <>"" then
     Response.Write "<SPAN CLASS='document'>" & _
     rsSearch("Filename") & "</SPAN><BR>"
  end if

if Request.Form("Ordner") <>"" then
     Response.Write "<SPAN CLASS='document'>" & _
     rsSearch("Directory") & "</SPAN><BR>"
  end if

Response.Write rsSearch("Characterization") & "<BR>" & _
                   "<A HREF='" & rsSearch("Path") & "'>" & _
                   rsSearch("FileName") & "</A>" & _
                   " (" & rsSearch("Size") & " bytes)<P>"
  rsSearch.MoveNext
Wend

Bitte um Hilfe

[Rouven]

Hi,

dann mach doch folgendes:
Dim i
i = 1
Dim continue
continue = true
while (continue = true)
  'Schreiben der Ausgaben...

rsSearch.MoveNext
  i = i + 1
  if (i >= 100 ) then continue = false
  if (rsSearch.eof = true) then continue = false
wend

[Andreas]

DANKE

Mfg

Andreas

[Odium]

Hallo,

mit einer hinzgefügten if- entscheidung geht es auch
dim zaehler
zaehler = =
 do While Not rsSearch.EOF
if zaehler < 100 then

if Request.Form("autor") <>"" then
     Response.Write "<SPAN CLASS='document'>" & _
     rsSearch("DocAuthor") & "</SPAN><BR>"
  end if

.
.
.
zaehler = zaehler + 1

rsSearch.MoveNext

loop

oder auch eine verknüpfte do-anweisung...
do while not rssearch.eof or zaehler < 100
.
.
.
loop

Odium

[Frank aus Ulm]

Hi, hallo

oder auch eine verknüpfte do-anweisung...
do while not rssearch.eof or zaehler < 100

also das wird wohl nichts so ...

tue wenn (rssearch noch nich am Ende) oder tue wenn (zaehler < 100)

was passiert, wenn es nur 25 Datensätze gibt ... ne wundertolle exception

Tschau, tschüß,
Frank

[Odium]

Hallo,

versteh nicht ganz... wenn es nur 25 Datensätze gibt ist eof doch true also loop-ende...

Odium

[Odium]

stimmt sollte wohl ein and sein?

Odium