Hello
If you want to consume a web serv in traditional ASP 3.0, you nedd to use
something like this:

<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
OPTION EXPLICIT

SUB APPLICATION_ONSTART()
APPLICATION("CONNECTSTRING") = GETAPPSETTINGS("CONNECTSTRING")
END SUB

function getappsetting(key)

dim url, xmlhttp, dom, node

url = "http://localhost/appservice.asmx"
url = url & "getappsettings?key=" & key

set xmlhttp = server.createobject("microsoft.xmlhttp")
call xmlhttp.open("GET", url, false)
call xmlhttp.send

set dom = server.createobject("microsoft.xmldom")
dom.load(xmlhttp.responsebody)
set node = dom.selectsinglenode("//string")

if not node is nothing then
getappsettings = node.text
end if
end function
</script>

If you want to learn more about this i recommended the book "Building
ASP.NET web services"...
Best regards