Det er "conn.CursorLocation= 3" der er noget i vejen med, nogle steder hvor
jeg kan læse om det??
takker
"Morten R. Rasmussen" <mortrr@liamtoh.com> skrev i en meddelelse
news:3e307438$0$253$edfadb0f@dread14.news.tele.dk...
> Du har ikke vist afslutningen af scriptet.
>
> Som scriptet er nu kan NytTal ikke blive -1, så der må ske noget med det i
> slutningen af den next.
>
> Den metode til at få tilfældige records er forøvrigt ikke specielt god.
> > NytTal=int(rnd*(AntalRecords))
> > if instr(rndstring,NytTal)= 0 then
> > rndstring=rndstring & ", " & cstr(NytTal)
> burde være
> NytTal=int(rnd*(AntalRecords))
> if instr(rndstring,"," & NytTal & ",")= 0 then
> rndstring=rndstring & ", " & cstr(NytTal)
> (og rndstring skal så initialiseres til ",")
>
> - Morten
>
> "N9" <nhiasy@stofanet.dk> wrote in message
> news:3e2fc344$0$2578$ba624c82@nntp04.dk.telia.net...
> > hej
> >
> > Jeg har lige overtaget et script som jeg ikke kan tyde håber at i kan
> > hjælpe.
> >
>
> --------------------------------------------------------------------------
> --
> > -----------------------------------
> >
> > dim strSQL, con, rs, vis, vis2, vararray
> > call OpenDB(conn,rs)
> > strSQL="select s.web, B.Sti, B.Beskrivelse from tblSponsor as S left
> join
> > tblBilledkatalog as B on S.billedid=B.billedid where placering=1"
> > rs.Open strSQL
> > if not rs.EOF then
> > rndstring=""
> > vararray=rs.GetRows()
> > AntalRecords=rs.RecordCount
> >
> > end if
> >
> > rs.Close
> > call CloseDB(conn,rs)
> >
> >
> > intLastCol=UBound(vararray,1)
> > intLastrow=UBound(vararray,2)
> > randomize
> >
> > for IntRow =0 to IntLastRow
> > s=0
> > do while s=0
> > NytTal=int(rnd*(AntalRecords))
> > if instr(rndstring,NytTal)= 0 then
> > rndstring=rndstring & ", " & cstr(NytTal)
> > s=1
> > IntCol=0
> >
> > %>
> >
> > <td align="center"><a href="
http://<%=vararray(IntCol, NytTal)%>"
> > target="blank"><img src="<%=application("URL")%><%if
> len(vararray(IntCol+1,
> > NytTal))<3 or isnull(vararray(IntCol+1, NytTal))
> > en Response.Write "/images/space.gif" else Response.Write "/upload/" &
> > vararray(IntCol+1, NytTal) end if%>" alt="<%=vararray(IntCol+2,
NytTal)%>"
> > border="0" ></a></td>
> >
> > "denne linie er der fejl "
> > Microsoft VBScript runtime error '800a0009'
> >
> > Subscript out of range: '-1'
> >
> > /include/sponsorforside.asp, line 56
> >
> > Det er nyttal der giver "-1"
> >
> > Der er informationer i db'en
> >
> > Jeg kan ikke lige overskue hvad det er, evt. en som kan omskrive den.
> >
> > Mange tak på forhånd
> >
> > MVH
> > N9
> >
> >
>
>