High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Iis error '800a0401' 500-100.asp, line 11

Dernière réponse le 17 nov 2009 à 12:19:52 dutoy, le 2 oct 2003 à 17:18:51 
 Signaler ce message aux modérateurs

Je migre mon site en local depuis PWS W98 vers XP PRO sous iis
le Site fonctionnait impec sous PWS!!!

Voici L'erreur sous iis
J'ai tout essayé depuis 3 JOURS
Impossible de resoudre ce probleme

***********************************************

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
------------------------------------------------------------­--------------^
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié

/motordream/MOTORASP/homepage.asp, line 24

*************************************************
Voici pour info le code de la page default.htm


<%
If Cliprov ="" Then
Cliprov = Request("Cliprov")
If Cliprov = "" Then
LIB = ""
For I = 1 To 9
A = Int(26 * Rnd + 1) + 64
LIB = LIB & Chr(A)
Randomize
Next
Cliprov = LIB
LIB = ""
For I = 1 To 9
A = Int(26 * Rnd + 1) + 64
LIB = LIB & Chr(A)
Randomize
Next
Cliprov = Cliprov & LIB & Time
End If
Else
Cliprov = Request("Cliprov")
End If
Set OBJdbConnec = Server.CreateObject("ADODB.Connection")
OBJdbConnec.Open "MDM_VPI"

SQL = "SELECT datdyn FROM comdyn"
Set RSdatList = OBJdbConnec.Execute(SQL)
JJ = DateValue(Date)
Do While Not RSdatList.EOF
If (JJ - DateValue(RSdatList("datdyn"))) > 1 Then
SQL = "DELETE * FROM comdyn WHERE Cdate(datdyn) = '"& Cdate(RSdatList("datdyn")) &"'"
Set RSmaj1List = OBJdbConnec.Execute(SQL)
End If
RSdatList.MoveNext
Loop
RSdatList.Close
%>
<html>
<head>

*************************************************

Merci pour votre aide

Meilleures réponses pour « iis error '800a0401' 500 100.asp, line 11 » dans :
PHP Parse error: unexpected '&lt;' in ... eval()'d code on l VoirSymptômes Lors de l'utilisation de la fonction eval() en PHP, ce dernier se plaint et vous affiche un message de la forme suivante : PHP Parse error: syntax error, unexpected '
Mythe - Linux est invulnérable face aux virus VoirMythe GNU/Linux est invulnérable face aux virus. Réalité FAUX Explications GNU/Linux - tout comme Windows ou MacOS X - possède des failles de sécurité. Ces failles peuvent être exploitées par des programmes malveillants. GNU/Linux est donc...
Parse error: syntax error, unexpected $end VoirLorsque l'on programme en Php, on se retrouve inévitablement un jour devant ce genre d'erreur: Parse error: syntax error, unexpected $end in Command line code on line 1 En français, ça signifie grossièrement: "Erreur d'analyse du code: il y a une...
Application Service Provider (ASP) VoirNotion d'hébergement de service Le terme ASP (Application Service Provider, en français FAH pour Fournisseur d'applications hébergées) désigne la fourniture par un prestataire d'une application utilisable à travers les réseaux. Il s'agit donc de...
Posez votre question Répondre

1

sebsauvage, le 2 oct 2003 à 17:43:44
  • +1

Sur le nouveau serveur, est-ce que tu as pensé, dans le panneau de configuration, à créer une source de données (DSN système) s'appelant 'MDM_VPI' ?

Est-ce que tu as installé un serveur de base de données ?
Sur la même machine ou pas ?
Si il n'est pas sur la même machine, est-ce que tu as bien installé les pilotes ODBC correspondant au serveur SQL ?

   
Répondre à sebsauvage

2

alois, le 23 déc 2004 à 15:46:29

A l'aide j'ai le meme probleme impossible à rédoudre pourtant j'ai bien iis...?

   
Répondre à alois

3

Chrigou, le 27 fév 2005 à 18:45:50

