Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Query ASP

  1. #1

    Query ASP

    ciao a tutti .....

    volevo sapere come poter scrivere una query che mi seleziona tutto di un utente tra una data x e una data y .

    esempio : SELEZIONO IL SIGNOR ROSSI DATA1 :20/01/2013 DATA2:20/05/2013
    Riesco gia a visualizzare tutto dell'utente, ma non con la condizione della data...

    mi potreste dare una mano a scriverla ? grazie CIAO

    il codice e :

    codice:
    ASP
    <html>
    <head>
    <title>Inserimento nuova posta</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <link href="stile.css" rel="stylesheet" type="text/css">
    <script type="text/javascript" src="js/jquery.js"></script>
    <script type="text/javascript" src="js/interface.js"></script>
    <link href="stylemenu.css" rel="stylesheet" type="text/css" />
    <script type="text/javascript" src="./js/datepicker.js"></script>
    <link href="./css/datepicker.css" rel="stylesheet" type="text/css" />




    <SCRIPT LANGUAGE="JavaScript">
    function verifica() {
    var ret = true
    var personaSelez
    personaSelez = document.FORMVISUA.selezionato.value
    if(personaSelez=="")
    {
    alert("SELEZIONA PRIMA UN UTENTE E CLICCA SU CONFERMA");
    ret = false;
    }
    return ret;
    }

    function valoreselezionato() {
    var personaSelez
    personaSelez = document.FORMVISUA.persona.value
    document.FORMVISUA.selezionato.value = document.FORMVISUA.persona.value
    if(personaSelez!="")
    {
    }
    else
    {
    alert("SELEZIONA PRIMA UN UTENTE E CLICCA SU CONFERMA");
    }
    }

    </SCRIPT>
    </head>

    <body>

    <p align="center">
    <%
    Session.LCID = 1040

    Dim UserName
    Dim DisplayName
    Dim Gruppo
    Dim Ordina
    Dim Ordina2
    Dim personaSel
    Dim persona
    Dim oggi

    oggi = Date()

    persona = Request("selezionato")

    if persona <>"" then Session("persona") = persona

    personaSel= Session("persona")

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
    "DBQ="& Server.MapPath("posta.mdb")


    sql6 = "SELECT * FROM T_Posta"


    sqlTipo = "SELECT * FROM T_Posta WHERE Destinatario ='" & personaSel & "'"

    set rs = conn.execute(sqlTipo)
    set rsSelect = conn.execute(sql6)


    If Rs.EOF Then
    %>


    <center>
    <h1>SELEZIONA L'UTENTE</h1>


    <form name="FORMVISUA" method="post" action="VisualizzaPersone.asp">

    DA <input READONLY name="Data_ricevimento" class="w16em dateformat-d-sl-m-sl-Y" type="text" style="width: 70px;" value=""></input>
    A <input READONLY name="Data_ricevimento1" class="w16em dateformat-d-sl-m-sl-Y" type="text" style="width: 70px;" value=""></input>

    <select name="persona" id="persona">
    <option value="Ammin. Manitalidea S.p.A.">Ammin. Manitalidea S.p.A.</option>
    <option value="Ammin. Manital s.c.p.a.">Ammin. Manital s.c.p.a.</option>
    <option value="Ammin. Coplus GS s.r.l.">Ammin. Coplus GS s.r.l.</option>
    <option value="Uff. Workinglab">Uff. Workinglab</option>
    </select>



    <input type="hidden" value="<%response.write(Session("persona"))%>" name="selezionato" id="selezionato"></input>
    <input type="submit" value="Conferma" onClick="return valoreselezionato();">

    </form>

    <center>
    <%
    ' non ci sono pc caricati
    Response.Write "Non Ci sono Documentazioni di Posta caricate"
    %>
    </center>
    </center>
    <%Else%>
    <center>
    <form name="FORMVISUA" method="post" action="VisualizzaPersone.asp">
    <select name="persona" id="persona">
    <option value="Ammin. Manitalidea S.p.A.">Ammin. Manitalidea S.p.A.</option>
    <option value="Ammin. Manital s.c.p.a.">Ammin. Manital s.c.p.a.</option>
    <option value="Ammin. Coplus GS s.r.l.">Ammin. Coplus GS s.r.l.</option>
    <option value="Uff. Workinglab">Uff. Workinglab</option>
    </select>


    <input type="hidden" value="<%response.write(Session("persona"))%>" name="selezionato" id="selezionato"></input>
    <input type="submit" value="Conferma" onClick="return valoreselezionato();">

    </form> </center>
    <center>
    <%
    Response.Write "ELENCO POSTA UTENTE"
    %>
    </center>

    <TABLE border="1" class="text"align="center">

    <TR>

    <TD>Identificativo</TD>
    <TD>Tipo</TD>
    <TD>Data Ricevimento</TD>
    <TD>Mittente</TD>
    <TD>Destinatario</TD>
    <TD>Ritirato da utente</TD>
    <TD>Data Ritiro</TD>
    <TD>Priorita</TD>
    <TD>Indirizzo Mail</TD>
    <TD>Note</TD>
    <TD>Allegato</TD>
    <TD>Stato Posta</TD>
    </TR>
    <%
    Do While not rs.EOF
    %>

    <TR>
    <TD><%=rs("ID")%></TD>
    <TD><%=rs("Tipo")%></TD>
    <TD><%=rs("Data_ricevimento")%></TD>
    <TD><%=rs("Mittente")%></TD>
    <TD><%=rs("Destinatario")%></TD>
    <TD><%=rs("Ritirato_da")%></TD>
    <TD><%=rs("Data_ritiro")%></TD>
    <TD><%=rs("Priorita")%></TD>
    <TD><%=rs("Mail")%></TD>
    <TD><%=rs("Note")%></TD>
    <TD><%=rs("Allegato")%></TD>
    <TD><%=rs("StatoPosta")%></TD>
    </TR>
    <%
    rs.MoveNext
    Loop
    End If

    Rs.Close
    Set Rs = Nothing

    %>


    </TABLE>




    <center>

    </p>
    Indietro

    </body>
    </html>


    codice:
    ASP

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Dipende da:
    - il tipo di db
    - il tipo di campo

    Roby

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 © 2026 vBulletin Solutions, Inc. All rights reserved.