kan man lave en test på om en gif fil findes på en server?

så skal du første ha den hentet ned på din egen server. Du kan ikke kontrollere noget på en ekstern server.
Men har du først grafikken på din egen server (burde du nemt kunne finde noget HTTP fangst program der kan.
Så kan du bruge fileExists i VB

hej sth
du kan bruge følgende script til at søge efter en fil lokalt eller på en server:

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\stientilfilen\billede.gif") Then
    Set objFolder = objFSO.GetFile("C:\stientilfilen\billede.gif")
Else
    Wscript.Echo "Filen eksisterer ikke."
End If


Håber du kan bruge det:):)

jeg ved at jeg engang har set et script som testede om der var forbindelse til en server, jeg tror at det av noget med opdatering af ur, me jeg kan bare ikke finde det igen

Hey sth !!
Du kan evt tjekke, om brugeren kan se dmi.dk ved at forsøge, at læse binært fra den :

On Error Resume next
  Dim Http
  Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
  Http.Open "GET", "http://www.dmi.dk", False
  Http.Send
    If err.number <> 0 Then
MsgBox err.description
Else
MsgBox "YIP"
End If

Dette script gør, at du får fejlmeddelelsen fra IE, hvis siden ikke kan nåes.
Du kan så vælge, at gøre hvad du har lyst til i stedet ;)

/Killer

Hej og tak for dit svar, jeg for det dog ikke til at virke, kan vi ikke være enige om at der skal komme en MsgBox  hvor der enten står en fejl eller står YIP ?

Der kommer slet ikke noget, et bud på hvad der er galt ?

<%
On Error Resume next
  Dim Http
  Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
  Http.Open "GET", "http://www.dmi.dk", False
  Http.Send
    If err.number <> 0 Then
        MsgBox err.description
    Else
        MsgBox "YIP"
    End If
%>

Arh .. Det er i asp :)
Jeg ser lige på det.
/Killer

Prøv sådan i stedet :

<%
On Error Resume Next
  Dim Http
  Set Http = server.CreateObject("WinHttp.WinHttpRequest.5.1")
  Http.Open "GET", "http://www.dmi.dk", False
  Http.Send
    If err.number <> 0 Then
Response.Write "nej"
Else
Response.Write "ja"
End If
%>

/Killer

ja det burde jeg også have set ! nå men det virker, og tak for det