du kannst aber auch den datensatz direkt anspringen mit
move(z)
(hoff ich mal (laut buch geht das):-)
Gr��e Stephan
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Tuesday, December 04, 2001 3:19 PM
Subject: [aspdebeginners] AW: [aspdebeginners] Zuf�lligen Datensatz
Ausw�hlen
> Hi Mat
>
> ich hab dies so gel�st.:
>
> Ich habe zuerst alle Datens�tze gez�hlt, etwa so, nach dem die DB ge�ffnet
> wurde:
>
> 'Anzahl Datens�tze ermitteln
> Do Until rs.Eof
> Z = Z + 1
> RS.MoveNext
> Loop
> 'response.write z
>
> Dann hab ich die Zufallszahl generiert:
>
> 'Zufallszahl generieren bis max Anzahl Datens�tze
> Randomize
> zufall = INT(z*RND())
>
> Und dann die Abfrage gestartet:
>
> 'bei erreichen des Datensatzes wie Zufallszahl diesen ausgeben
> SQL = "SELECT * FROM HundeInNot"
> Set rs = Server.CreateObject("ADODB.Recordset")
> rs.Open SQL,con,3,3
> counter = 0
> Do Until rs.Eof
> ' -- Bildschirmausgabe
> ' Response.Write "ID: " & RS.Fields("HINID") & "<BR>"
> ' Response.Write "Titel: " & RS.Fields("Titel") & "<BR>"
> ' Response.Write "Rasse: " & RS.Fields("Rasse") & "<BR>"
> ' -- gehe zum n�chsten Datensatz
> If counter = Zufall Then Exit Do
> 'If CLng(counter) = CLng(zufall) Then Exit Do
> RS.MoveNext
> counter = INT(counter + 1)
> 'response.write counter & "<BR>"
> ' -- f�hre Schleife erneut aus
> Loop
>
> Jo, vielleicht etwas lustich, aber es funktioniert :))
>
> Gruss, Thomas
>
>
> > -----Urspr�ngliche Nachricht-----
> > Von: Mathias Mitterer [SMTP:[EMAIL PROTECTED]]
> > Gesendet am: Dienstag, 4. Dezember 2001 14:27
> > An: ASP Diskussionsliste fuer Anfaenger
> > Betreff: [aspdebeginners] Zuf�lligen Datensatz Ausw�hlen
> >
> > HI Liste!
> >
> > Ich m�chte bei jedem Seitenaufruf einen anderen Datensatz auslesen
lassen,
> > mit einem zufallsgenarator, wie bekomm ich das hin?
> >
> > <!--#include File="ADOConnect.asp"-->
> > <%
> > Set bc = Server.CreateObject("MSWC.BrowserType")
> > Set myrec = Server.CreateObject ("ADODB.Recordset")
> > Set myrec.ActiveConnection = conn
> > myrec.cursortype = 1
> > myrec.locktype = 3
> > myrec.Source = "SELECT * from WErb where WElocation='haupt.asp'"
> > myrec.Open
> > %>
> >
> > so sieht der datenbankzugriff aus
> > er soll jetzt bei jedem mal wenn ein user die seite betritt, zu einem
> > anderen datensatz springen und den ausgeben, nur wie?
> >
> > mfg Mathias Mitterer
> >
> > --------------------------
> > FastRun bietet Ihnen eine breite Palette an Datenbank-, Redaktions- und
> > Applikationssoftware
> > zu besten Konditionen. Besonders unsere eigene Suchtechnik bieten wir
> > in attraktiven Paketen auch fuer Ihre Internetseite an.
> >
> > Bis Ende 2001 schalten wir Ihre Werbeeinschaltung als Euro-Aktionspaket
> > auf
> > www.fastrun.at: 100.000 Impressions mit Online-Statistik um nur EUR
500,-
> > !!
> > Senden Sie einfach einen Banner der Groesse 468x60 an [EMAIL PROTECTED]
> > GIF, JPG, Flash, java- alles ist moeglich, mit oder ohne targeting,
keine
> > Groessenbeschraenkung.
> >
> > www.fastrun.at
> > by AAA Net.com Gmbh
> > Wulfenstrasse 10
> > A-9500 Villach
> > Tel. 04242 - 214 944
> >
> > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> > | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> > | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> > | Sie knnen sich unter folgender URL an- und abmelden:
> > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
