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
