Tilfældig udtrækning Asp

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dindatabase.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Sql = "Select count(*) as Found from [dintabell]"
Set Record =  myConn.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from [dintabell]"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext
next
response.write ...
myConn.Close
Set myConn = Nothing
%>

//>Rune

Udtrækker den 4?

Kommer lige til at se. Det er vel bare at ændre
For i = 1 to RandNum - 1?

Det virker ikke..

Jeg kan ikke skrive Reponse.Write rs("Id"), den skal jo trække dataen jo.

Hvis hvis jeg bare skriver Response.Write "Test", skriver den bare test.

Sql = "Select * from [dintabell]"
Set Rs =  myConn.Execute(Sql)
Arr = Rs.GetRows
Ialt = UBound(Arr, 2)

Randomize
For i = 1 To 4
  RandNum = Int(Rnd * Ialt) + 1
  Response.Write(Arr(RandNum, 1))
Next
myConn.Close
Set myConn = Nothing
%>

proev lige med dette

Hvordan bruger jeg rs("et-eller-andet")??

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/data.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Sql = "Select * from anmeld"
Set Rs =  myConn.Execute(Sql)
Arr = Rs.GetRows
Ialt = UBound(Arr, 2)

Randomize
For i = 1 To 4
  RandNum = Int(Rnd * Ialt) + 1



  Response.Write "<td width='102' align=middle><a class='menu' href='http://www.trailersiden.dk/anmelderarkiv.asp?id="
  Response.Write  rs("id")
  Response.Write "'><img class='pic' src='pics/"
  Response.Write  rs("pic")
  Response.Write "' height='70' width='55' border='0'></a></td>"
Next
myConn.Close
Set myConn = Nothing
%>

For i = 1 To 4
  RandNum = Int(Rnd * Ialt) + 1
  Response.Write "<td width='102' align=middle><a class='menu' href='http://www.trailersiden.dk/anmelderarkiv.asp?id="
  Response.Write  Arr(i,[et tal])
  Response.Write "'><img class='pic' src='pics/"
  Response.Write  Arr(i,[et tal])
  Response.Write "' height='70' width='55' border='0'></a></td>"
Next

et tal = tael hvilken kollonne nummer det er i tabellen. Starter fra 0 og opefter. Dvs hvis ID er den foerste saa vil det vaere Arr(i,0) for at faa id'et. Hvis pic er nummer 3 saa vil det vaere Arr(i,2).

Ved Arr(i,0) tager den ikke ikke ID.
Pic ligger på 10. Men så siger den 'Script out of range'.

Subscript out of range: '[number: 10]'

ID kommer først..Dernæst titel. Hvis der står Arr(i,0) tager den titel.

Jeg rettede 'For i = 0 To 10.

ID virker nu.. Men ikke 10.