Erreur d'exécution Microsoft VBScript (0x8...

Fermé
MiWi86-33 Messages postés 142 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 20 juin 2011 - 31 août 2009 à 10:02
MiWi86-33 Messages postés 142 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 20 juin 2011 - 31 août 2009 à 14:39
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&eacute;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...
A voir également:

1 réponse

Réponse 1 / 1
MiWi86-33 Messages postés 142 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 20 juin 2011 9
31 août 2009 à 14:39
allo?
0