hvad betyder denne fejl ?

Det fordi du har et tomt recordset, du kan tjekke inde du bruger dit recordset om det er tomt, eks:

if not rs.EOF then
  'Udskriv
else
  Response.Write "Ingen poster"
end if

jamen hvordan kan jeg have det ? jeg har bare taget min accesse db og lagt den over i Mysql .....

Har du kigget med phpmyadmin eller andet værktøj at der faktisk er noget i kolonnerne?

jep  der ligger masser :-)

Hmm det kan også være en .movenext som ligger uden for et loop.

jeg tror det er her den laver rod:

<%
set rsRandPic = Server.CreateObject("ADODB.Recordset")
rsRandPic.ActiveConnection = MM_connDUpics_STRING
rsRandPic.Source = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ID <> " & iPic
rsRandPic.CursorType = 3
rsRandPic.CursorLocation = 2
rsRandPic.LockType = 1
rsRandPic.Open()
rsRandPic_numRows = 0

Dim rndMax
rndMax = CInt(rsRandPic.RecordCount)
rsRandPic.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)
rsRandPic.Move rndNumber

%>

det virker når det er access db den kører på

Prøv at fjerne:  rsRandPic.MoveFirst
Et recordset vil altid stå på føste record

Det nok for det mySQL så giver RecordCount 0 og ikke det rigtige antal kolonne i databasen .

Der findes en funktion som kan give en tilfældig række følge ud via mySQL.

Når man bruger mySQL kan bare bruge RAND() efter ORDER BY:

<%
SQL = "select * from tabelnavn order by rand() limit 1"
%>

hvordan får jeg flettet den SQL ind i;

<%
set rsRandPic = Server.CreateObject("ADODB.Recordset")
rsRandPic.ActiveConnection = MM_connDUpics_STRING
rsRandPic.Source = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ID <> " & iPic
rsRandPic.CursorType = 3
rsRandPic.CursorLocation = 2
rsRandPic.LockType = 1
rsRandPic.Open()
rsRandPic_numRows = 0

Dim rndMax
rndMax = CInt(rsRandPic.RecordCount)
rsRandPic.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)
rsRandPic.Move rndNumber

%>

Det er rsRandPic.Source og så skal det som regner et random nummer ud væk så prøv dette:

<%
set rsRandPic = Server.CreateObject("ADODB.Recordset")
rsRandPic.ActiveConnection = MM_connDUpics_STRING
rsRandPic.Source = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ID <> " & iPic & " ORDER BY rand() LIMIT 1"
rsRandPic.CursorType = 3
rsRandPic.CursorLocation = 2
rsRandPic.LockType = 1
rsRandPic.Open()

'Udskriv her

der kommer ikke fejl nu men den tager det samme billede hver gang.. og ikke et forskelligt

nu virker det på et andet script jeg havde.... pisse godt.... du er jo chefen

Virker det nu?
Det skulle virke ens begge steder..

ok, men det virker nu hihi

Ok så et svar fra mig ;)