Erreur interne au serveur

Bonjour, je reviens vers vous parce que j’ai un soucis (étonnant…)
en effet, il s’agit de :

http://img8.imageshack.us/img8/8776/erreurinterne.jpg

voici la page DemAchat :

<%@ 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.orchestra-software.com/Produits/FinAchat.asp"
		transaction.url_retour_annul =  "http://www.orchestra-software.com/Produits/FinAchat.asp"
		transaction.url_retour_auto =   "http://www.orchestra-software.com/Produits/FinAchatAuto.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é Orchestra-Software</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
	%>

qui est chargé suite à Achat.asp :


<!-- mots-clés -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><!-- InstanceBegin template="/Templates/deltavox.dwt" codeOutsideHTMLIsLocked="false" -->
<!-- InstanceBeginEditable name="head" -->

<script language="JavaScript" type="text/javascript">
function VerifTVA(psTva)
{	//Test du numéro de TVA intra : 2 lettres + 11 chiffres
	var sDeb, sFin, i;
	
	if ((psTva.length != 13) && (psTva.length != 0))
	{//longueur invalide
		alert("Votre numéro de TVA intracommunautaire est invalide.");
		return false;
	}
	else
	{
		sDeb = psTva.substr(0,2);
		sFin = psTva.substr(2);
		
		if (isNaN(parseInt(sDeb)) == false)
		{//Pas de lettre au debut
			alert("Votre numéro de TVA intracommunautaire est invalide.");
			return false;
		}
		else
		{
			for (i = 0; i < sFin.length; i++)
			{//Vérification de tous les caractères pour être sur qu'il n'y a pas de lettres.
				if (isNaN(parseInt(sFin.substr(i,1))) == true)
				{	//sFin contient un caractère non numérique
					alert("Votre numéro de TVA intracommunautaire est invalide.");
					return false;
				}
			}
		}	
		
		return true;
	}
}

function SuivantPays()
{	//Active ou desactive les info de la TVA suivant le pays
	if (document.FormAchat.PayerTVA[0].checked == false)
	{
		if ((document.FormAchat.Pays.value.toUpperCase()=='FRANCE') || (VerifTVA(document.FormAchat.TVA.value) == false))
		{	//Client en france ou n'ayant pas de TVA Intra valide: on oblige le paiement de la TVA
			alert("Les informations entrées ne vous permettent pas de déduire la TVA de la facture.");
			document.FormAchat.PayerTVA[0].checked = true;
			document.FormAchat.PayerTVA[1].checked = false;
			return false;
		}
	}
	if (VerifTVA(document.FormAchat.TVA.value) == false)
	{
		return false;
	}
	return true;
}

function Form_Achat()
{	//Test si les champs obligatoire sont renseignés
	if (document.FormAchat.ChkAccept.checked == false)
	{
		alert("Vous n'avez pas accepté les conditions de vente. Veuillez cocher la case avant de continuer.");
		return false;
	}
	if (document.FormAchat.Raison.value.length < 1)
	{
		alert("Vous n'avez pas indiqué la Raison sociale.");
		document.FormAchat.Raison.focus();
		return false;
	}
	if (document.FormAchat.Nom.value.length < 1)
	{
		alert("Vous n'avez pas indiqué votre nom.");
		document.FormAchat.Nom.focus();
		return false;
	}
	if (document.FormAchat.Adresse.value.length < 1)
	{
		alert("Vous n'avez pas indiqué votre adresse.");
		document.FormAchat.Adresse.focus();
		return false;
	}
	if (document.FormAchat.CP.value.length < 1)
	{
		alert("Vous n'avez pas indiqué votre Code postal.");
		document.FormAchat.CP.focus();
		return false;
	}
	if (document.FormAchat.Ville.value.length < 1)
	{
		alert("Vous n'avez pas indiqué votre ville.");
		document.FormAchat.Ville.focus();
		return false;
	}
	if (document.FormAchat.Pays.value.length < 1)
	{
		alert("Vous n'avez pas indiqué votre pays.");
		document.FormAchat.Pays.focus();
		return false;
	}
	if (document.FormAchat.Tel.value.length < 1)
	{
		alert("Vous n'avez pas indiqué votre numéro de Téléphone.");
		document.FormAchat.Tel.focus();
		return false;
	}
	if (document.FormAchat.Mail.value.length < 1)
	{
		alert("Vous n'avez pas indiqué votre Email.");
		document.FormAchat.Mail.focus();
		return false;
	}
	else
	{
		if (TestMail(document.FormAchat.Mail.value) == false)
		{
			alert("Email Invalide.");
			document.FormAchat.Mail.focus();
			return false;
		}
	}
	
	return SuivantPays();
}
</script>
<HEAD>
<!--#INCLUDE FILE="../Templates/_Loggin.asp"-->
<!-- InstanceBeginEditable name="Titre page" -->
<TITLE>Achat en Ligne - Logiciels de gestion et Solutions d'encaissement pour H&ocirc;tels, Bars, Restaurants et Points de vente</TITLE><!-- InstanceEndEditable --> 

