Includere pagina esterna?

[snakealoni]

Salve a tutti , sto realizzando un sito che prevede l'invio di sms utilizzando il servizio besms.
Vorrei introdurre nella pagina di amministrazione del sito il credito residuo.

Se digito sulla barra indirizzi questo indirizzo

https://secure.apisms.it/http/get_credit?authlogin=NOME_UTENTA&authpasswd=PASSWORD

Ottengo una pagina con il valore del credito residuo.

Ora sicuramente la domanda per programmatori esperti sara' una banalita'...
Ma.. Come faccio ad inserire in una pagina asp il risultato della chiamata a questa pagina?

Come richiamare questa pagina con un form in modo da variare i paramentri che invio lo conosco... non so pero come includere il risultato in un'altra pagina....
Grazie

[cavicchiandrea]

Immagino tu non voglia usare un iframe, in tal caso prova con MSXML2.ServerXMLHTTP ma ho qualche dubbio che funzioni su https, se è cosi credo che l'unica via sia iframe

[snakealoni]

Ho trovato la soluzione:

 
    
    <%
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:

<%=VerificaCredito()%>

[snakealoni]

Per completezza a chi trova quesa discussione cercando informazioni per il servizio sms riposrto la funzione per calcolare sms rimasti:

<% 
Function SMSresidui()
dim  creditiXsms, SMSres, nCredito
	creditiXsms = 0.7
	nCredito = Replace(VerificaCredito(), ".", ",")
	SMSres = Cint(nCredito) / creditiXsms
	SMSresidui = Cint(SMSres) - 1
	 

END Function
%>

[Vincent.Zeno]