[ASP] AW: [ASP] Zufälliger Datensatz

[Gudula Schwingenheuer]

Hi

Du musst halt via SQL filtern, welche Jahreszeit zur Zeit ist. Dies sollte in der Where-Bedingung
automatisiert werden. So hast Du bereits die Daten für den jeweiligen Zeitraum fix. Wenn Du da nicht
weiterkommst, haben bestimmt die Datumfreaks hier einen Tipp.

Ich rufe meine Zufalls-Banner immer wie folgt auf (kannst Dir ja umschreiben):

<%
Set objconn = Server.CreateObject("ADODB.Connection")
    objconn.Open getNeu

	Dim mybanner
	Set mybanner = Server.CreateObject("ADODB.Recordset")
	sql = "select KursID, link, alttext from Banner where Ablaufdatum > Date()"
    mybanner.Open sql, objConn,3,3
	dim anzahl
	anzahl = mybanner.recordCount
	if mybanner.eof then
	response.write "<img src=""../upload/banner/ba_gmpCompakt.gif"" width=""180"" height=""240"" "
	else

Randomize Timer
Dim rndNumber
rndNumber = Int(RND *(anzahl))
mybanner.Move rndNumber

dim gruss
dim derLink
dim alttext
gruss = mybanner(1)
derLink = "../aktuell/ergebnis.asp?KursID=" & mybanner(0)
alttext = mybanner(2)
with response
.write "<a href=""" & derLink & """>"
.write "<img src=""../upload/banner/" & gruss & """ width=""180"" height=""240"" "
.write "border=""0"" alt=""" & Alttext & """ "
.write "style=""border:1px solid #000066""></a>"
end with
end if

mybanner.close
set mybanner=nothing
objconn.close
set objconn=nothing
%>

-------
Herzliche Grüße
Gudula

> -----Ursprüngliche Nachricht-----
> Von: activeserverpages-admin@glengamoi.com
> [mailto:activeserverpages-admin@glengamoi.com]Im Auftrag von
> frank.tauscher@wanadoo.fr
> Gesendet: Donnerstag, 9. Dezember 2004 18:31
> An: activeserverpages@glengamoi.com
> Betreff: [ASP] Zufälliger Datensatz
>
>
>
> Hi,
> suche nach einer Lösung für folgendes Problem:
> ich möchte bei jedem Aufruf einer Seite einen Datensatz zufällig laden. Dieser Datensatz
> kommt aus access2000 und soll abhängig von
> der Jahreszeit angezeigt werden. Problem ist, das die Datensätze sich verändern, also die
> Anzahl variiert und das durch löschen von
> Datensätzen die jeweiligen id nicht chronologisch sein können. Zum Beispiel:
> ID RS
> 1 winter
> 2 winter
> 3 sommer
> 5 herbst
> 9 winter
>
> Wie kann ich jetzt für Winter, also id 1, 2, 9, diese zufällig anzeigen lassen? Mit count
> und rnd komme ich hier nicht unbedingt
> weiter. Ist sowas überhaupt machbar in vb?
>
> Vielen Dank,
> Frank
>
>
>
> _______________________________________________
> ActiveServerPages Mailingliste, Postings senden an:
> ActiveServerPages@glengamoi.com
> An-/Abmeldung und Suchfunktion unter:
> http://www.glengamoi.com/mailman/listinfo/activeserverpages
>