Iis error '800a0401' 500-100.asp, line 11
Résolu
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
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
7 réponses
-
<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> -
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.
-
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://sedoparking.com/search/registrar.php?domain=docurl.com®istrar=sedopark //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> -
ModérateurSur 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 ?-
-
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...
-
-
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é.
-
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 -
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://sedoparking.com/search/registrar.php?domain=docurl.com®istrar=sedopark //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>
