Per completezza a chi trova quesa discussione cercando informazioni per il servizio sms riposrto la funzione per calcolare sms rimasti:
codice:
<% 
Function SMSresidui()
dim  creditiXsms, SMSres, nCredito
	creditiXsms = 0.7
	nCredito = Replace(VerificaCredito(), ".", ",")
	SMSres = Cint(nCredito) / creditiXsms
	SMSresidui = Cint(SMSres) - 1
	 

END Function
%>