Ojojoj... Nu funkar det nästan!
Håller fortfarande på med ett randomscript som skall lista bilder på medlemmarna i en community.
När jag kör scriptet funkar det inte riktigt som det ska... Jag vill ha upp 5 olika bilder men när jag nu kör mitt script får jag bara upp tre....
Koden ser ut som föjer:
<%
Dim intRandomTowerPerson, intCell, strSQLRandomTowerPerson, rsRandomTowerPerson
Dim SQLCount, RSCount, personnr, x, i
Response.Write("<table WIDTH='325' BORDER='0' CELLPADDING='2' Align='center'>")
Response.Write("<tr>")
strSQLRandomTowerPerson = "SELECT HulePersonID, Image, ImageActive FROM Hulen WHERE ImageActive = 'yes';"
Set rsRandomTowerPerson = Conn.Execute(strSQLRandomTowerPerson)
x=0
Do until rsRandomTowerPerson.EOF
x=x+1
rsRandomTowerPerson.MoveNext
Loop
Randomize
personnr=int(rnd*x)
rsRandomTowerPerson.MoveFirst
rsRandomTowerPerson.Move personnr
i = 1
for i = 1 to 5
Response.Write("<TD Align='left'><A href='publicRoom1.asp?ID=" & rsRandomTowerPerson("HulePersonID") & "'>")
Response.Write("<Img Src='../../../userImages/" & rsRandomTowerPerson("Image") & "'width='75' height='100' hspace='10' Border='0'></A></TD>")
rsRandomTowerPerson.movenext
if rsRandomTowerPerson.eof then rsRandomTowerPerson.movefirst
Response.Write("</tr><tr>")
i = i+1
Next
rsRandomTowerPerson.Close
Set rsRandomTowerPerson = Nothing
Response.Write("</tr>")
Response.Write("</table>")
%>
Är det någon som kan se varför jag bara får upp tre bilder istället för fem som det var tänkt???
Säg nu inte att det inte finns fler i databasen för det gör det!
Jag vet att random-scriptet funkar för det är olika bilder som kommer fram varje gång....
Snälla hjälp mig!
------------------
Du lever bara en gång och den gången är nu!