buf = "GET " & Path & " HTTP/1.1" & vbCrLf & _
 "HOST: " & Host1 & vbCrLf & _
 "Connection: Keep-Alive" & vbCrLf & _
 "Accept: text/html " & vbCrLf & _
 "Content-Length: " & CStr(Len(PostData)) & vbCrLf & _
 "Content-Type: text/html" & vbCrLf & vbCrLf & _
 PostData
 
 Winsock1.SendData buf 'den Client Requests senden

---
Sventke