VBScript der skal kunne virke på en asp side ?

Jeg har følgende jeg gerne vil have lavet så det også kan virke på en asp side :

Public Function HttpPost( _
    ByVal URL As String, _
    Optional ByRef Data As String, _
    Optional ByVal OpenType As InternetOpenType = IOTPreconfig, _
    Optional ByVal Port As Integer = 80, _
    Optional ByVal Username As String, _
    Optional ByVal Password As String _
  ) As String
  Dim Server As String
  Dim Path As String
  Dim hOpen As Long
  Dim hConnect As Long
  Dim hRequest As Long
  Dim Buffer As String * 2048
  Dim Bytes  As Long
  Dim i As Long
 
  'Server und Pfad bestimmen:
  URL = Trim$(URL)
  If LCase$(Left$(URL, 7)) = "http://" Then _
      URL = Mid$(URL, 8)
  i = InStr(URL, "/")
  If i > 0 Then
    'Server und Pfad trennen:
    Server = Left$(URL, i - 1)
    Path = Mid$(URL, i)
  Else
    'Root-Pfad verwenden:
    Server = URL
    Path = "/"
  End If
 
  'Internet-Handles öffnen:
  hOpen = InternetOpenA( _
      INET_CallerName, OpenType, _
      vbNullString, vbNullString, 0)
  hConnect = InternetConnectA( _
      hOpen, Server, Port, Username, Password, _
      INTERNET_SERVICE_HTTP, 0, 0)
  hRequest = HttpOpenRequestA( _
      hConnect, "POST", Path, "HTTP/1.0", _
      vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
 
  'Header (mitsamt Daten) senden:
  HttpAddRequestHeadersA _
      hRequest, INET_ContentType, Len(INET_ContentType), _
      HTTP_ADDREQ_FLAG_REPLACE Or HTTP_ADDREQ_FLAG_ADD
  HttpSendRequestA _
      hRequest, vbNullString, 0, Data, Len(Data)
 
  'Ergebnis-Daten sammeln:
  Do
    InternetReadFile hRequest, Buffer, Len(Buffer), Bytes
    If Bytes = 0 Then Exit Do
    HttpPost = HttpPost & Left$(Buffer, Bytes)
  Loop
 
  'Internet-Handles schließen:
  InternetCloseHandle hRequest
  InternetCloseHandle hConnect
  InternetCloseHandle hOpen
End Function

Sub Test
  Const URL = "http://127.0.0.1/showdata.asp"
  Dim x As String
  Dim y As String
  Dim z As String
  Dim s As String
 
  'Text mit Zeilenumbruch:
  x = "Dies ist eine Zeile." & vbNewLine & "Noch eine Zeile!"
  x = URLEncode(x)

  'einfache Zahl:
  y = CStr(42)
  y = URLEncode(y) 'in diesem Fall nicht nötig

  'Text mit Sonderzeichen:
  z = "Sonderzeichen: ""äöüß&="
  z = URLEncode(z)

  s = HttpPost(URL, "X=" & x & "&Y=" & y & "&Z=" & z)
  MsgBox s
End Sub

Er der nogen der kan hjælpe med det ???

/Websam