Yo restringiria mediante IP de los sitios que soliciten el servicio :
<%
Response.Write(Request.ServerVariables("REMOTE_ADD R"))
%>
Con esto extraes todas las variables de servidor
:: server_vars.asp ::
<TABLE>
<TR><TD><B>Server Variable</B></TD><TD><B>Value</B></TD></TR>
<% For Each name In Request.ServerVariables %>
<TR><TD> <%= name %> </TD><TD> <%= Request.ServerVariables(name) %> </TD></TR>
<% Next %>
</TABLE>
taluego