Fejl: Subscript out of range: 'nummer'

Husk ALTID at bruge Option Explicit, så du tvinges til at definere ALLE variablerne!

dim id(50)
dim nummer

for en sikkerhedsskyld (da arrays starter ved 0 og ikke 1:
nummer = -1

Så vil den automatisk lægge 1 til, og så bliver nummer til 0: nummer = nummer + 1

Så burde der ikke være problemer..

PS: Option Explicit KAN KUN være første linie i ASP filen! :-)
Hvis du sætter andre linier før den, vil det gå galt.

Option Explicit er meget god, idet den hurtigt ganger stavefejl..

<ole>

... og mange gange kan man endda også *fange* en sdavøfajl med den  ;oD

/mvh
</bole>

hahahahah :-)
hbos Eksprten baer brutge Option Explicit -):

Subscript out of range: '51'

Det giver ingen mening.. "51" er ikke en variabel..?
Hvilken linie, og hvad står der?

line 39

Og før var det linje 38, som svarede til denne linje: "nummer = nummer + 1", men til gengæld er der kommet to nye linjer på... Så det er altså linjen før "nummer = nummer + 1", tror jeg...

Du har sat id-arrayen til 50. Hvor mange records er der?

Tip: Brug en teksteditor med linienummer og syntax highlighting..
Shareware: EditPlus, www.editplus.com
Freeware: TSW WebPad / WebCode, www.tsw.dk

Der er intet som Notesblok =) Ellers tak. Men jeg fik også koden her fra eksperten.dk... Så ved ikke hvorfor den er sat til 50... Den skulle jo netop have været dynamisk, så den selv fandt ud af at vælge tilfældige poster... Kan du hjælpe, da jeg er helt lost lige nu!? Ville gerne forhøje pointene, men har ikke flere... :-(

EditPlus og WebPad / WebCoder er lige som Notesblok, blot med flere funktioner, der kan hjælpe. Det er IKKE FrontPage-agtigt crap! :-)

Brug det her i stedet: dim id()
brug evt et andet navn i stedet for "id", f.eks. "myID".. "id" kunne jo være et reserveret ord..

Så nu er den:

<%
Option Explicit

dim myConn, sql, rs, conn, strSQL

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

strSQL = "SELECT * FROM elements WHERE dagens = date()"
set rs = myConn.Execute(strSQL)

If (rs.BOF Or rs.EOF) Then

'angiv størrelse på array
dim myid()
dim nummer

'vælg alle poster i databasen
set rs=myConn.execute("select * from elements order by id")

' Udskriv alle id til et array
do while not rs.bof or rs.eof
    nummer = nummer + 1
    myid(nummer) = rs("myid")
    rs.moveNext
loop

'find et tilfældigt tal mellem 1 og antallet af poster i databasen
randomize
tal = int(rnd*nummer)+1

Else

strSQL = "UPDATE elements SET dagens = date() WHERE id = '"&myid(tal)&"'"
set rs = myConn.Execute(strSQL)

'udskriv en tilfældig post ( her er id ikke et nummer men en streng )
set rs=myConn.execute("select * from elements where id = '"&myid(tal)&"'")

    Response.Write "<br><a class='black' href='element_profil.asp?id=" & rs("id") &"' title='Gå til &#34;" & rs

("navn") &"&#34;'>"
    Response.Write "<img border='0' alt='Gå til element' src='" & rs("picture") &"' width='100' height='100'>"
    Response.Write "</a><br>&nbsp;"

End If

myConn.Close
Set Conn = Nothing
%>

Men stadig fejl:
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/includes/after01.htm, line 39

Husk: I databasen, er "id" af typen tal. Dvs, der må ikke sættes ' tegn udenom det.. OG, værdien skal konverteres til Integer:

where id = " & CInt(myid(tal))

begge steder..

melder den altid fejl, eller er det kun nogen gange?

Altid... Men prøver lige

Stadig:

Microsoft VBScript runtime error '800a0009'

Subscript out of range

/includes/after01.htm, line 39

hmm... kommer lige i tanke om noget.. da arrays starter ved 0 i stedet for 1, burde der vel stå "-1":

tal = int(rnd * nummer - 1)+1 - 1

som er det samme som:

tal = int(rnd * nummer - 1)

Det der kan ske, er at taller bliver større end antallet i arrayen.. så kan den ikke finde "item" i "collection"..

eller, hvordan skal det nu se ud..? :-)

tal = int(rnd * nummer -1) +1 ... måske..?

Er ikke helt sikker.. prøv lige engang med de forskellig kombinationer..

Alternativet er at tilføje alle værdier, separaret af f.eks. "," og til sidst, splitte den ved f.eks. ","
Så har du også en array.. det er det jeg plejer at gøre..

Eksempel: http://www.html.dk/tutorials/asp/lektion8.asp