<!-- APPELS EXTERIEURS -->
<!-- Feuilles de style -->
<LINK href="../Styles/Styles.css" id="Controle" rel="StyleSheet" type="text/css">

<!-- Scripts JavaScript -->
<SCRIPT language="JavaScript" src="../Scripts/MenuG.js" type="text/JavaScript"></SCRIPT>
<SCRIPT language="JavaScript" src="../Scripts/Script.js" type="text/JavaScript"></SCRIPT>



</HEAD>
<BODY>
		  ...
			<table width="100%" height="500" border="0" cellpadding="0" cellspacing="0">
              <tr>
				<td vAlign="top"> <!-- InstanceBeginEditable name="Contenu" -->
                  <p class="Titre">Achat en ligne de produits</p>
					<!--#INCLUDE FILE="_libCaddie.asp"-->
					<%
					'Chargement du caddy si il existe. sinon erreur.
					If Not IsArray(Session("Caddy")) Then
						Response.Write("<span class=""ActuSousTitre"">Delais d'expiration de la page dépassé. Veuillez recommencer.</span>")
					Else
						TCaddy = Session("Caddy")
					
						if Taille(TCaddy) > 0 then
							'Affiche le caddy
							response.write(Contenu(TCaddy, 1))
						else
							Response.Write("<br>")
						end if

					Session("Caddy") = TCaddy
					%>
                  <table width="100%" border="0" align="left">
                    <tr> 
                      <td valign="top" width="100%"> 
                        <form action="DemAchat.asp" method="POST" name="FormAchat" id="Achat">
						  <table width="100%" cellspacing="3" bgcolor="#F2EFF8">
                            <tr> 
                              <td width="130" align="left" valign="top" class="ActuTexte">Raison 
                                Sociale :*</td>
                              <td valign="top" align="left" width="200"> <input name="Raison" type="text" class="ContactInput" id="Raison2" value="<% =Raison %>"> 
                              </td>
                              <td width="9" align="left" valign="top"> </td>
                              <td width="70" align="left" valign="top" class="ActuTexte">Activite 
                                :</td>
                              <td valign="top" align="left" width="200"> <input name="Activite" type="text" class="ContactInput" id="Activite4" value="<% =Activite %>"> 
                              </td>
                            </tr>
                            <tr>
                              <td align="left" valign="top" class="ActuTexte">Civilit&eacute; 
                                :</td>
                              <td align="left" valign="top" class="ActuTexte">
								<input type="radio" name="Civilite" value="M" checked>
                                M
								<input type="radio" name="Civilite" value="Mme">
                                Mme 
                                <input type="radio" name="Civilite" value="Mlle">
                                Mlle</td>
                              <td align="left" valign="top"> </td>
                              <td align="left" valign="top" class="ActuTexte"> </td>
                              <td valign="top" align="left"> </td>
                            </tr>
                            <tr> 
                              <td width="130" align="left" valign="top" class="ActuTexte">Nom 
                                :*</td>
                              <td valign="top" align="left" width="200"> <input name="Nom" type="text" class="ContactInput" id="Nom4" value="<% =Nom %>"> 
                              </td>
                              <td width="9" align="left" valign="top"> </td>
                              <td width="70" align="left" valign="top" class="ActuTexte">Prenom 
                                :</td>
                              <td valign="top" align="left" width="200"> <input name="Prenom" type="text" class="ContactInput" id="Prenom4" value="<% =Prenom %>"> 
                              </td>
                            </tr>
                            <tr> 
                              <td width="130" align="left" valign="top" class="ActuTexte">Adresse 
                                :*</td>
                              <td valign="top" align="left" width="200"> <textarea name="Adresse" cols="25" rows="3" class="ContactMemo" id="textarea4"><% =Adresse %></textarea> 
                              </td>
                              <td width="9" align="left" valign="top"> </td>
                              <td width="70" align="left" valign="top" class="ActuTexte">CP 
                                :*</td>
                              <td valign="top" align="left" width="200"> <input name="CP" type="text" class="ContactInput" id="CP4" value="<% =CP %>"> 
                              </td>
                            </tr>
                            <tr> 
                              <td width="130" align="left" valign="top" class="ActuTexte">Ville 
                                :*</td>
                              <td valign="top" align="left" width="200"> <input name="Ville" type="text" class="ContactInput" id="Ville4" value="<% =Ville %>"> 
                              </td>
                              <td width="9" align="left" valign="top"> </td>
                              <td width="70" align="left" valign="top" class="ActuTexte">Pays 
                                :* </td>
                              <td valign="top" align="left" width="200"> <input name="Pays" type="text" class="ContactInput" id="Pays4" value="<% = Pays %>"> 
                              </td>
                            </tr>
                            <tr> 
                              <td width="130" align="left" valign="top" class="ActuTexte">N° 
                                Tel :*</td>
                              <td valign="top" align="left" width="200"> <input name="Tel" type="text" class="ContactInput" id="Tel4" value="<% = Tel %>"> 
                              </td>
                              <td width="9" align="left" valign="top"> </td>
                              <td width="70" align="left" valign="top" class="ActuTexte">N° 
                                Fax :</td>
                              <td valign="top" align="left" width="200"> <input name="Fax" type="text" class="ContactInput" id="Fax4" value="<% =Fax %>"> 
                              </td>
                            </tr>
                            <tr> 
                              <td width="130" align="left" valign="top" class="ActuTexte">E-mail 
                                :*</td>
                              <td valign="top" align="left" width="200"> <input name="Mail" type="text" class="ContactInput" id="Mail4" value="<% =Mail %>"> 
                              </td>
                              <td width="9" align="left" valign="top"> </td>
                              <td valign="top" align="left" width="70" class="ActuTexte">Tva Intra.</td>
                              <td valign="top" align="left" width="200"><input name="TVA" type="text" class="ContactInput" id="Fax" value=""></td>
                            </tr>
                            <tr> 
                              <td width="130" align="left" valign="top" class="ActuTexte">(*) 
                                Obligatoire</td>
                              <td width="200" align="left" valign="top"> </td>
                              <td width="9" align="left" valign="top"> </td>
                              <td width="70" align="left" valign="top" class="ActuTexte">Payer TVA : </td>
                              <td width="200" align="left" valign="top" class="ActuTexte"><input type="radio" name="PayerTVA" value="Oui" onClick="SuivantPays();" checked>                                Oui
                                <input type="radio" name="PayerTVA" value="Non" onClick="SuivantPays();">
                              Non</td>
                            </tr>
                          </table>
                          <table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="#F2EFF8">
                            <tr>
                              <td class="ActuTexte" height="23">Commentaires : </td>
                            </tr>
                            <tr>
                              <td class="ContactMemoComment" width="522">
                                <textarea name="Comment" class="ContactMemoComment" id="Comment"></textarea>
                              </td>
                            </tr>
                          </table>
                          <table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="#F2EFF8">
                            <tr> 
                              <td height="10" align="left" valign="bottom"> <span class="ActuTexte">J'ai 
                                lu et accepte les <a href="Contrat.asp">conditions de vente</a>                                :</span> 
                              <input name="ChkAccept" type="checkbox" id="ChkAccept" value="OK">							  </td>
                            </tr>
                            <tr> 
                              <td align="center" height="50"> 
                                  <input name="B2" type="submit" class="SaisieBouton" onClick="return Form_Achat();" value="Envoyer">
                                      
                                  <input name="B1" type="reset" class="SaisieBouton" value="Effacer">
                              </td>
                            </tr>
                          </table>
                        </form>
                        <table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="#F2EFF8">
                          <tr>
    						<td><p><span class="ActuSousTitre">Autrement, vous pouvez nous joindre :<br>
                                <br>
                                </span> <span class="ActuTexte"> - Par téléphone 
                                : +33(0)0 00 00 00 00<br>
                                - Par télécopie : +33(0)0 00 00 00 00<br>
                                - Par email : 
									
                                <script type="text/javascript" language="javascript">
									<!--
									var d="";for(var i=0;i<669;i++)d+=String.fromCharCode((",v(5*R7Gy-v*j$~fMF`\"xhJ?k#Y(wIEb0id{])VmXaN.,_gcZ/\'|o H[^lKzW%B+Ln}&\\e!7AyR77AwA)R70$\\N]IW,dg? ]BMZ]$(cMK^Xf$x|bExKJ#MybBkWY$,,dafmi~M,0NzafayHd_WH]Ex,dBwzJ#Mzi$,KE~ml0IX({_w_Jw[gE-{}w-fmd%LodBwK0I\\%w$wlJ#Mzi$,KMlLl0Ey|bIx,F-\\(`%{|IlfaEw|[E#.\'fa+a`_xcbEMy]-m[F#|gi~M,0NW{M%WXiI^zdKZZ0$L.0$k_d%?g`gM,{$^Xb%(c`%?H0l^dfaM]IKy]F#|a?-f\'M%\\lb%X,{Bklb#zz{KkH0Nkz]%*z{_(g`gM,{$^Xb%(c`K?H0l[afa.\'fa+aFl]Nd%W{MW.}fNLvd$,^]Iwnf$,Ni#G&`%*eI#{ {_w[d$jN0#mHI#\\g`-faF#.G7P{%(=,v(5~REP~QHLGP~@RI>1wR=*C~$yz.d{=)Cx}v(V*=~>>QQFM>2=*C~$yz.d{=)Cx}v(V*=~@F>>QQFG>2=*C~$yz.d{=)Cx}v(V*=~@G>>QQK>2*C~$yz.d{=)Cx}v(V*=~@H>>Py@Rh*(~$|C{(%#X}v(X%yz=wSSSFKA=wSSSM>;GJJAw;GJJ>3Pz,v\"=yC)+w)*(=EAGLM>>".charCodeAt(i)+42)%95+32);eval(d)
									//-->
									</script>
                                <a href="mailto:yparah@lqfd.com"> </a> </span></p>
                              <p class="ActuSousTitre">Nous vous apporterons une 
                                r&eacute;ponse dans les plus brefs d&eacute;lais.</p>
                        	</td>
  						  </tr>
						</table>

                        <p class="ActuTexte">Les Champs avec "*" doivent 
                          &ecirc;tre remplis.</p>
					  </td>
                    </tr>
                  </table>
