Bonjour,
dans le script ci-dessous il doit avoir un problème car je reçois toujours le message d'erreur suivant: Cette opération n'est pas autorisée si l'objet est fermé.
Ce que je veux faire:
- Etape 1: lui demander d'aller chercher dans la table Resultats tous les résultats où UserLog = la variable renvoyée et récupérer la valeur idMac
- Etape 2: lui demander de supprimer dans la table ResRub tous les enregistrements pour lesquels ResRubId = pResRubId

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
<% dim mySQL,connTemp, rsTemp, rsTemp3
 
' retrieve variables
pLang	    	= getUserInput(request.querystring("Lang"),4)
pUserId	    	= request.Querystring("UserId")
pUserId			= CINT(pUserId)
pUserLog	    = request.Querystring("UserLog")
%>
<% 
 
 
' get the ResRubId
mySQL="SELECT * FROM Resultats WHERE (UserLog = '"&pUserLog&"')  "
call getFromDatabase(mySQL, rstemp, "AdminAccount_DeleteUser") 
do while not rstemp.eof 
 
pResRubId	=	rstemp("idMac")
 
mySQL="DELETE FROM ResRub WHERE (ResRubId = "&pResRubId&" )  "
call updateDatabase(mySQL, rstemp, "AdminAccount_DeleteUser") 
 
rstemp.moveNext
loop
%>