Le meme code fonctionne correctement avec Windows 98 avec PWS et non avec Windows Xp IIS. Voila le code source :
<!-- #include virtual="/Scripts/CsbdScript/Adovbs.inc" -->
<html>
<head>
<title>Ajouter un nouveua client dans la BD</title>
</head>
<body>
<% Set oRs = Server.CreateObject("ADODB.Recordset" )
oRs.Open "clients", "GestStockFac",adOpenKeyset,adLockPessimistic, adCmdTable
Set oRs2 = Server.CreateObject("ADODB.Connection" )
oRs2.Open "GestStockFac" 'Le DSN système de la base
%>
<% name=Request.Form("nomUser" )
motDeP=Request.Form("motDePasse" )
Valeur1=Request.Form("Ch1" )
Valeur2=Request.Form("Ch2" )
Valeur3=Request.Form("Ch3" )
Valeur4=Request.Form("Ch4" )
Valeur5=Request.Form("Ch5" )
Valeur6=Request.Form("Ch6" )
Valeur="'" & Valeur1 & "'," & "'" & Valeur2 & "'," & "'" & Valeur3 & "',"
Valeur = Valeur & "'" & Valeur4 & "'," & "'" & Valeur5 & "'," & "'" & Valeur6 & "'"
strSql = "INSERT INTO clients(numCl, nom, adresse, tel, fax, email) " _
& "VALUES(" & Valeur & " );"
%>
<% If name = "Toto" AND motDeP ="TotoAli" Then
oRs2.EXECUTE(strSql) 'Exécution de la requête
%>
<H3>L'enregistrement a été ajouté à la table client</H3>
<% Else %>
<H3>L'enregistrement n'a pas été ajouté à la table client car vous n'avez pas les droits pour le faire</H3>
<% End If %>
<% oRs.Close
Set oRs = Nothing
oRs2.Close
Set oRs2 = Nothing
%>
</body>
</html>