Grazie ancora per l'incredibile pazienza, ieri ero arrivato anche io ad un risultato come questo (non ricordo come in una delle mie 100 prove) ma vedendo che l'ID non veniva passato avevo cambiato strada.

Il problema è che in questa pagina ci sono tutte le variabili presenti nella pagina .asp che invece funziona correttamente.......................quindi cosa c'è che non va?



PS
Non sono io che mi occupo di aspx ovviamente, ma sono sorti dei problemi e mi ci hanno costretto.................

Eccola completata finalmente!!!!!!!!!!!!!!!!

Grazie 1000 veramente!!!!!!!!!!!!!!!!!!!!!

Guardala che ne vale la pena. :)

PS
Maledetto Fastweb, ogni refresh mi dura 2-3 minuti :(

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" debug="true" trace="true" %>

<%@ Import Namespace="System.Net" %>
<%@ import namespace="System.IO" %>
<%@ Import Namespace="System.Xml" %>

<script runat="server">


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'invio un file all'URL specificato
Dim uriString as String = "http://test4.constriv.com:80/cg301/servlet/PaymentInitHTTPServlet"
dim superstring as string
superstring = PostUrl(uristring)
trace.warn("urlfinale=",superstring)


dim varPaymentID,varRedirectURL

varPaymentID = mid(superstring,1,16)
trace.warn("varPaymentID=",varPaymentID)
varRedirectURL = mid(superstring,18,(len(superstring)-17))
trace.warn("varRedirectURL=",varRedirectURL)



'Creo l'URL di redirezione
varRedirectURL = varRedirectURL & "?PaymentID=" & varPaymentId
trace.warn("urlfinale2=",varRedirectURL)
'Redirezione finale del browser sulla HPP
Response.Redirect(varRedirectURL)

'Response.Write(PostUrl(uristring))
End Sub

Public Function PostUrl(ByVal url As String) As String
Dim postData As String = "id=89025555&currencycode=978&password=test&action=4&amt=100&langid=USA&responseURL=http://81.75.4.43/Colors/Receipt.asp&errorURL=http://81.75.4.43/Colors/Error.asp&trackid=<font color=red>Grazie 1000 Daniele!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!</font>&udf1=AA&udf2=BB&udf3=CC&udf4=DD&udf5=EE"

'WebClient ed upload del file via POST
Dim http As New Net.WebClient
'Dim bresult() As Byte = http.UploadData(url, Encoding.ASCII.GetBytes(postData))
http.Headers.Add("Content-Type", "application/x-www-form-urlencoded")

Dim bresult() As Byte = http.UploadData(url, Encoding.ASCII.GetBytes(postData))



'de-encoding dei dati e conversione in stringa
Dim objEncoded As System.Text.Encoding = System.Text.Encoding.GetEncoding("iso-8859-1")
'Return objEncoded.GetString(bresult)

Return objEncoded.GetString(bresult)

dim varPaymentID as integer
dim varRedirectURL as string


End Function



</script>