random halløj

hey boyz - and girls

tja på en sådan regndag er det jo optimalt at sidde foran ens teknologialter...

jeg har et spm. vedr. 2 udtræk fra en db

som i nok kan se laver nedenstående et random udtræk fra db. jeg vil i mindler tid gerne have to udtræk ud på en gang men det må ikke være de samme- hvordan skrives det?

i princippet gør det ikke noget hvis andet udtræk bare er første udtræks id plus een..

på forhånd tak

<%
  'Response.Buffer = True

  Function Show()
 
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    rs_show.MoveFirst
    For i = 1 to RandNum - 1
      rs_show.MoveNext
     
    next
    Response.Write "<a target=""_blank"" href=""http://www.surf-shop.dk/" & rs_show("url") & """><img border=""0"" src="""&grafik_sti&"shop/" & rs_show("pic_name") & """></a><br>"

  end function

  Sql = "Select count(*) as Found from surf_shop where btype = 1"
  Set rs_shop =  base.Execute(Sql)

  Ialt = rs_shop("found")

  Sql = "Select * from surf_shop where btype = 1"
  Set rs_show =  base.Execute(Sql)

%>