Simpelt Begynderspm.

Du mangler en endif

If strTemp = \"Request times out.\" Then
Response.Write(\"Server down\")
Else
Response.Write(\"Server OK\")
End If

****************
Du mangler \"End If\" og du skal ikke lave 2 \"=\"

Ok, kan i så fortælle mig hvorfor jeg får output:

Request timed out.
Server OK

(Forventet resultat:

Request timed out.
Server down
)

Jeg skrev forkert ovenover.. skal være \"Request timed out.\" og ikke \"Request times out.\"

Er du 100% sikker på at strTemp indeholder strengen \"Request times out.\" ??

nu gjorde jeg det igen... ;o)

timeD out

Hvilket komponent bruger du? Må vi se lidt kode/dokumentation?

/Mattias

jeg bruger aspPing. Svaret:

Request timed out.
Server OK

er et direkte copy/paste fra skærmen, koden ser sådanne ud:

<%
  rem ***********************************************************
  rem * Create the object
  rem ***********************************************************
  Set Pinger = Server.CreateObject(\"AspPing.Conn\")

  rem ***********************************************************
  rem * Set the host we\'ll be pinging
  rem ***********************************************************
  Pinger.RemoteHost = \"www.microsoft.com\"

  rem ***********************************************************
  rem * Optional count for number of times to ping remotehost
  rem * defaults to 1
  rem ***********************************************************
  Pinger.PingCount = 1

  rem ***********************************************************
  rem * Ping and then dump the results
  rem ***********************************************************
  Response.Write \"<pre>\" & Pinger.Ping & \"</pre>\"

  rem ***********************************************************
  rem * Release the object
  rem ***********************************************************
  Set Pinger = nothing
%>

Og min mod:

<%
  rem ***********************************************************
  rem * Create the object
  rem ***********************************************************
  Set Pinger = Server.CreateObject(\"AspPing.Conn\")

  rem ***********************************************************
  rem * Set the host we\'ll be pinging
  rem ***********************************************************
  Pinger.RemoteHost = \"www.theede.dk\"

  rem ***********************************************************
  rem * Optional count for number of times to ping remotehost
  rem * defaults to 1
  rem ***********************************************************
  Pinger.PingCount = 1


  rem ***********************************************************
  rem * Ping and then dump the results
  rem ***********************************************************
  rem Response.Write \"<pre>\" & Pinger.Ping & \"</pre>\"
 
  strTemp = Pinger.Ping
  Response.Write strTemp & \"<br>\"
  If strTemp = \"Request timed out. \" Then
      Response.Write \"Server down\"
  Else
      Response.Write \"Server OK\"

  End If   
     

  rem ***********************************************************
  rem * Release the object
  rem ***********************************************************
  Set Pinger = nothing

%>

Du har et blanktegn for meget i din...

If strTemp = \"Request timed out. \" Then

Har prøvet at fjerne det. Men samme reultat : (

strTemp = Pinger.Ping
  Response.Write strTemp & \"<br>\"
  If strTemp = \"Request timed out.\" Then
      Response.Write \"Server down\"
  Else
      Response.Write \"Server OK\"

  End If   

Jeg tror du har mere held med InStr() ...

  strTemp = Pinger.Ping
  Response.Write strTemp & \"<br>\"

  If InStr(LCase(strTemp), \"request timed\" Then
      Response.Write \"Server down\"
  Else
      Response.Write \"Server OK\"
  End If

så er det ligemeget om der står REQUEST TIMED OUT, ReQuEsT timed out eller hvad der står .. den er mere sikker ..

Fint, nu virker det. Smider lige lidt ekstra point oven i...

Det var så lidt :-)

Takker :o)

(Selvom det vist var td der løste den) ;o)

nil.dk:> ja det vil jeg også sige det var ;-) men det er helt okay med mig at du fik point for du prøvede da på at hjælpe ham :-) og det er jo heller ikke ligefrem fordi jeg har BRUG for de 30 point mere *G*

Aaah det skal du nu ikke sige.. mange bække små ved du ;o) Du har under 5000 op til sjensen

nil.dk:> ja det er rigtig *G* meeen .. alligevel ..

Tjahh, men problemet med returværdien var nok et bonusspørgsmål da mit startspørgsmål jo egentlig blev løst med det samme. Så nu skulle alle være glade : )