Test validation url (code erreur 200, 404 etc....)
angenoir666
Messages postés5Date d'inscriptionmercredi 19 avril 2006StatutMembreDernière intervention25 juin 2009
-
25 juin 2009 à 02:30
angenoir666
Messages postés5Date d'inscriptionmercredi 19 avril 2006StatutMembreDernière intervention25 juin 2009
-
25 juin 2009 à 02:34
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.
<%
'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
<%
'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