Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 18
  1. #1

    Errore pagina di risposta connessione ADO-URL/XML su aruba

    ho creato una semplice paginetta in asp che risponde ad una applicazione in VB tramite connesione ADO url.

    La pagina funziona perfettamente sull IIS5.0 del mio pc difatti restituisce l'xml come ci si aspetterebbe.
    Invece se la metto on-line sul mio sito hostato da aruba, mi da questo errore:


    ADODB.Recordset error '800a0bb9'
    Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.


    l'errore è generato alla linea messa in grassetto (praticamente sul save che dovrebbe generare l'output in xml)

    codice:
    Const adPersistXML = 1
    Const adStateOpen = 1
    Const adOpenStatic = 3
    Const adLockBatchOptimistic = 4
    Const adCmdText = 1
    
    vUser = Request("User")
    
    on error resume next
    
    Set db = Server.CreateObject("ADODB.Connection")
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & request.servervariables("APPL_PHYSICAL_PATH") & "MyDb.mdb;User Id=admin;Password=;"
    
    Set Rs = Server.CreateObject("ADODB.Recordset")
    vSqlStr = "SELECT * FROM tabella WHERE User = '" & Replace(vUser, "'", "''") & "';"
    Rs.Open vSqlStr, db, adOpenStatic, adLockBatchOptimistic, adCmdText
    If Err.Number <> 0 Then
    	Response.Status = "500 " & Err.Source & ": " & Err.Description
      Response.End
    End If
    
    Response.ContentType = "text/xml"
    Rs.Save Response, adPersistXML
    If Err.Number <> 0 Then
    	Response.Status = "500 " & Err.Source & ": " & Err.Description
      Response.End
    End If
    
    Rs.Close
    Set Rs = Nothing
    If db.State = adStateOpen Then
    	db.Close
    End If
    Set db = Nothing
    è un problema di permessi su chi mi ospita il sito?? Io non riesco davvero a venirne fuori. Anche perchè, come ho detto, in locale la pagina funge perfettamente.
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  2. #2
    penso che sia un problema di permessi se non erro prova a mettere l'applicazione dentro alla cartella public dove hai più permessi rispetto alle altre cartelle

    è una prova


    leggi qua

    cgi-bin : questa cartella puo' contenere files eseguibili quali cgi e simili.
    Non ha i permessi di scrittura.

    public : questa cartella puo' contenere tutti i files sui quali e' necessario
    che qualsiasi utente possa scrivere. Di solito e' utilizzata per contenere i
    files di contatori, o forum o altri script che devono scrivere sui files di archivio.

    mdb-database : ha le stesse caratteristiche di public, ma il suo contenuto
    non puo' essere "scaricato". E' adatta a contenere i database mdb sui quali
    possono comunque "lavorare" e scrivere pagine asp.

  3. #3
    ho provato anche su public.. ma da esattamente lo stesso errore.
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  4. #4
    cosi?
    codice:
    Const adPersistXML = 1
    Const adStateOpen = 1
    Const adOpenStatic = 3
    Const adLockBatchOptimistic = 4
    Const adCmdText = 1
    
    vUser = Request("User")
    
    on error resume next
    
    Set db = Server.CreateObject("ADODB.Connection")
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & request.servervariables("APPL_PHYSICAL_PATH") & "MyDb.mdb;User Id=admin;Password=;"
    
    vSqlStr = "SELECT * FROM tabella WHERE User = '" & Replace(vUser, "'", "''") & "';"
    
    set rs = server.createobject("adodb.recordset")
    rs.cursorlocation = 3
    
    Rs.Open vSqlStr, db, adOpenStatic, adLockBatchOptimistic, adCmdText
    If Err.Number <> 0 Then
    	Response.Status = "500 " & Err.Source & ": " & Err.Description
      Response.End
    End If
    
    Response.ContentType = "text/xml"
    Rs.Save Response, adPersistXML
    If Err.Number <> 0 Then
    	Response.Status = "500 " & Err.Source & ": " & Err.Description
      Response.End
    End If
    
    Rs.Close
    Set Rs = Nothing
    If db.State = adStateOpen Then
    	db.Close
    End If
    Set db = Nothing
    se non è bello ciò che è bello figuriamoci ciò che è brutto!!



    fai anche tu come me: indenta il codice!!!!

  5. #5

  6. #6
    si, scusa.. mi ero dimenticato di inserireil recordset. Ma era solo un errore di copiatura. Nel codice effettivo c'è e non è quello a generare l'errore.
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  7. #7
    Originariamente inviato da christian08
    usi sql
    :master:
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  8. #8
    perchè :master:

  9. #9

  10. #10
    Originariamente inviato da christian08
    perchè :master:
    cosa intendi con "usi sql"?

    p.s. ti ho risposto di la.
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.