har nu følgende:
<%
'vælger et tilfældigt galleri
Set rsBAdds = Server.CreateObject("ADODB.RecordSet")
sqlBAdds = "SELECT * FROM Banneradds,Kundedata WHERE Kundedata.KID=Banneradds.BKID"
rsBAdds.open sqlBAdds,Conn,3,1
rndMax = rsBAdds.RecordCount
Randomize
rndNumber = Int((RND * rndMax)) 'Find et random nummer
rsBAdds.Move rndNumber 'Flyt til den valgte record
%>
<%do until rsBAdds.eof%>
<%if right(rsBAdds("BFile"),3) = "jpg" or right(rsBAdds("BFile"),3) = "JPG" then%>
<a href="<%=rsBAdds("KWeb")%>" target="_blank"><img src="images/banneradds/<%=rsBAdds("BFile")%>" width="143" height="57" class="prodimg" title="<%=rsBAdds("BID")%>"></a>
<%end if%>
<%if right(rsBAdds("BFile"),3) = "swf" or right(rsBAdds("BFile"),3) = "SWF" then%>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="
http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="143" HEIGHT="57" id="flashbanner" ALIGN="" class="prodimg">
<PARAM NAME=movie VALUE="images/banneradds/<%=rsBAdds("BFile")%>"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#CCCCCC><PARAM NAME=border VALUE=#74777A>
<EMBED src="images/banneradds/<%=rsBAdds("BFile")%>" quality=high bgcolor=#CCCCCC WIDTH="143" HEIGHT="57" NAME="falshbanner" ALIGN=""
TYPE="application/x-shockwave-flash" PLUGINSPAGE="
http://www.macromedia.com/go/getflashplayer"></EMBED> </OBJECT>
<%end if%>
<%rsBAdds.movenext
loop%>
<%if rndMax < 8 then%>
<%
maxEmpty = CInt(8)-rndMax
%>
<%for i = 1 to maxEmpty%>
<img src="images/banneradds/empty.jpg" width="143" height="57" class="prodimg">
<%next%>
<%end if%>
Kan du prøve at rette min kode til, så den bruger din løsning?
Kan nemlig ikke lige finde hoved eller hale i det du skrev.
Flere point er på vej, hvis du retter koden til! ;0)
