Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 16
  1. #1
    Utente di HTML.it L'avatar di mmaria
    Registrato dal
    Apr 2003
    Messaggi
    594

    Problemi con la srtinga

    Ciao amici. Ho un problema. Ricevo questo errore:
    Errore di compilazione di Microsoft VBScript errore "800a03ea'
    Errore di sintassi
    a_06.asp, riga 29
    stringa =
    ---------^

    Ecco lo script:


    Set Conn=Server.CreateObject("ADODB.Connection")
    strConn="driver={Microsoft Access Driver (*.mdb)}; "
    strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/madonie.mdb")
    strConn=strConn & ";pwd=training"
    Conn.Open strConn

    nometabella="articoli" ' inserisci qui il nome della tabella da vedere

    SQL = "SELECT TOP 10 * FROM articoli where comune = 'news' and (ad_dated < date() OR ad_dated = date() and ad_expired < time()) ORDER BY ad_dated desc, ad_expired desc"

    'apro il rs
    rs.Open sql, objConn
    stringa = ""
    do until rs.eof

    For Each campo in rs.Fields
    if not (campo.name = "id" or campo.name = "campo6") then
    'non stampa i campi non richiesti
    stringa = COSA SCRIVO?
    end if
    next

    rs.movenext
    loop

    'chiudo tutto
    rs.close
    set rs=nothing

    objConn.close
    set objconn=nothing
    %>
    Cosa devo scrivere nella riga dove ho inserito il testo COSA SCRIVO
    Grazie per quello che hai fatto...

  2. #2
    Utente di HTML.it L'avatar di heroes3
    Registrato dal
    Aug 2001
    Messaggi
    2,483
    scusa ma questo script che cosa fa???

    ecco scrivi quello

  3. #3
    Utente di HTML.it L'avatar di Sypher
    Registrato dal
    Jun 2003
    Messaggi
    1,994

    Re: Problemi con la srtinga

    Originariamente inviato da mmaria
    Cosa devo scrivere nella riga dove ho inserito il testo COSA SCRIVO
    eh bella domanda ...mica c'avemo la palla de vetro dacci qualche indizio
    La passera non dura perchè Sypher la cattura!

    "No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"

  4. #4
    scrivi

    codice:
    strina="Impossibile stampare il campo " & campo.name

  5. #5
    strina=stringa, ho sbagliato a digitare

  6. #6
    Utente di HTML.it L'avatar di Sypher
    Registrato dal
    Jun 2003
    Messaggi
    1,994
    Originariamente inviato da santino83
    scrivi

    codice:
    strina="Impossibile stampare il campo " & campo.name
    allora la chiamiamo srtinga,stringa o strina...vabbè sappo via
    La passera non dura perchè Sypher la cattura!

    "No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"

  7. #7
    Utente di HTML.it L'avatar di Sypher
    Registrato dal
    Jun 2003
    Messaggi
    1,994
    Originariamente inviato da santino83
    strina=stringa, ho sbagliato a digitare
    puoi modificare
    La passera non dura perchè Sypher la cattura!

    "No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"

  8. #8
    Utente di HTML.it L'avatar di mmaria
    Registrato dal
    Apr 2003
    Messaggi
    594
    Lo script dovrebbe consentirmi di fare scorrere il contenuto di alcuni campi. In quelle che so chiamano news scorrevoli
    Grazie per quello che hai fatto...

  9. #9
    Utente di HTML.it L'avatar di heroes3
    Registrato dal
    Aug 2001
    Messaggi
    2,483

    Re: Problemi con la srtinga

    Originariamente inviato da mmaria
    Ciao amici. Ho un problema. Ricevo questo errore:
    Errore di compilazione di Microsoft VBScript errore "800a03ea'
    Errore di sintassi
    a_06.asp, riga 29
    stringa =
    ---------^

    Ecco lo script:


    Set Conn=Server.CreateObject("ADODB.Connection")
    strConn="driver={Microsoft Access Driver (*.mdb)}; "
    strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/madonie.mdb")
    strConn=strConn & ";pwd=training"
    Conn.Open strConn

    nometabella="articoli" ' inserisci qui il nome della tabella da vedere

    SQL = "SELECT TOP 10 * FROM articoli where comune = 'news' and (ad_dated < date() OR ad_dated = date() and ad_expired < time()) ORDER BY ad_dated desc, ad_expired desc"

    'apro il rs
    rs.Open sql, objConn
    stringa = ""
    do until rs.eof

    For Each campo in rs.Fields
    if not (campo.name = "id" or campo.name = "campo6") then
    'non stampa i campi non richiesti
    stringa = COSA SCRIVO?
    end if
    next

    rs.movenext
    loop

    'chiudo tutto
    rs.close
    set rs=nothing

    objConn.close
    set objconn=nothing
    %>
    Cosa devo scrivere nella riga dove ho inserito il testo COSA SCRIVO
    vado per tentativi e considera che non conosco lo script che stai facendo cmq....


    codice:
    Stringa = Stringa & "-" & campo.value
    il trattino in mezzo ti può aiutare per la divisione dei vari campi puoi anche toglierlo e lasciare solo la &


  10. #10
    scusa ma non capisco proprio che vuoi far vedere

    quell'if è di esclusione, quindi li non visualizzi nulla

    non puoi essere più esaustiva su cosa vuoi ottenere alla fine dello script?

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.