Ecco l'esempio (buyHttp.asp) incluso nel DemoASP (attento alle interruzioni di linea).
Quello che non sapevo è di usare password uguale al ID (il nostro alias assegnato).
--------------------------
<%@ Language=vbScript%>
<%
function separa(stringa,pid,url)
pid = ""
url = ""
dim separati
dim chrCarattere
chrCarattere = ":"
separati = split(stringa, chrCarattere, 2)
pid = separati(0)
url = separati(1)
end function
dim xmlhttp, DataToSend, DataToSend1, DataToSend2, DataToSend3, URL, varResponse, varPaymentID, varRedirectURL
dim ID, Password, Action, Amt, ResponseURL, ErrorUrl, TrackID
ID = "4500"
Password = "password" ' *** usa "4500" in questo caso ***
Action = "4"
Amt = "1.00"
'Impostare i seguenti URL con quelli corretti del proprio server
ResponseURL = "http://www.monetaonline.it/DemoHttp3D/response.asp"
ErrorURL = "http://www.monetaonline.it/DemoHttp3D/error.asp"
TrackId = "TRCK0001"
DataToSend1 = "id=" + ID + "&password=" + Password + "&action=" + Action + "&amt=" + Amt + "&"
DataToSend2 = "currencycode=978&langid=ITA&responseURL=" + ResponseURL
DataToSend3 = "&errorURL=" + ErrorURL + "&trackid=" + TrackID + "&udf1=Descrizione"
DataToSend = DataToSend1 + DataToSend2 + DataToSend3
URL = "https://www.monetaonline.it:443/MPI2/servlet/PaymentInitHTTPServlet"
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP") 'da usare solo se XMLParser è installato sulla macchina
'Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") 'Altrimenti usare questo metodo
'Apro la connessione
xmlhttp.Open "POST",URL,false
'Imposto gli headers HTTP
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
'Invio i dati
xmlhttp.send DataToSend
'Ricevo la risposta dal server
'Response.ContentType = "text/xml"
varResponse = xmlhttp.ResponseText
'Libero le risorse
Set xmlhttp = nothing
'Response.write varResponse 'Solo per Debug
'Separo il contenuto della stringa ricevuta
call separa(varResponse,varPaymentID,varRedirectURL)
'Creo l'URL di redirezione
varRedirectURL = varRedirectURL & "?PaymentID=" & varPaymentId
'Redirezione finale del browser sulla HPP
Response.Redirect varRedirectURL
%>
---------------------------------
Se vuoi il codice in VB.NET fammi sapere.