Buffer = CreateServerMessage(Host & " nicht erreichbar", _
      Host & " nicht erreichbar.", _
      "Der Remote-Computer " & Host & " ist nicht erreichbar. " & _
      "Stellen Sie sicher dass Sie mit dem Internet verbunden sind " & _
      "und dass der Remotehost online ist. " & _
      " Bitte nutzen Sie diesen Server nur als HTTP-Proxy.")

Request = Command & " " & Filepath & " " & HTTPVersion & _
    vbCrLf & FileTypes & vbCrLf & Referer & vbCrLf & Language & _
    vbCrLf & UserAgent & vbCrLf & "Host: " & _
    Host & vbCrLf & Connection & vbCrLf & vbCrLf

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de