Public Function webOnlineStatus(wStatus As String, sUrl As String) As String
 Dim sPos As Long
 Dim ePos As Long
  Dim xUrl As String
  Dim xStatus As String
  Dim xmlHttp As Object
 
  On Error GoTo Error
 
  xUrl = sUrl
 
   If Left(xUrl, 7) <> "http://" Then
    webOnlineStatus = "err103"
    Exit Function
   End If
 
sPos = 0
 
Do
 
  sPos = InStr(sPos + 1, xUrl, "%")
 
  If sPos > 0 Then
 
    ePos = InStr(sPos + 1, xUrl, "%")
 
    If ePos > 0 Then
 
      If Mid$(xUrl, sPos, ePos - sPos + 1) = "%wStatus%" Then
       xUrl = Replace(xUrl, "%wStatus%", wStatus)
      End If
 
      sPos = ePos + 1
 
    Else
 
      Exit Do
    End If
  End If
 
Loop Until sPos = 0
 
      Set xmlHttp = CreateObject("Microsoft.XmlHttp")
 
     xmlHttp.Open "get", xUrl, False
     xmlHttp.setRequestHeader "Pragma", "no-cache"
     xmlHttp.setRequestHeader "Cache-control", "no-cache"
 
    xmlHttp.Send
 
    If xmlHttp.Status = 200 Then
        webOnlineStatus = CStr(xmlHttp.ResponseText)
    Else
        If xmlHttp.Status = 401 Then
         webOnlineStatus = "err104"
        Else
         webOnlineStatus = "err129"
        End If
    End If
   Exit Function
 
Error:
 webOnlineStatus = "err129"
 Exit Function
End Function
 
Private Sub Command1_Click()
 If webOnlineStatus("online", "http://localhost/cmax.php?status=%wStatus%") = _
   "#=" Then
  MsgBox "hallo"
 Else
  MsgBox "vb suxx?!"
 End If
End Sub
 
obwohl, wenn man die ausgabe von "webOnlineStatus" mit ner MsgBox ausgibt, _
  kommt "#=" raus, wenn ich jetzt wie hiergezeit eine if-funktion einbau, _
  bringt er immer das falsche, wieso??
 
Bitte helft mir :-(
 
MfG WMcPIMP