Wie w�rs dann hiermit?
call getHTML("{IP-Adresse des 1 servers}","{IP-Adresse des 2 servers}")
Function getHTML(server1,server2)
On Error Resume Next
Set obj = CreateObject("Microsoft.XMLHTTP")
If Err <> "" Then
Response.Write "Microsoft.XMLHTTP-Objekt fehlt!"
Exit Function
End IF
Obj.open "GET", server1, False
Obj.send ""
If Err <> "" Then
Obj.open "GET", server1, False
Obj.send ""
If Err <> "" Then
Response.Write "Keine Verbindung zu """ & server
& """ m�glich."
Exit Function
End If
End IF
Response.Write obj.responseText
End Function
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
