Voilà un bout de code tout à fait classique ... ça marche bien avec le PWS par contre, une fois en ligne ... ça me provoque une erreur ...
Set oConn = Server.CreateObject("ADODB.Connection" )
oConn.Open "dynabase"
Set oRs = Server.CreateObject("ADODB.Recordset" )
oRs.Open "dossiermail", "dynabase", adOpenKeyset, adLockPessimistic, adCmdTable
oRs.AddNew
oRs.Fields("ref-dossier" ) = session("ref-dossier" )
oRs.Fields ("texte" ) = session("texte" )
oRs.Fields ("dest1" ) = session("dest1" )
oRs.Fields ("dest2" ) = session("dest2" )
oRs.Fields ("dest3" ) = session("dest3" )
oRs.Fields ("objet" ) = session("objet" )
if session("infos" ) ="1" then
oRs.Fields ("email" ) = session("email2" )
else
oRs.Fields ("email" ) = session("email" )
end if
select case session("signature" )
case "sign1" : oRs.Fields ("signature" ) = session ("prenom" ) & " " & ucase(session("nom" ))
case "sign2" : oRs.Fields ("signature" ) = ucase(session ("nom" )) & " " & session("prenom" )
case "sign3" : oRs.Fields ("signature" ) = session ("autresign" )
end select
oRs.Update
oRs.Close
oConn.Close
set oRs = nothing
set oConn = nothing
L'erreur qui s'en suit à l'exec: Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Pilote ODBC Microsoft Access]Erreur dans la ligne
la ligne provoquant l'erreur est: oRs.Update
Je ne vois vraiment pas où est le binz, c'est pourquoi j'en fais appel à vous ...
D'avance merci !!