L'erreur existe toujours, même dans XP Pro SP2 !!!
Il s'agit d'un problème de retour à la ligne que l'on peut voir dans le message d'erreur lui-même; en effet, une instruction Dim doit toujours être au début d'une ligne et non dans une ligne contenant déjà des instructions.
Solution:
Corriger tous les messages d'erreurs qui contiennent ces erreurs (Merci Microsoft) en mettant un saut de ligne...

   
Répondre à Chrigou

4

ner0lph, le 15 avr 2005 à 16:50:42
  • +1

Le pb vient de IIS : regarde bien la syntaxe du fichier 500-100.asp ...
oh joie oh bonheur c'est bien MS le responsable : 

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL

Y a un Dim qui traîne là où il faut pas !
Bien : il faut mettre un retour chariot avant et ce sera corrigé.
Horreur : y a partout des erreurs comme ça !!
Tu peux toutes les corriger si tu es courageux, moi j'ai abandonné.
La bonne longueur pour les jambes,
c'est quand les pieds touchent bien par terre.

   
Répondre à ner0lph

5

nina82, le 12 aoû 2007 à 15:22:23

<html>
<head>
<title>Creances energie</title>
<LINK media=all href="sonelgaz.css" type=text/css rel=stylesheet>
</head>

<body>

<Center>

<%
Temps=Timer
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Set RS2= Server.CreateObject("ADODB.RecordSet")
Conn.Open "SGC"

dim dir,total
Total=0.0

Sql = " select As_47003,As_47005,AS_47004,As_47003+As_47005+AS_47004 As Dir"
Sql = Sql + " from Solde_compte_ao"
' Response.write sql + " <br>"
RS.Open sql, Conn, 1,1
Dir=0.0
%>

<Font Size=+2>
Basse Tension / Basse Pression
</font>
<br>

<TABLE BORDER=0 ALIGN="CENTER" CELLSPACING=1 WIDTH="90%">

<tr>
<td> <Div Align="Center">
<Font Size=+2>
Abonnés Ordinaires
</font>

<TABLE BORDER=1 ALIGN="CENTER" CELLSPACING=1 WIDTH="60%">
<Tr> <Div ALIGN="CENTER">
<Th COLSPAN=1> Compte</TD>
<Th COLSPAN=1> Montant</TD>
</Tr>
<TR> <Div ALIGN="CENTER">
<TD COLSPAN=1> 47003</TD>
<TD COLSPAN=1> <Div Align="Right"> <%=FormatNumber(Rs("As_47003"))%></TD>
</TR>
<TR> <Div ALIGN="CENTER">
<TD COLSPAN=1> 47004</TD>
<TD COLSPAN=1> <Div Align="Right"> <%=FormatNumber(Rs("As_47004"))%></TD>
</TR>
<TR> <Div ALIGN="CENTER">
<TD COLSPAN=1> 47005</TD>
<TD COLSPAN=1> <Div Align="Right"> <%=FormatNumber(Rs("As_47005"))%></TD>
</TR>
<TR> <Div ALIGN="CENTER">
<TD COLSPAN=1> <b>Total</TD>
<TD COLSPAN=1> <Div Align="Right"> <b><%=FormatNumber(Rs("Dir"))%></TD>
</TR>
<%Total=Total+Cdbl(Rs("Dir"))%>
</TABLE>

<%Rs.Close
Sql = " select *"
Sql = Sql + " from Solde_compte_fsm"
' Response.write sql + " <br>"
RS.Open sql, Conn, 1,1
Dir=0.0
%>

</td>
<td> <Div Align="Center">
<Font Size=+2>
Abonnés FSM
</font>

<TABLE BORDER=1 ALIGN="CENTER" CELLSPACING=1 WIDTH="60%">
<TR> <Div ALIGN="CENTER">
<Th COLSPAN=1> Compte</TD>
<Th COLSPAN=1> Montant</TD>
</TR>