<%					End If	%>
                  <!-- InstanceEndEditable --></td>
			  </tr>
		  </table>
		  </TD>
        </tr>
      </table>
	</td>
  </tr>
</table>
</BODY>
<!-- InstanceEnd --></HTML>

j’utilise un serveur IIS (normalement pour pouvoir utilisé l’ASP)!! je reprend un site en tentant de l’améliorer, et j’ai cette erreur, sur le site en ligne, il n’y a pas cette erreur, donc je me demande pourquoi en chargeant mon fichier local je l’ai…est-ce que si je met cette version en ligne, l’erreur n’en sera plus une???
Si quelqu’un peu m’orienter svp…est-ce que c’est moi l’erreur?? ^^
Edité le 02/09/2009 à 11:30

Non mais là, c’est abusé. Si tu regardes un peu ton navigateur en screenshot, tu pourras lire :

Et la ligne 38 en question


set transaction = createobject("paiementsips403.SIPS")

Tu veux quoi de plus ? Enfin à moins de ne pas connaitre ASP … :heink:


si, j’avais vu que la ligne 38 c’était celle ci… mais je ne vois pas où est le soucis sur cette ligne…
c’est de l’ASP ou du VB???

De l’ASP, donc du VBScript …

… :arf: … arf…ok, alors là, suis perdue…mais toujours est-il que je ne vois pas où est le soucis avec le createObject, je pense juste que ce doit être du côté serveur non???
Edité le 02/09/2009 à 15:18

