Ho trovato la soluzione:
codice:
 
    
    <%
Function VerificaCredito()
         ' stringa da inviare
dim LOGIN, url, XMLHTTP 
LOGIN = "authlogin=NOMEUTENTE&authpasswd=PASSWORD"
url = "https://secure.apisms.it/http/get_credit"

' usiamo l'oggetto XMLHTTP
Set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "POST", url, false
' headers da impostare
' il metodo POST ha bisogno di questo content-type
XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
' se vogliamo dirgli da dove veniamo...
XMLHTTP.setRequestHeader "HTTP_REFERER", "http://localhost/"
' inviamo la richiesta
XMLHTTP.send (LOGIN)
' codice di risposta del server
VerificaCredito= XMLHTTP.responseText
set XMLHTTP = Nothing
End Function

'E' l'qeuivalente di visitare l'indirizzo:  https://secure.apisms.it/http/get_cr...asswd=PASSWORD

%>
Richiamando questa funzione aggiungo nella pagina il credito residuo del servizio beSMS, basta aggiungere il codice:
codice:
<%=VerificaCredito()%>