<%Do while not rs.eof
Dir=Dir+Rs("Ancien_Solde")
Total=Total+Cdbl(Rs("Ancien_Solde"))%>
<TR> <Div ALIGN="CENTER">
<TD COLSPAN=1> <%=Rs("num_compte")%></TD>
<TD COLSPAN=1> <Div Align="Right"> <%=FormatNumber(Rs("Ancien_Solde"))%></TD>
</TR>
<% Rs.moveNext
Loop%>
<TR> <Div ALIGN="CENTER">
<TD COLSPAN=1> <b> Total</TD>
<TD COLSPAN=1> <Div Align="Right"> <b><%=FormatNumber(Dir)%></TD>
</TR>
</TABLE>

<%Rs.Close
Sql = " select *"
Sql = Sql + " from Solde_compte_mt_mp"
' Response.write sql + " <br>"
RS.Open sql, Conn, 1,1
Dir=0.0
%>
</td>
</tr>
</table>
<br>
<Font Size=+2>
Moyenne Tension / Moyenne Pression
</font>
<br>

<TABLE BORDER=1 ALIGN="CENTER" CELLSPACING=1 WIDTH="30%">
<TR> <Div ALIGN="CENTER">
<Th COLSPAN=1> Compte</TD>
<Th COLSPAN=1> Montant</TD>
</TR>

<%Do while not rs.eof
Dir=Dir+Rs("Ancien_Solde")
Total=Total+Cdbl(Rs("Ancien_Solde"))%>
<TR> <Div ALIGN="CENTER">
<TD COLSPAN=1> <%=Rs("num_compte")%></TD>
<TD COLSPAN=1> <Div Align="Right"> <%=FormatNumber(Rs("Ancien_Solde"))%></TD>
</TR>
<% Rs.moveNext
Loop%>
<TR> <Div ALIGN="CENTER">
<TD COLSPAN=1> <b>Total</TD>
<TD COLSPAN=1> <Div Align="Right"><b> <%=FormatNumber(Dir)%></TD>
</TR>
</TABLE>
<br>
<hr Width="50%" Size=5>
<h3>
Total Créances Energie :
<Font Color="Red">
<%=FormatNumber(Total)%>
</font>
</h3>
<%Rs.Close
Conn.Close
Set rs = Nothing
Set conn = Nothing
%>
</body>
</html>

   
Répondre à nina82

6

nina82, le 12 aoû 2007 à 15:23:48

J'ai le meme probleme quand j'exécute la page:
Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
------------------------------------------------------------­--------------^
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Ce pilote ODBC ne prend pas en charge les propriétés demandées.

/sgc/creances_energie.asp, line 25


aider nous SVP

   
Répondre à nina82

7

nino, le 29 jan 2008 à 14:31:13
  • +1

Essaie d'installer MDAC. J'ai eu une erreur similaire et le fait d'installer ou de reinstaller MDAC 2.7 à suffit à corriger le pb.

   
Répondre à nino

8

chaihang, le 2 jui 2008 à 17:07:48

Voici le code corrigé. J'en avais besoin pour mon stage donc voilà.

