Behöver hjälp med slumpade bilder i kombination true/false
Hittade ett script här på forumet som jag försökt modifiera så det passar men förstår inte riktigt ändå hur man gör.
Som det är skrivet nu så får jag allt resultat slumpat som text i stället för bilder+text
(en bild på produkten=saknas.gif): produktnamn33
(en blid på produkten=saknas.gif): produktnamn2
(en bild på produkten=tomte.jpg): produktnamn 641
osv
Dessutom hur ställer jag in att det är bara produkterna med värdet true i fältet annons som ska visas?
Fältnamnen i tabellen produkter är bland annat : artikelnr(primärnyckel), vara (produktnamnet), annons(true/false dvs 1 eller 0)
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(db_name)
SQL = "Select bild,vara from produkter"
set rsdbase = conn.execute(sql)
if not rsdbase.eof then
Randomize
arr = rsdbase.getrows()
items = ubound(arr,2) + 1
noRandoms = 5
if items < noRandoms then noRandoms = items
for i = 1 to noRandoms
ind = Int(rnd*(items-i+1))
response.Write arr(0,ind) & ": "
Response.Write arr(1,ind) & "<br>"
arr(0,ind) = arr(0,items-1-(i-1))
arr(1,ind) = arr(1,items-1-(i-1))
next
end if
conn.close
Set conn=nothing
%>