visa bilder random

[Cluster]

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]

[eddie66]

funkar utmärkt , måste tacka alla för hjälpen !

 

God Jul på er!

 

 

 

[Micke_skane]

God Jul på dig med!