79 messaggi dal 04 ottobre 2007
Ciao a tutti, riprendo un argomento gia trattato su questo forum ma invio nuova discussione per evitare confusione.

Con questo codice mi aggiornavo il database MySql ma ora non funziona piu e non riesco neanche a fare un print della SQL ... no ncapisco perche.

Da dove devo partire per capire il problema?
'Connessione DB Access o SQL SERVER 

FUNCTION FixQuotes( theString )
FixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION


' Dichiaro le variabili che mi servono nello script
    Dim file, objXmlHttp, objXmlDom, nome, cognome, i, valuta, cambio

    ' Specifico il file XML da utilizzare
    ' file = Server.MapPath("rubrica.xml")
      file = "http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml"
    ' Imposto l'oggetto XMLHTTP e recuper il file XML
    Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
        objXmlHttp.Open "GET", file, False
        objXmlHttp.Send

    ' Imposto l'oggetto XMLDOM e carico il file XML come stringa
    Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
        objXmlDom.async = False
        objXmlDom.loadXML(objXmlHttp.responseText)

    ' Recupero i nodi del file XML
    Set nome = objXmlDom.getElementsByTagName("Cube/Cube")

    ' Inizializzo il contatore per il ciclo
    i = 1
    ' Estraggo tutti i dati
    For i = 1 To nome.length - 1
  valuta = nome(i).getAttribute("currency")
  cambio = nome(i).getAttribute("rate") 
     'Response.Write "Valuta:" & valuta &" - Cambio:" & cambio &"<br>"

    
  SQL = "UPDATE cambio SET rate = " & cambio & " WHERE currency = '" & valuta & "'" 
  conn.Execute(SQL)  

     Next

11.862 messaggi dal 09 febbraio 2002
Contributi
Ciao,
posta il testo dell'errore che ricevi.
Se non ricevi nessun errore, non è che per caso hai un On Error Resume Next in cima al file? Rimuovilo temporaneamente.

Nel frattempo, prova a inviare la richiesta all'url https.
https://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml


ciao,
Moreno

Enjoy learning and just keep making
79 messaggi dal 04 ottobre 2007
Ciao grazie per la risposta.

L'xml di cui sopra si apre correttamente, non ho nessun On Error Resume Next e non posso postare nessun errore perche in pratica mi rimanda all'Home page del sito... Credo perche ho delle impostazioni che in caso di errore rimanda all'home page.

La cosa strana che neanche un response.write della SQL riesco a fare..

  SQL = "UPDATE cambio SET rate = " & cambio & " WHERE currency = '" & valuta & "'" 
  'conn.Execute(SQL)  
  Response.Write SQL
11.862 messaggi dal 09 febbraio 2002
Contributi

La cosa strana che neanche un response.write della SQL riesco a fare..

Probabilmente si verifica un errore prima di quella riga che interrompe l'esecuzione dello script.


non posso postare nessun errore

Fai in modo di far venir fuori l'errore, altrimenti sarà difficile trovare una soluzione. Eventualmente, se non vuoi toccare la pagina attuale, creane una nuova completamente slegata dal resto che contiene giusto lo stretto indispensabile, cioè il download del contenuto XML e un ciclo for che stampa i valori trovati. Per il momento non coinvolgere il database.
Modificato da BrightSoul il 08 gennaio 2019 16.07 -

Enjoy learning and just keep making
79 messaggi dal 04 ottobre 2007
Ecco l'errore:

msxml3.dll error '80070005'

Access is denied.

/it/schedulazione_prova_valute.asp, line 38



alla riga 38 c'è

objXmlHttp.Send

Che vuol dire?
79 messaggi dal 04 ottobre 2007
Ho risolto grazie, aggiungendo la s a http ... qui

httpS://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml"

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.