• User

    response.write

    Buona serata a tutti,
    sono quì per un problema come da titolo, che non riesco a risolvere.
    Ho il seguente codice che non mi funziona, vi va di dargli un'occhiata per correggerlo?

    <%
    Dim test
    test = Request.QueryString("campo1")
    If test <> "" Then
    Response.Write (Request.QueryString("campo1"))
    ELSE
    response.Write (Request.QueryString("campo2"))
    ELSE
    Response.Write "nessun risultato"
    End If
    %>

    Grazie per l'attenzione


  • User

    Credo di non essere stato chiaro.
    Vorrei ottenere:
    scrivi il campo2
    se non è presente scrivi campo1
    altrimenti scrivi nessun risultato

    :ciauz:


  • User

    Ciao,
    secondo me stai commettendo un grave errore di base a livello di programmazione.

    Se test è diverso da "" stampa campo1 altrimenti stampa campo2. Non puoi specificare un'altra condizione di uguaglianza, almeno non nella struttura IF..THEN.
    In soldoni è come se scrivessi: if a <> "" then stampa "PIPPO" else stampa PLUTO else stampa PAPERINO.

    Quindi PLUTO viene stampato se a <> "" e PAPERINO quando dovrebbe essere stampato??


  • User

    Ciao e grazie per la risposta.
    So che il codice postato non è corretto in realtà in origine era il seguente:

    <%
    Dim test
    test = Request.QueryString("campo1")
    If test <> "" Then
    Response.Write (Request.QueryString("campo1"))
    ELSE
    Response.Write "nessun risultato"
    End If
    %>

    adesso però ho la necessità di aggiungere un'altra condizione appunto:
    Response.Write (Request.QueryString("campo2"))

    per cui dovrei avere il seguente risultato:
    scrivi ---- pippo ---- campo1
    se presente scrivi ---- pluto ---- campo2
    se non si verificano le prime due condizioni scrivi ---- nessun risultato

    spero di essere stato chiaro.
    Ciao


  • User

    Continuo a non capire cosa intenda per

    scrivi ---- pippo ---- campo1
    se presente scrivi ---- pluto ---- campo2
    se non si verificano le prime due condizioni scrivi ---- nessun risultato

    ed in particolare la 2a riga.

    Puoi provare a tradurre tutto ciò in pseudocodice, un po' come ho fatto io nell'esempio precedente??


  • User

    Penso voglia fare così
    Dim campo1, campo2
    campo1 = Request.QueryString("campo1")
    campo2 = Request.QueryString("campo2")
    If campo1 <> "" Then
    Response.Write (campo1)
    ELSEIf campo2 <> "" Then
    response.Write (campo2)
    ELSE
    Response.Write "nessun risultato"
    End If

    😉


  • User Attivo

    Ti serve il costrutto Select Case...ad esempio

    
    SELECT CASE intMese
              CASE 1
                  strMese = "Gennaio"
              CASE 2
                  strMese = "Febbraio"
              CASE 3
                  strMese = "Marzo"
              CASE 4
                  strMese = "Aprile"
              CASE 5
                  strMese = "Maggio"
              CASE ELSE
                  strMese = "Ottobre"
    END SELECT