Nu har jeg har ikke prøvet alternativet, da det ser ud til at være meget omfattende, men er fejlen ikke før "tal = int(rnd * nummer -1) +1" ?

Hvor mange records har du i databasen?

58

Hvad sker der, hvis du erstatter "tal" med "58", med "myid(tal)"?
Det burde stadig virke.. hvis det gør, prøv med "59" som burde melde (nogenlunde) samme fejl..

samme fejl

OK.. "tal" må ikke være større end max..

1) bruger du nummer = -1 ?
2) hvis ja til #1, prøv at bytte om på disse linier:
    nummer = nummer + 1
    myid(nummer) = rs("myid")

rettelse: "hvis nej til #1"..
Dvs, hvis nummer = 0, byt om..

fejl... nu er det bare linje 38 i stedet for 39. Ergo er det "myid(nummer) = rs("myid")" (som for resten er forkert og rettet til "myid(nummer) = rs("id")")der er forkert!

bruger du nummer = -1 ? eller andet?

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

strSQL = "SELECT * FROM [elements] WHERE dagens = date()"
set rs = myConn.Execute(strSQL)

If (rs.BOF Or rs.EOF) Then

'angiv størrelse på array
dim myid()
dim nummer

'vælg alle poster i databasen
set rs=myConn.execute("select * from [elements] order by [id]")

' Udskriv alle id til et array
do while not rs.bof or rs.eof
    myid(nummer) = rs("id")
    nummer = nummer -1
    rs.moveNext
loop

'find et tilfældigt tal mellem 1 og antallet af poster i databasen
randomize
tal = int(rnd * nummer -1) +1

Else

strSQL = "UPDATE [elements] SET dagens = date() where [id] = " & CInt(myid(59)) & ""
set rs = myConn.Execute(strSQL)

'udskriv en tilfældig post ( her er id ikke et nummer men en streng )
set rs=myConn.execute("select * from [elements] where [id] = " & CInt(myid(59)) & "")

    Response.Write "<br><a class='black' href='element_profil.asp?id=" & rs("id") &"' title='Gå til &#34;" & rs

("navn") &"&#34;'>"
    Response.Write "<img border='0' alt='Gå til element' src='" & rs("picture") &"' width='100' height='100'>"
    Response.Write "</a><br>&nbsp;"

End If

myConn.Close
Set Conn = Nothing
%>

Det skal være sådan her:

dim myid()
dim nummer
nummer = -1

og så:

do while not rs.bof or rs.eof
    nummer = nummer + 1
    myid(nummer) = rs("id")
    rs.moveNext
loop

Personligt fortrækker jeg:

if not (rs.bof or rs.eof) then ' undersøg om der er nogen poster
  do while not rs.eof ' kør loopen, sålænge at der er poster
    ...
  loop ' hop tilbage til "do"
else ' der er ikke fundet nogen poster:
  response.write "der er ikke fundet nogen poster"
end if

Jeg er ikke sikker på, jeg ser forskellen...

hmm.. da nummer indeholder max, men starter ved 0, skal man vel trække 1 fra nummer, inden man bruge "tal":

do while not rs.bof or rs.eof
    nummer = nummer + 1
    myid(nummer) = rs("id")
    rs.moveNext
loop

nummer = nummer - 1 ' da vi starter på 0 og ikke 1

'find et tilfældigt tal mellem 1 og antallet af poster i databasen
randomize
tal = int(rnd * nummer) +1

Hvis man ikke vil bruge nummer = nummer - 1, bruger man: tal = int(rnd * (nummer - 1)) +1

Desværre

kan du ikke lave en dummy database (fjern de originale data, og erstat dem med andet) og uploade den, så jeg kan downloade den?

Så har jeg en bedre chance for at debugge..

HUSK:
Ved fejl, skriv fejlmeddelelsen (kopier og sæt ind), linie nummer og selve linien.

Okidoki... Men kan de oprindelige data ikke bare blive der? Jeg laver det for en ven... Som du nok har gættet er det er det en spilhjemmeside. Men sletter lige de andre tabeller...

Jeg skal bruge tabellerne med nogle data..
Hvis data'ene er vigtige/personlige, erstat dem med noget andet (ikke vigtigt/personligt)..

Sådan... http://www.profil.2biaz.dk/database.mdb ... Selve siden ligger også på http://www.profil.2biaz.dk

hmmm.. forstår ikke helt det du vil..

1) hent de records, hvor dagens = dags dato
2) hvis der ikke er match
2a) opret array
2b) fyld array'en op med ALLE records
2c) sæt "tal" til et tilfældig tal, der passer i arrayen
3) ellers = der er fundet records med dags dato
-- fejl her da myid ikke er oprettet!

Hvad skal der ske, hvis den finder records? Skal den bare udskrive dem?

