พอจะมีวิธีการส่งค่าตัวแปรตอบกลับอย่างไรบ้างเมื่อส่งค่าผ่าน http

<%
    ' เขียนแค่นี้พอ
    Response.Write(Request.QueryString("number"))
%>

Function getURL(url)
    On Error Resume Next
    Set http = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
    http.open "GET", url, true
    http.send
    If http.readyState <> 4 then
        http.waitForResponse 10
    End If
    If Err.Number = 0  AND http.Status = 200 then
        getURL=http.responsetext
    else
        getURL=""
    end if   
    set http = nothing
End Function

Dim theValue
theValue = getURL("http://www.check.com?number=555")