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>
<body link="#000000" vlink="#000000" alink="#000000">
<% @language=vbscript %>
<%
Dim objXMLHTTP, strFileURL, username, password, conn, rs
username = "si2m\adm-bwd"
password = "mon73slo"
ON ERROR RESUME NEXT
%>
<div align="center">
<table>
<%
'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("<tr><td align="&chr(34)&"center"&chr(34)&" bordercolorlight="&chr(34)&"#000000"&chr(34)&" bordercolordark="&chr(34)&"#000000"&chr(34)&" bgcolor="&chr(34)&"#00FF00"&chr(34)&"><font face="&chr(34)&"Verdana"&chr(34)&" size="&chr(34)&"3"&chr(34)&"><a target="&chr(34)&"_blank"&chr(34)&" href=" & strFileURL & ">" & rs("nom") & "</a></font></td></tr>")
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("<tr><td align="&chr(34)&"center"&chr(34)&" bordercolorlight="&chr(34)&"#000000"&chr(34)&" bordercolordark="&chr(34)&"#000000"&chr(34)&" bgcolor="&chr(34)&"#FF0000"&chr(34)&"><font face="&chr(34)&"Verdana"&chr(34)&" size="&chr(34)&"3"&chr(34)&"><a target="&chr(34)&"_blank"&chr(34)&" href=" & strFileURL & ">" & rs("nom") & " - " & objXMLHTTP.Status & "</a></font><P>")
response.write("<font face="&chr(34)&"Verdana"&chr(34)&" size="&chr(34)&"3"&chr(34)&">" & rs1("a") & " - " & rs1("b") & " - " & rs1("c") & "</font></td></tr>")
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
%>
</table>
</div>
</body>
</html>