Ja, men har rettet fejlen efter at jeg skrev den herinde...

Og ja, systemet skal bare gøre sådan, at ejeren af hjemmesiden ikke selv skal vælge et spil. Så når en bruger besøger siden tjekker den, om der er valgt et spil, hvor "dagens" er sat til i dags dato... Hvis der ikke er, skal den vælge et tilfældigt og sætte dens dagens til i dags dato... Og derefter udskrive!

Altså:
- Findes spil med dags dato?
- Ja = Udskriv!
- Nej = Vælg nyt spil, giv dags dato og udskriv!

Ahh... :-)
Kigger lige på det :-)

Ang "- Ja = Udskriv!"..
Hvis den finder flere, der har dags dato, skal den vælge en tilfældig en?

Altså:

- Findes spil med dags dato?
- Ja = udskriv en tilfældig record, af dem med dags dato
- Nej = udskriv en tilfældig record, af ALLE dem der er i databasen

Korrekt?

..jeg fik det nemlig til at virke, lige før.. men kunne ikke helt se det smarte i det..

Der kommer vel ikke til at være flere med samme dags dato?

Dvs, "nej" sætter 1 spil til dags dato.. og så er det KUN det spil der kan komme frem (den dag) ?

Test: http://frip.dk/thesurfer/e/q/578281/index.asp

Virker det som det skal?

så kan man vel bare lave en

myConn.execute("select rnd id from [elements] ")

så får man eet tilfældigt id,
som så bare skal sættes i til at være dagens bagefter

og alt det med array og tælle op og så videre er unødvendigt.

Ja, det virker perfekt...

<%
Option Explicit
Response.Buffer = False
dim myConn, sql, rs, conn, strSQL, tal

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

strSQL = "SELECT * FROM [elements] WHERE dagens = #" & date() & "#" '#01-07-2001#"
set rs = myConn.Execute(strSQL)

'angiv størrelse på array
dim myid()
dim nummer
nummer = -1

If (rs.BOF Or rs.EOF) Then

    'vælg alle poster i databasen
    set rs = myConn.execute("select * from elements order by id")


    ' Udskriv alle id til et array
    do while not rs.eof
'            response.write "nummer: " & nummer & "<br>"
            nummer = CInt(nummer) + 1
            myid(nummer) = rs("id")
            rs.moveNext
    loop


    'find et tilfældigt tal mellem 1 og antallet af poster i databasen
    randomize
    tal = int(rnd * nummer -1) +1

response.write "Der er ikke fundet nogen spil med dags dato.<br>"
response.write "Ny dato indsat til spillet med id'en: " & myid(tal) & "<br><br>"

    strSQL = "UPDATE elements SET dagens = #" & date() & "# where id = " & CInt(myid(tal))
    set rs = myConn.Execute(strSQL)

    'udskriv en tilfældig post ( her er id ikke et nummer men en streng )
    set rs = myConn.execute("select * from elements where id = " & CInt(myid(tal)))

    Response.Write "<br><a class='black' href='element_profil.asp?id=" & rs("id") &"' title='Gå til &#34;" & rs("navn") & "&#34;'>"
    Response.Write "<img border='0' alt='Gå til element' src='" & rs("picture") &"' width='100' height='100'>"
    Response.Write "</a><br>&nbsp;"

Else

    Response.Write "Følgende spil blev fundet, med dagens dato:<br>"
    Response.Write "<br><a class='black' href='element_profil.asp?id=" & rs("id") &"' title='Gå til &#34;" & rs("navn") &"&#34;'>"
    Response.Write "<img border='0' alt='Gå til element' src='" & rs("picture") &"' width='100' height='100'>"
    Response.Write "</a><br>&nbsp;"

End If

set rs = nothing

myConn.Close
Set Conn = Nothing
%>


Mht points: snup du dem bare :-)

..du kan bare slette: '#01-07-2001#"
(det var bare en test)

:-( får stadig at vide, subscriptet er "out of range"...

- OK, prøv med dim myid(60)

- har ikke testet om 08/01-2005 00:01:51 virker

- omgås array-fejlen (tror jeg):

dim myid ' denne er ikke defineret som array!
...
myid = myid & rs("id") & "," ' i stedet for: myid(nummer) = rs("id")
rs.movenext
loop

myid = left(myid, len(myid) - 1) ' fjern det sidste komma
myid = split(myid, ",") ' lav myid om til en array!

Så kan du bruge myid(tal)..


-- tester lige når jeg kommer tilbage.. smutter et par timer..

Yes, det virker :-D Mange gange tak...

Men du ville ikke ha' point? Der er jo hele 5 på spil her ;-)

Nah.. jeg springer over :-)
Så kan du bruge dem, på noget der er lidt svære :-)

Okidoki =)