Test validation url (code erreur 200, 404 etc....)

Signaler
Messages postés
5
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
25 juin 2009
-
Messages postés
5
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
25 juin 2009
-
Bonjour

J'ai développé une page web permettant de savoir si un lien est bon ou pas en récupérant le code erreur html.

Mais voila tout est en vert donc bon alors qu'il y a dans ma liste deux urls qui ne sont pas bonne, si vous pouvez m'aidez à identifier ou est mon erreur merci.

voici le code de ma page:

<html><head><meta http-equiv="Content-Language" content="fr" /><meta http-equiv="Content-Type" content="text/html; charset=windows-1252" /><meta http-equiv="refresh" content="300;URL=" /><title>MEDERIC</title></head>
<% @language=vbscript %>
<%
Dim objXMLHTTP, strFileURL, username, password, conn, rs

username = "si2m\adm-bwd"
password = "mon73slo"

ON ERROR RESUME NEXT
%>

<%
'connection a la base de donnée
Set Conn = server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & \"Data Source=\" & Server.MapPath(\".\") & \"\site.mdb\"
Set rs = server.CreateObject(\"ADODB.Recordset\")
rs.Open \"Select * from url\", Conn, 1, 3

rs.movefirst
do while not rs.eof

strFileURL = rs(\"site\")
ht = rs(\"ht\")

'if ht = \"http\" then
'Set objXMLHTTP = CreateObject(\"MSXML2.ServerXMLHTTP\")
'else
Set objXMLHTTP = CreateObject(\"MSXML2.ServerXMLHTTP.6.0\")
'end if
objXMLHTTP.open \"POST\", strFileURL, false
objXMLHTTP.send()

dd = objXMLHTTP.Status
if objXMLHTTP.Status 200 or objXMLHTTP.Status 0 then
response.write(\"----
" & rs("nom") & ", \")
else
'connection a la base de donnée
Set Conn1 = server.CreateObject(\"ADODB.Connection\")
Conn1.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & \"Data Source=\" & Server.MapPath(\".\") & \"\HTM.mdb\"
Set rs1 = server.CreateObject(\"ADODB.Recordset\")
rs1.Open \"Select * from codeht where a='\" & dd & \"'\", Conn1, 1, 3

response.write(\"----
" & rs("nom") & " - " & objXMLHTTP.Status & "")
response.write("" & rs1("a") & " - " & rs1("b") & " - " & rs1("c") & ", \")

rs1.close
set rs1=nothing
Conn1.close
set Conn1=nothing
end if

rs.movenext
Loop

rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>

</html>

A moins que ce soit le paramétrage de iis a modifier, mais la je ne sais pas quoi faire.

merci d'avance

1 réponse

Messages postés
5
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
25 juin 2009

oups mauvais format pour le message:

revoici le code:

<html>

<head>
<meta http-equiv="Content-Language" content="fr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="refresh" content="300;URL=">
<title>MEDERIC</title>
</head>


<% @language=vbscript %>
<%
Dim objXMLHTTP, strFileURL, username, password, conn, rs

username = "si2m\adm-bwd"
password = "mon73slo"

ON ERROR RESUME NEXT
%>


<%
'connection a la base de donnée
Set Conn = server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & \"Data Source=\" & Server.MapPath(\".\") & \"\site.mdb\"
Set rs = server.CreateObject(\"ADODB.Recordset\")
rs.Open \"Select * from url\", Conn, 1, 3

rs.movefirst
do while not rs.eof

strFileURL = rs(\"site\")
ht = rs(\"ht\")

'if ht = \"http\" then
'Set objXMLHTTP = CreateObject(\"MSXML2.ServerXMLHTTP\")
'else
Set objXMLHTTP = CreateObject(\"MSXML2.ServerXMLHTTP.6.0\")
'end if
objXMLHTTP.open \"POST\", strFileURL, false
objXMLHTTP.send()

dd = objXMLHTTP.Status
if objXMLHTTP.Status 200 or objXMLHTTP.Status 0 then
response.write(\"----
" & rs("nom") & ", \")
else
'connection a la base de donnée
Set Conn1 = server.CreateObject(\"ADODB.Connection\")
Conn1.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & \"Data Source=\" & Server.MapPath(\".\") & \"\HTM.mdb\"
Set rs1 = server.CreateObject(\"ADODB.Recordset\")
rs1.Open \"Select * from codeht where a='\" & dd & \"'\", Conn1, 1, 3

response.write(\"----
" & rs("nom") & " - " & objXMLHTTP.Status & "")
response.write("" & rs1("a") & " - " & rs1("b") & " - " & rs1("c") & ", \")

rs1.close
set rs1=nothing
Conn1.close
set Conn1=nothing
end if

rs.movenext
Loop

rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>





</html>