Bonjour,
au moment de lancer une page, j'ai une erreur de type :
Erreur d'exécution Microsoft VBScript (0x800A01AD)
Un composant ActiveX ne peut pas créer un objet.: 'paiementsips403.SIPS'
le probleme viendrait de :
set transaction = createobject("paiementsips403.SIPS")
dans la page :
<%@ LANGUAGE = VBScript %>
<!--#INCLUDE FILE="_libCaddie.asp"-->
<%
dim mMontant
Dim TCaddy, tsForm
dim transaction
'Récupération des Variables: Elle seront envoyées par URL a la page FinAchat.asp (voir plus bas)
tsForm = chr(30) & "Raison=" & Request.Form("Raison")
tsForm = tsForm & chr(30) & "Activite=" & request.Form("Activite")
tsForm = tsForm & chr(30) & "Civilite=" & request.Form("Civilite")
tsForm = tsForm & chr(30) & "Nom=" & request.Form("Nom")
tsForm = tsForm & chr(30) & "Prenom=" & request.Form("Prenom")
tsForm = tsForm & chr(30) & "Adresse=" & replace(replace(request.Form("Adresse"), ",", "§"), vbcrlf, "¤")
tsForm = tsForm & chr(30) & "CP=" & request.Form("CP")
tsForm = tsForm & chr(30) & "Ville=" & request.Form("Ville")
tsForm = tsForm & chr(30) & "Pays=" & request.Form("Pays")
tsForm = tsForm & chr(30) & "Tel=" & request.Form("Tel")
tsForm = tsForm & chr(30) & "Fax=" & request.Form("Fax")
tsForm = tsForm & chr(30) & "Mail=" & request.form("Mail")
tsForm = tsForm & chr(30) & "Produit=" & request.form("Produit")
tsForm = tsForm & chr(30) & "Qte=" & request.form("Qte")
tsForm = tsForm & chr(30) & "maTva=" & request.Form("TVA")
tsForm = tsForm & chr(30) & "PayerTva=" & request.Form("PayerTVA")
tsForm = tsForm & chr(30) & "Comment=" & replace(replace(request.Form("Comment"), ",", "§"), vbcrlf, "¤")
TCaddy = session("Caddy")
if not isArray(TCaddy) then
Response.Write("<H3>Une erreur inattendue s'est produite: 'Le panier est vide'.</H3>")
mMontant = 0
else
tsForm = tsForm & chr(30) & "Caddy=" & TableToString(TCaddy) & chr(30)
if request.Form("PayerTVA") = "Oui" then 'On fait payer HT ou TTC suivant client
mMontant = TTC(TCaddy) 'Attention: ce montant doit être donné en Euro pour la transaction.
else
mMontant = THT(TCaddy)
end if
if mMontant > 0 and IsNumeric(mMontant) then
set transaction = createobject("paiementsips403.SIPS")
'response.Write(mMontant & "<br>")
mMontant = FormatCurrency(mMontant) * 100 'Attention Transaction.amount doit être en centime donc on multipli par 100
'response.Write(mMontant & "<br>")
'mMontant = cInt(mMontant)
transaction.amount = mMontant
'response.Write(mMontant)
transaction.caddie = tsForm
transaction.name = "begin"
transaction.pathfile = "c:/cyberplus/payment/parm/Achat/pathfile"
'REM -- set payment variables according to the website
'REM -- values have to be retrieved from previous ASP within the site
hr = hour(time)
mn = minute(time)
sc = second(time)
transaction.transaction_id = hr & mn & sc
transaction.advert = "merchant.gif"
'transaction.cancel_logo = "cancel.gif"
'transaction.return_logo = "retour.gif"
'transaction.submit_logo = "valider.gif"
transaction.currency_code = "978"
transaction.url_retour_normal = "http://www....asp"
transaction.url_retour_annul = "http://www....asp"
transaction.url_retour_auto = "http://www.....asp"
transaction.language = "fr"
transaction.merchant_id = "038392382800032"
'transaction.merchant_id = "038862749811111" 'Numéro de DEMO
transaction.merchant_country="fr"
'REM -- call ACTIVEX component to access SIPS payment DLL
transaction.affiche_api
if transaction.code_retour <> 0 then
Response.Write "erreur API message : "& transaction.erreur
end if
'REM -- display message
Response.Write transaction.message
set transaction = nothing
else
transaction.amount = "-1"
%>
<html>
<head>
<title>Paiement sécurisé </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="Styles.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%"><tr>
<td align="center" valign="top">
<table cellspacing="10" bgcolor="#F2EFF8">
<tr>
<td>
<p class="ActuSousTitre">La commande n'est pas valide, veuillez en vérifier
le contenu.<br>
</p>
<p><span class="ActuSousTitre">Pour celà veuillez </span><a href="../Produits/Achat.asp" class="ActuLien">cliquer
ici</a><span class="ActuSousTitre">.</span></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
end if
end if
%>
j'aurais donc voulu savoir quel est le soucis avec l'Activex...avec le code...
merci d'avance pour votre aide...
Configuration: Windows 2000
Firefox 3.5.2
Bouton excel executer vbscript
