Just nu i M3-nätverket
Gå till innehåll
eddie66

visa bilder random

Rekommendera Poster

Micke har helt rätt. Det är helt klart en snyggare (och ev. snabbare) metod!

 

Dvs:

<%
SET objConn = Server.CreateObject("ADODB.Connection")
objConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("myDBfile.mdb")

Randomize()
randNum = (CInt(1000 * Rnd) + 1) * -1

strSQL = "SELECT TOP 3 sokvag FROM tblbilder ORDER BY Sin(id * Rnd("&randNum&") * 1000)"

SET objRS = objConn.execute(strSQL)
IF NOT objRS.EOF THEN
arrImages = objRS.GetRows()
END IF
SET objRS=Nothing

objConn.close
SET objConn=Nothing
%>
<p>Skriv ut bilderna var du vill:</p>
<p>Bild 1: <%=arrImages(0,0)%></p>
<p>Bild 2: <%=arrImages(0,1)%></p>
<p>Bild 3: <%=arrImages(0,2)%></p>

 

/Cluster

------------------------------------------------------------

Ditt vetande är värdelöst om inte andra vet att du vet

-----------> http://eforum.kicks-ass.net <------------

 

 

[inlägget ändrat 2007-12-19 16:15:49 av Cluster]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...