Problème avec Random

**Mvu** · 28/09/2005, 10h11

Voici le message que je reçois pour le script ci-dessous:

Le jeu d'enregistrements en cours ne prend pas en charge les signets. Il s'agit peut-être d'une limitation du fournisseur ou du type de curseur sélectionné.

Voici le script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
<% 
   Dim objConn1, pRandom 
   pNewsShown       = 1 
 
   Set objConn1 = Server.CreateObject("ADODB.Connection") 
   objConn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ 
                         Server.MapPath("../fpdb/Editor.mdb") 
 
    mySQL="SELECT COUNT(idNews) AS howManyHome FROM News WHERE (idNews > 0) "    
   objConn1.Open 
   Dim rstemp1 
   Set rstemp1 = Server.CreateObject("ADODB.Recordset") 
   rstemp1.open mySQL, objConn1, adOpenKeySet 
 
 
   if rsTemp1.eof then 
    howManyHome=0 
   else 
    howManyHome=rstemp1("howManyHome") 
   end if 
 
      mySQL="SELECT idNews FROM News WHERE (idNews > 0)" 
 
   response.write howmanyhome 
 
   reDim arrNews(pNewsShown,1) 
 
   for pNewsNum = 0 to pNewsShown -1 
 
   if pNewsNum <= howManyHome then 
   'select a random number between 1 and pItemsShown 
    pRandom = Rnd(howManyHome) 
   'move recordset to the record pointed by pRandom 
   rstemp1.AbsolutePosition = pRandom 
 
   arrNews(pNexsNum,0)= rstemp1("idNews") 
 
   end if 
 
   next 
 
    %>