<%@ language="VBScript" %>
<% Option Explicit
Const lngMaxFormBytes = 200
Dim objASPError
Dim blnErrorWritten
Dim strServername
Dim strServerIP
Dim strRemoteIP
Dim strMethod
Dim lngPos
Dim datNow
Dim strQueryString
Dim strURL
If Response.Buffer Then
Response.Clear
Response.Status = "500 Erreur interne du serveur"
Response.ContentType = "text/html"
Response.Expires = 0
End If
Set objASPError = Server.GetLastError %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html dir=ltr> <head> <style> a:link {font:8pt/11pt verdana; color:FF0000} a:visited {font:8pt/11pt verdana; color:#4e4e4e} </style> <META NAME="ROBOTS" CONTENT="NOINDEX"> <title>La page ne peut pas être affichée</title> <META HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252"> </head> <script> function Homepage(){ <!-- // in real bits, urls get returned to our script like this: // res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm //For testing use DocURL = "res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm" DocURL=document.URL; //this is where the http or https will be, as found by searching for :// but skipping the res:// protocolIndex=DocURL.indexOf("://",4); //this finds the ending slash for the domain server serverIndex=DocURL.indexOf("/",protocolIndex + 3); //for the href, we need a valid URL to the domain. We search for the # symbol to find the begining //of the true URL, and add 1 to skip it - this is the BeginURL value. We use serverIndex as the end marker. //urlresult=DocURL.substring(protocolIndex - 4,serverIndex); BeginURL=DocURL.indexOf("#",1) + 1; urlresult=DocURL.substring(BeginURL,serverIndex); //for display, we need to skip after http://, and go to the next slash displayresult=DocURL.substring(protocolIndex + 3 ,serverIndex); InsertElementAnchor(urlresult, displayresult); }
function HtmlEncode(text)
{
return text.replace(/&/g, '&').replace(/'/g, '"').replace(/</g, '<').replace(/>/g, '>');
}

function TagAttrib(name, value)
{
return ' '+name+'="'+HtmlEncode(value)+'"';
}

function PrintTag(tagName, needCloseTag, attrib, inner){
document.write( '<' + tagName + attrib + '>' + HtmlEncode(inner) );
if (needCloseTag) document.write( '</' + tagName +'>' );
}

function URI(href)
{
IEVer = window.navigator.appVersion;
IEVer = IEVer.substr( IEVer.indexOf('MSIE') + 5, 3 );

return (IEVer.charAt(1)=='.' && IEVer >= '5.5') ?
encodeURI(href) :
escape(href).replace(/%3A/g, ':').replace(/%3B/g, ';');
}

function InsertElementAnchor(href, text)
{
PrintTag('A', true, TagAttrib('HREF', URI(href)), text);
}

//--> </script> <body bgcolor="FFFFFF"> <table width="410" cellpadding="3" cellspacing="5"> <tr> <td align="left" valign="middle" width="360"> <h1 style="COLOR:000000; FONT: 13pt/15pt verdana"><!--Problem-->La page ne peut pas être affichée</h1> </td> </tr> <tr> <td width="400" colspan="2"> <font style="COLOR:000000; FONT: 8pt/11pt verdana">Un problème affecte la page que vous essayez d'obtenir et elle ne peut pas être affichée.</font></td> </tr> <tr> <td width="400" colspan="2"> <font style="COLOR:000000; FONT: 8pt/11pt verdana"> <hr color="#C0C0C0" noshade> <p>Essayez les opérations suivantes :</p> <ul> <li id="instructionsText1">Cliquez sur le bouton <a href="javascript:location.reload()">Actualiser</a> ou réessayez plus tard. </li> <li>Ouvrez la <script> <!-- if (!((window.navigator.userAgent.indexOf("MSIE") > 0) && (window.navigator.appVersion.charAt(0) == "2"))) { Homepage(); } //--> </script> page d'accueil, puis recherchez les liens vers les informations souhaitées. </li> </ul> <h2 style="font:8pt/11pt verdana; color:000000">HTTP 500,100 – Erreur interne au serveur – Erreur ASP <br> Services Internet (IIS)</h2> <hr color="#C0C0C0" noshade> <p>Informations techniques (destinées au personnel du Support technique)</p> <ul> <li><strong>Type d'erreur :<br>
<% Dim bakCodepage
on error resume next
bakCodepage = Session.Codepage
Session.Codepage = 1252
on error goto 0
Response.Write Server.HTMLEncode(objASPError.Category)
If objASPError.ASPCode > "" Then
Response.Write Server.HTMLEncode(", " & objASPError.ASPCode)
Response.Write Server.HTMLEncode(" (0x" & Hex(objASPError.Number) & ")" ) & "<br>"
If objASPError.ASPDescription > "" Then
Response.Write objASPError.ASPDescription & "<br>"
If objASPError.ASPDescription > "" Then
Response.Write objASPError.ASPDescription & "<br>"
blnErrorWritten = False 'Only show the Source if it is available and the request is from the same machine as IIS
If objASPError.Source > "" Then
strServername = LCase(Request.ServerVariables("SERVER_NAME"))
strServerIP = Request.ServerVariables("LOCAL_ADDR")
strRemoteIP = Request.ServerVariables("REMOTE_ADDR")
If (strServername = "localhost" Or strServerIP = strRemoteIP) And objASPError.File <> "?" Then
Response.Write Server.HTMLEncode(objASPError.File)
If objASPError.Line > 0 Then
Response.Write ", line " & objASPError.Line
If objASPError.Column > 0 Then
Response.Write ", column " & objASPError.Column
Response.Write "<br>"
Response.Write "<font style=""COLOR:000000; FONT: 8pt/11pt courier new""><b>"
Response.Write Server.HTMLEncode(objASPError.Source) & "<br>"
If objASPError.Column > 0 Then
Response.Write String((objASPError.Column - 1), "-") & "^<br>"
Response.Write "</b></font>"
blnErrorWritten = True
End If
End If
If Not blnErrorWritten And objASPError.File <> "?" Then
Response.Write "<b>" & Server.HTMLEncode( objASPError.File)
If objASPError.Line > 0 Then
Response.Write Server.HTMLEncode(", line " & objASPError.Line)
If objASPError.Column > 0 Then
Response.Write ", column " & objASPError.Column
Response.Write "</b><br>"
End If
End If
End If
End If
End If
End If
End If
End If
End If
%>
</li> <p> <li>Type de navigateur :<br> <%= Request.ServerVariables("HTTP_USER_AGENT") %> </li> <p> <li>Page :<br>
<% strMethod = Request.ServerVariables("REQUEST_METHOD")
Response.Write strMethod & " "
If strMethod = "POST" Then
Response.Write Request.TotalBytes & " octets à "
End If
Response.Write Request.ServerVariables("SCRIPT_NAME")
lngPos = InStr(Request.QueryString, "|")
If lngPos > 1 Then
Response.Write "?" & Left(Request.QueryString, (lngPos - 1))
End If
Response.Write "</li>"
If strMethod = "POST" Then
Response.Write "<p><li>POST Data:<br>"
If Request.TotalBytes > lngMaxFormBytes Then
Response.Write Server.HTMLEncode(Left(Request.Form, lngMaxFormBytes)) & " . . ."
Else
Response.Write Server.HTMLEncode(Request.Form)
End If
Response.Write "</li>"
End If
%>
<p> <li>Heure :<br>
<% datNow = Now()
Response.Write Server.HTMLEncode(FormatDateTime(datNow, 1) & ", " & FormatDateTime(datNow, 3))
on error resume next
Session.Codepage = bakCodepage
on error goto 0
%>
</li> </p> <p> <li>Plus d'informations :<br>
<% strQueryString = "prd=iis&sbp=&pver=5.0&ID=500;100&cat=" & Server.URLEncode(objASPError.Category) & _
"&os=&over=&hrd=&Opt1=" & Server.URLEncode(objASPError.ASPCode) & "&Opt2=" & Server.URLEncode(objASPError.Number) & _
"&Opt3=" & Server.URLEncode(objASPError.Description)
strURL = "http://www.microsoft.com/ContentRedirect.asp?" & _
strQueryString %>
<a href="<%= strURL%>">Support technique Microsoft</a> </li> </p> </font></td> </tr>
</table>
</body>
</html>

   
Répondre à chaihang

9

chaihang, le 2 jui 2008 à 17:07:49
  • +2

Voici le code corrigé. J'en avais besoin pour mon stage donc voilà.

<%@ language="VBScript" %>
<% Option Explicit
Const lngMaxFormBytes = 200
Dim objASPError
Dim blnErrorWritten
Dim strServername
Dim strServerIP
Dim strRemoteIP
Dim strMethod
Dim lngPos
Dim datNow
Dim strQueryString
Dim strURL
If Response.Buffer Then
Response.Clear
Response.Status = "500 Erreur interne du serveur"
Response.ContentType = "text/html"
Response.Expires = 0
End If
Set objASPError = Server.GetLastError %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html dir=ltr> <head> <style> a:link {font:8pt/11pt verdana; color:FF0000} a:visited {font:8pt/11pt verdana; color:#4e4e4e} </style> <META NAME="ROBOTS" CONTENT="NOINDEX"> <title>La page ne peut pas être affichée</title> <META HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252"> </head> <script> function Homepage(){ <!-- // in real bits, urls get returned to our script like this: // res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm //For testing use DocURL = "res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm" DocURL=document.URL; //this is where the http or https will be, as found by searching for :// but skipping the res:// protocolIndex=DocURL.indexOf("://",4); //this finds the ending slash for the domain server serverIndex=DocURL.indexOf("/",protocolIndex + 3); //for the href, we need a valid URL to the domain. We search for the # symbol to find the begining //of the true URL, and add 1 to skip it - this is the BeginURL value. We use serverIndex as the end marker. //urlresult=DocURL.substring(protocolIndex - 4,serverIndex); BeginURL=DocURL.indexOf("#",1) + 1; urlresult=DocURL.substring(BeginURL,serverIndex); //for display, we need to skip after http://, and go to the next slash displayresult=DocURL.substring(protocolIndex + 3 ,serverIndex); InsertElementAnchor(urlresult, displayresult); }
function HtmlEncode(text)
{
return text.replace(/&/g, '&').replace(/'/g, '"').replace(/</g, '<').replace(/>/g, '>');
}

function TagAttrib(name, value)
{
return ' '+name+'="'+HtmlEncode(value)+'"';
}

function PrintTag(tagName, needCloseTag, attrib, inner){
document.write( '<' + tagName + attrib + '>' + HtmlEncode(inner) );
if (needCloseTag) document.write( '</' + tagName +'>' );
}

function URI(href)
{
IEVer = window.navigator.appVersion;
IEVer = IEVer.substr( IEVer.indexOf('MSIE') + 5, 3 );

return (IEVer.charAt(1)=='.' && IEVer >= '5.5') ?
encodeURI(href) :
escape(href).replace(/%3A/g, ':').replace(/%3B/g, ';');
}

function InsertElementAnchor(href, text)
{
PrintTag('A', true, TagAttrib('HREF', URI(href)), text);
}

//--> </script> <body bgcolor="FFFFFF"> <table width="410" cellpadding="3" cellspacing="5"> <tr> <td align="left" valign="middle" width="360"> <h1 style="COLOR:000000; FONT: 13pt/15pt verdana"><!--Problem-->La page ne peut pas être affichée</h1> </td> </tr> <tr> <td width="400" colspan="2"> <font style="COLOR:000000; FONT: 8pt/11pt verdana">Un problème affecte la page que vous essayez d'obtenir et elle ne peut pas être affichée.</font></td> </tr> <tr> <td width="400" colspan="2"> <font style="COLOR:000000; FONT: 8pt/11pt verdana"> <hr color="#C0C0C0" noshade> <p>Essayez les opérations suivantes :</p> <ul> <li id="instructionsText1">Cliquez sur le bouton <a href="javascript:location.reload()">Actualiser</a> ou réessayez plus tard. </li> <li>Ouvrez la <script> <!-- if (!((window.navigator.userAgent.indexOf("MSIE") > 0) && (window.navigator.appVersion.charAt(0) == "2"))) { Homepage(); } //--> </script> page d'accueil, puis recherchez les liens vers les informations souhaitées. </li> </ul> <h2 style="font:8pt/11pt verdana; color:000000">HTTP 500,100 – Erreur interne au serveur – Erreur ASP <br> Services Internet (IIS)</h2> <hr color="#C0C0C0" noshade> <p>Informations techniques (destinées au personnel du Support technique)</p> <ul> <li><strong>Type d'erreur :<br>
<% Dim bakCodepage
on error resume next
bakCodepage = Session.Codepage
Session.Codepage = 1252
on error goto 0
Response.Write Server.HTMLEncode(objASPError.Category)
If objASPError.ASPCode > "" Then
Response.Write Server.HTMLEncode(", " & objASPError.ASPCode)
Response.Write Server.HTMLEncode(" (0x" & Hex(objASPError.Number) & ")" ) & "<br>"
If objASPError.ASPDescription > "" Then
Response.Write objASPError.ASPDescription & "<br>"
If objASPError.ASPDescription > "" Then
Response.Write objASPError.ASPDescription & "<br>"
blnErrorWritten = False 'Only show the Source if it is available and the request is from the same machine as IIS
If objASPError.Source > "" Then
strServername = LCase(Request.ServerVariables("SERVER_NAME"))
strServerIP = Request.ServerVariables("LOCAL_ADDR")
strRemoteIP = Request.ServerVariables("REMOTE_ADDR")
If (strServername = "localhost" Or strServerIP = strRemoteIP) And objASPError.File <> "?" Then
Response.Write Server.HTMLEncode(objASPError.File)
If objASPError.Line > 0 Then
Response.Write ", line " & objASPError.Line
If objASPError.Column > 0 Then
Response.Write ", column " & objASPError.Column
Response.Write "<br>"
Response.Write "<font style=""COLOR:000000; FONT: 8pt/11pt courier new""><b>"
Response.Write Server.HTMLEncode(objASPError.Source) & "<br>"
If objASPError.Column > 0 Then
Response.Write String((objASPError.Column - 1), "-") & "^<br>"
Response.Write "</b></font>"
blnErrorWritten = True
End If
End If
If Not blnErrorWritten And objASPError.File <> "?" Then
Response.Write "<b>" & Server.HTMLEncode( objASPError.File)
If objASPError.Line > 0 Then
Response.Write Server.HTMLEncode(", line " & objASPError.Line)
If objASPError.Column > 0 Then
Response.Write ", column " & objASPError.Column
Response.Write "</b><br>"
End If
End If
End If
End If
End If
End If
End If
End If
End If
%>
</li> <p> <li>Type de navigateur :<br> <%= Request.ServerVariables("HTTP_USER_AGENT") %> </li> <p> <li>Page :<br>
<% strMethod = Request.ServerVariables("REQUEST_METHOD")
Response.Write strMethod & " "
If strMethod = "POST" Then
Response.Write Request.TotalBytes & " octets à "
End If
Response.Write Request.ServerVariables("SCRIPT_NAME")
lngPos = InStr(Request.QueryString, "|")
If lngPos > 1 Then
Response.Write "?" & Left(Request.QueryString, (lngPos - 1))
End If
Response.Write "</li>"
If strMethod = "POST" Then
Response.Write "<p><li>POST Data:<br>"
If Request.TotalBytes > lngMaxFormBytes Then
Response.Write Server.HTMLEncode(Left(Request.Form, lngMaxFormBytes)) & " . . ."
Else
Response.Write Server.HTMLEncode(Request.Form)
End If
Response.Write "</li>"
End If
%>
<p> <li>Heure :<br>
<% datNow = Now()
Response.Write Server.HTMLEncode(FormatDateTime(datNow, 1) & ", " & FormatDateTime(datNow, 3))
on error resume next
Session.Codepage = bakCodepage
on error goto 0
%>
</li> </p> <p> <li>Plus d'informations :<br>
<% strQueryString = "prd=iis&sbp=&pver=5.0&ID=500;100&cat=" & Server.URLEncode(objASPError.Category) & _
"&os=&over=&hrd=&Opt1=" & Server.URLEncode(objASPError.ASPCode) & "&Opt2=" & Server.URLEncode(objASPError.Number) & _
"&Opt3=" & Server.URLEncode(objASPError.Description)
strURL = "http://www.microsoft.com/ContentRedirect.asp?" & _
strQueryString %>
<a href="<%= strURL%>">Support technique Microsoft</a> </li> </p> </font></td> </tr>
</table>
</body>
</html>

   
Répondre à chaihang

10

 vvascd, le 17 nov 2009 à 12:19:52

Dsadasdas

   
Répondre à vvascd
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net