Vil kun bevæge sig frem i recordset'et - hvorfor?
HejJeg har et problem med mit script, fordi det altid skriver "HELT TOM", når der bliver valgt et tilfældigt tal, som er lavere end på den record, som tidligere er blevet anvendt. Den kan vil kun gå frem i recordset'et - ikke tilbage - hvorfor?
Set RS = Server.CreateObject("ADODB.Recordset")
strQuery = "SELECT ANNONCE_ID, TRIN FROM PLUSPROFIL_ANNONCE WHERE POINTS < MAXPOINTS AND TRIN <> 0"
'set rs = dataConn.execute(strQuery)
rs.Open strQuery, dataConn
if not (rs.eof or rs.bof) then
i = 0
y = 0
while i < 3 and y < 10
randomize
ranValue = int(strAnnonceCount * rnd)
response.write "<br>her er den: " & ranValue
if not (rs.eof or rs.bof) then
rs.move(ranValue)
if not (rs.eof or rs.bof) then
randomize
ranValue2 = int(strMaxTrin * rnd)
if (rs("trin") * 2) > 0 then
response.write "<br> ... kigger på " & RS("ANNONCE_ID") & " på trin " & rs("trin")
if inStr(strAnnonceIDs, rs("ANNONCE_ID")) = 0 then
strAnnonceIDs = strAnnonceIDs & " OR ANNONCE_ID = " & rs("ANNONCE_ID")
i = i + 1
response.write " ... ramte plet med " & RS("ANNONCE_ID") & " på trin " & rs("trin")
else
response.write "... dur ikke"
end if
else
response.write "<br> ... for lav: " & RS("ANNONCE_ID") & " på trin " & rs("trin")
end if
else
response.write "<br> ... den er tom!"
end if
else
response.write "<br> ... den er HELT tom!"
end if
y = y + 1
wend
