VBScript Post flere variabler

Lige nu bruger jeg nedenstående funktion til at POST'e til et ASP-script på en server.

Men jeg har problemer med at sende mere end én variabel med.

Function PostWeb(ByVal URL, ByVal Fields)
    'URL kan fx være: http://localhost/test.asp
    'Fields kan fx være: field1=kirby
    'Set objHTTP = CreateObject("Microsoft.XMLHTTP")
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
        objHTTP.open "POST", URL, False
        objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        objHTTP.send Fields
        PostWeb = objHTTP.responseText
    Set objHTTP = Nothing
End Function

Jeg kalder den som fx:

PostWeb("http://www.test.dk/test.asp", "var1=foo")
- i det tilfælde kan jeg læse var1 ved hjælp af:
Request.Forms("var1")

Men hvis jeg prøver:

PostWeb("http://www.test.dk/test.asp", "var1=foo,var2=bar")
- så indeholder var1 "foo,var2=bar" - og var2 er blank.

Så hvordan gør jeg, hvis jeg gerne vil kunne sende både var1 og var2 afsted?