Random select virker ikke
Hej eksperterJeg har tidligere fået følgende script til random select:
'vælger et tilfældigt galleri
Set rsGalleri = Server.CreateObject("ADODB.RecordSet")
sqlGalleri = "SELECT * FROM Galleri"
rsGalleri.open sqlGalleri,Conn,3,1
rndMax = rsGalleri.RecordCount
Randomize
rndNumber = Int((RND * rndMax)) 'Find et random nummer
rsGalleri.Move rndNumber 'Flyt til den valgte record
Når jeg udskriver rndNumber vises værdierne 0 og 1 (der er kun 2 gallerier pt), men uanset hvilken værdi rndNumber har så vises de samme billeder.
Jeg udskriver mine billeder her:
<%if not (rsGalleri.bof or rsGalleri.eof) then%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50">
<%
Set Image = Server.CreateObject("AspImage.Image")
Image.PadSize = 0
ImgFullPath = (Server.MapPath("./images/galleri/"&rsGalleri("Pic1")&""))
Image.LoadImage ImgFullPath
Image.GetImageFileSize ImgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y OR X > 50 Then
ResizedX = 50
ResizedY = 40
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = Server.MapPath("./images/galleri_tmp/"&rsGalleri("Pic1")&"")
Image.SaveImage
If rsGalleri("Pic1") <> "" Then
Response.Write "<img src=""images/galleri_tmp/"&rsGalleri("Pic1")&"""></a>"
Else
Response.Write("")
End if
%>
</td>
<td width="5"></td>
<td width="50">
<%
Set Image = Server.CreateObject("AspImage.Image")
Image.PadSize = 0
ImgFullPath = (Server.MapPath("./images/galleri/"&rsGalleri("Pic2")&""))
Image.LoadImage ImgFullPath
Image.GetImageFileSize ImgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y OR X > 50 Then
ResizedX = 50
ResizedY = 40
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = Server.MapPath("./images/galleri_tmp/"&rsGalleri("Pic2")&"")
Image.SaveImage
If rsGalleri("Pic2") <> "" Then
Response.Write "<img src=""images/galleri_tmp/"&rsGalleri("Pic2")&"""></a>"
Else
Response.Write("")
End if
%>
</td>
</tr>
<tr>
<td width="50">
<%
Set Image = Server.CreateObject("AspImage.Image")
Image.PadSize = 0
ImgFullPath = (Server.MapPath("./images/galleri/"&rsGalleri("Pic3")&""))
Image.LoadImage ImgFullPath
Image.GetImageFileSize ImgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y OR X > 50 Then
ResizedX = 50
ResizedY = 40
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = Server.MapPath("./images/galleri_tmp/"&rsGalleri("Pic3")&"")
Image.SaveImage
If rsGalleri("Pic3") <> "" Then
Response.Write "<img src=""images/galleri_tmp/"&rsGalleri("Pic3")&"""></a>"
Else
Response.Write("")
End if
%>
</td>
<td width="5"></td>
<td width="50">
<%
Set Image = Server.CreateObject("AspImage.Image")
Image.PadSize = 0
ImgFullPath = (Server.MapPath("./images/galleri/"&rsGalleri("Pic4")&""))
Image.LoadImage ImgFullPath
Image.GetImageFileSize ImgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y OR X > 50 Then
ResizedX = 50
ResizedY = 40
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = Server.MapPath("./images/galleri_tmp/"&rsGalleri("Pic4")&"")
Image.SaveImage
If rsGalleri("Pic4") <> "" Then
Response.Write "<img src=""images/galleri_tmp/"&rsGalleri("Pic4")&"""></a>"
Else
Response.Write("")
End if
%>
</td>
</tr>
</table>
<%else%>
Der er ikke noget aktuelt galleri - kig ind en anden dag.
<%end if%>
Hvad er der galt?
