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é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ô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é
:</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éponse dans les plus brefs délais.</p>
</td>
</tr>
</table>
<p class="ActuTexte">Les Champs avec "*" doivent
ê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