<%
' crea una nuova istanza dell'oggetto ServerXMLHTTP
Dim objHTTP
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
' specifica l'URL del file di testo generato
Dim strURL
strURL = "http://playground.alessiovietri.it/public/estrazioni-10-e-lotto/HfzBakPO?data=20221125"
' invia la richiesta HTTP al server e ottiene i dati dal file di testo generato
objHTTP.open "GET", strURL, False
objHTTP.send
Dim strData
strData = objHTTP.responseText
' elabora i dati per costruire la tabella HTML
Response.Write("
")
Response.Write("")
Response.Write("")
For Each strField In Split("", ";")
Response.Write("| " & strField & " | ")
Next
Response.Write("
")
Response.Write("")
Response.Write("")
Dim arrRows
arrRows = Split(strData, vbCrLf)
For i = 1 To UBound(arrRows)
Dim arrFields
arrFields = Split(arrRows(i), ";")
Response.Write("")
For Each strField In arrFields
Response.Write("| " & strField & " | ")
Next
Response.Write("
")
Next
Response.Write("")
Response.Write("
")
%>
<%
If Request.Form("update_button") <> "" Then
' Aggiorna la pagina qui
End If
%>