Le résultat de la requête n'affiche qu'une seul fois la valeur de n
et une infité de: '&n&' alors qu'il doit avoir que 5 résultats à le requête (TOP 5)
et ne donne pas la liste des identifiants des semaine de la TAB_SEMAINES
<body>
<%On Error Resume Next
response.write "Test de connexion à la base" & "<BR>"
'----------------------------------------------------
'Variables d'accès à la base
'----------------------------------------------------
Serveur = "Ip_du_serveur"
Base = "essai"
Compte = "mon_login"
MotPasse = "MDP"
'----------------------------------------------------
'Routine d'ouverture et de fermeture de la base
'----------------------------------------------------
Server.ScriptTimeOut = 1000 //
DIM n //la valeur de n représente le numéro du résutat de
//la requête qui est dans le tableau rs
n = 0
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.ConnectionString ="Provider=SQLOLEDB;User ID=" & Compte & ";PWD=" & MotPasse & ";Initial Catalog=" & Base & ";Data Source=" & Serveur
Connect.Open
Set rs = Server.CreateObject("ADODB.Recordset")// on peut
//voir que rs est tableau de résultats
sql= "SELECT TOP 5 id_Semaine FROM dbo.assai.TAB_SEMAINE"
response.write sql & "<BR>"
rs.open sql,Connect,adOpenstatic,adLockReadOnly,adCmdText
response.write n
while not (rs.eof)
response.write "<p> " '&n&'"" "<BR>"
response.write "'&n&'"
response.write rs("id_semaine")
response.write '&n&'
response.write"</p>"
rs.movenext
n = n + 1
WEND
%>
Merci de bien vouloir m'aider.