rss
Options Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

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

dutoy, le jeudi 2 octobre 2003 à 17:18:51
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
Répondre à dutoy  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
sebsauvage, le jeudi 2 octobre 2003 à 17:43:44
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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
alois, le jeudi 23 décembre 2004 à 15:46:29
A l'aide j'ai le meme probleme impossible à rédoudre pourtant j'ai bien iis...?
   
Répondre à alois

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Chrigou, le dimanche 27 février 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
ner0lph, le vendredi 15 avril 2005 à 16:50:42
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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nina82, le dimanche 12 août 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nina82, le dimanche 12 août 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nino, le mardi 29 janvier 2008 à 14:31:13
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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
chaihang, le mercredi 2 juillet 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 chaihang, le mercredi 2 juillet 2008 à 17:07:49
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
Posez votre question Répondre
Parse error: syntax error, unexpected $endLorsque 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... www.commentcamarche.net/faq/sujet-11015-parse-error-syntax-error-unexpected-end
Driver pour Acer M1100 (Résolu)Bonjour,il m'a ete offert pour Noel un Acer Aspire M 1100, j'ai installé un logiciel qui m'a planté Windows vista alors que je n'avais pas encore fait la sauvegarde (precipitation des jeunnesse). J'ai récuperé Vista mais je... www.commentcamarche.net/forum/affich-4681065-driver-pour-acer-m1100
Parse error: parse error, unexpected $end in (Résolu)Parse error: parse error, unexpected $end in c:\program files\easyphp1-7\www\test\fournisseur\modiffrs2.php on line 110 voila g cette erreur apparement a la fin de mon script je ne sai pa prkoi... g vu ds certain forum k la cause pourrai etre des... www.commentcamarche.net/forum/affich-841400-parse-error-parse-error-unexpected-end-in
Drivers Acer Aspire (Résolu)Je posséde les Drivers suivant: Acer Aspire E 500 Acer Aspire E 351 Acer Aspire L 100 Contacter moi , F.marcel@wanadoo.fr www.commentcamarche.net/forum/affich-5208465-drivers-acer-aspire
Olivetti Olivetti Linkfax 1100 : cartouche d'encre P120PX1 Papier photo mat A4 120g 50 feuilles ComOlivetti Olivetti Linkfax 1100 : cartouche d'encre P120PX1 Papier photo mat A4 120g 50 feuilles Compatible,P 120 120 PX 120PX 120PX ,Les cartouches toner compatibles TONER SERVICES bénéficient quant à elles d'une garantie commerciale de deux ans. P1 www.commentcamarche.net/guide-achat/olivetti-olivetti-linkfax-1100-cartouche-d-encre-p120px1-papier-photo-mat-a4-120g-50-feuilles-compatible-506385202-fiche-technique
NetGear WGPS606WGPS 606 ,,Vitesse max du réseau:100 Mbps,Line coding format:DBPSK, DQPSK, CCK, 64 QAM, BPSK, 16 QAM, OFDM,Normes conciliantes:IEEE 802.11b, IEEE 802.11g,Vitesse max du réseau sans fil:54 Mbps,Support IEEE 802.11g,Support IEEE 802.11b,Data Link... www.commentcamarche.net/guide-achat/netgear-wgps606-740263-fiche-technique
Cisco Aironet 1410 Wireless BridgeType:Wireless Access Point,Type de clôture:Externe,Data Link Protocole:Ethernet, Fast Ethernet, IEEE 802.11a,Support IEEE 802.11a,,Normes conciliantes:IEEE 802.1x,Vitesse max du réseau sans fil:54 Mbps,Vitesse max du réseau:100 Mbps,Line coding... www.commentcamarche.net/guide-achat/cisco-aironet-1410-wireless-bridge-460979-fiche-technique
Linux - Préparation du système Linux ne requiert pas un ordinateur dernier cri en configuration minimale : un processeur 386SX au minimum 4Mo de mémoire vive (8Mo conseillés) un contrôleur de disque dur et un disque avec 20Mo libres (100Mo conseillés) (Linux est capable en... www.commentcamarche.net/linux/lininstpre.php3
Toutes les réponses pour « iis error '800a0401' 500 100.asp, line 11 »