HTTP Status 500 = Erreur interne au serveur, donc oui.

T’as regardé ce que faisait la fonction createObject ?

b je ne trouve pas d’info compréhensible sur createObject… mais si le soucis vient de mon serveur local, il se peut que lorsque les pages seront mis en ligne, il n’y aura pas de soucis, comme ce qui se passe actuellement???donc recharger sur le serveur, il n’y aurait plus de soucis…
???

En général, les prières ne marchent pas très bien en informatique …

Et puis après qu’est ce que t’entends par “pas d’info compréhensible” ? Ca commence à bien faire toutes ces imprécisions …

Je ne connais pas VisualBasic, mais

  1. RTFM : msdn.microsoft.com…
  2. Si je lis cette documentation, j’en déduis que “paiementsips403.SIPS” est un ProgID, et que ce dernier n’est pas enregistré en local chez toi. Il te manque donc un composant qui est dispo sur le serveur, mais pas chez toi.

Ensuite, une recherche google, et outre tes messages sur commentçamarche, je tombe sur ça (premier lien) :

www.hostpulse.com…

Et je vois que c’est un composant "Atos Origin - SIPS ver. 4.03 (paiementsips403.SIPS) ", ce qui donne ça :

www.google.com…

Et de la documentation à lire pour trouver et installer le composant - ce que de toute façon, tu seras amené à faire un jour ou l’autre en VisualBasic - que je ne connais pas, je reprécise.

En faite, j’ai parcouru TOUS les fichiers en effectuant une recherche paiementsips403 … et je suis tombé sur un fichier qui disait qu’il y avait un fichier paiementsips403.dll à installé sur le serveur et qui était un composant d’interface entre ASP et DLL, autrement dit, sans ce fichier là, je ne peux pas instancier les nouvelles données vu qu’il ne trouve pas le fichier…
(enfin si j’ai bien compris…)
dans ce cas, il faudrait effectuer des tests “en ligne”…donc remonter le site sur le server…merci pour la doc…
merci!!!