Visualizzazione dei risultati da 1 a 7 su 7

Discussione: passare due variabili

  1. #1

    passare due variabili

    [)]
    ok mi scuso per il post precedente. ora riformulo la domanda anche perchè la notte mi ha portato consiglio.

    sapete dirmi come passare due variabili di tipo data ad una seconda pagina?

    io uso un form

    <form action="passo2.asp" method="post" name="anagrafica_dal">

    <font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">Visualizza contratti DAL:
    <input name="dal_var" size="15">





    Inserisci data AL:
    <input name="al_var" size="15">
    </font>






    <INPUT type="submit" value="INVIA">
    </form>


    E IL FILE DI RISPOSTA È_----------------------------------------

    <%
    dim dal_var2, al_var2

    dal_var2 = Request.Form("dal_var")
    al_var2 = Request.Form("al_var")



    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("baia.mdb")

    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")

    dim sql_select
    sql_select = "select * from bilo2 where dal >= '" & dal_var2 & "' and al <= '" & al_var2 & "'"

    Dim data, intera

    --->LINEA 21<---- rs.Open sql_select, Conn


    %>
    <html>
    <head>
    <title>Documento senza titolo</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>

    <body>

    <%
    Do while NOT RS.EOF
    data = rs("data")
    intera =rs("intera")
    id = rs("Id")
    %>



    data : <%=data%>

    intera : <%=intera%>

    Id : <%=Id%>

    <hr>
    <%
    RS.MoveNext
    Loop
    %>
    </body>
    </html>

    <%
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn=Nothing
    %>


    MI DÀ QUEST'ERRORE_--------------------------------

    Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
    [Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 2. LINEA 21

    QUALCOSA A CHE VEDERE CON LA DATA. nel db questa è un campo data.

    grazie, daniele

  2. #2
    Intanto la query scrivila così:

    codice:
    sql_select = "select * from bilo2 where dal >= #" & dal_var2 & "# and al <= #" & al_var2 & "#"
    Poi, per sicurezza, dopo che fai questo:

    codice:
    dal_var2 = Request.Form("dal_var") 
    al_var2 = Request.Form("al_var")
    aggiungi:

    codice:
    response.write(dal_var2 & "
    ")
    response.write(al_var2)
    per vedere se te le valorizza correttamente.
    Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!

  3. #3

    passo 2

    okkey, problema risolto. 6 grandissimamente chiaro, ti ringrazio
    il passo 2 consiste nell'effettuare dei calcoli in base alle variabili caricate.
    ... e scrivo questo codice----------PASSO1.ASP----------------

    <form action="passo2.asp" method="post" name="anagrafica_dal">

    <font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">Visualizza contratti DAL:
    <input name="dal_var" size="15">





    Inserisci data AL:
    <input name="al_var" size="15">
    </font>






    <INPUT type="submit" value="INVIA">
    </form>

    ============e in ---------------PASSO2.ASP----------------
    <%
    dim dal_var2, al_var2

    'prima settimana
    dal_var2 = Request.Form("dal_var")
    'seconda settimana
    al_var2 = Request.Form("al_var")

    'response.write(dal_var2 & "
    ")
    'response.write(al_var2)


    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("baia.mdb")

    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")

    dim sql_select
    sql_select = "select * from bilo2 where dal >= #" & dal_var2 & "# and al <= #" & al_var2 & "#"

    'response.write(dal_var2 & "
    ")
    'response.write(al_var2)

    Dim data, intera

    rs.Open sql_select, Conn


    %>
    <html>
    <head>
    <title>Documento senza titolo</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>

    <body>

    <%
    Do while NOT RS.EOF
    sett1 = rs("dal")
    sett2 = rs("al")
    intera =rs("intera")
    id = rs("Id")
    %>



    dal : <%=sett1%>

    al : <%=sett2%>

    intera : <%=intera%>

    Id : <%=Id%>

    <hr>



    <%
    RS.MoveNext
    Loop
    %>


    <%
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn=Nothing
    %>
    </p>
    <table width="180" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr>
    <td width="140" height="5" bgcolor="#66FFFF"><div align="right"><font size="2" face="Courier New, Courier, mono">Pt</font><font size="2" face="Courier New, Courier, mono"> in
    %
    <input name=pt type=TEXT id="pt" value=<% =Request("pt") %>>
    </font></div>
    </td>
    <td width="18" rowspan="6" valign="bottom"></td>
    </tr>
    <tr>
    <td bgcolor="#FFFF99"><div align="right"></div>
    </td>
    </tr>
    <tr>
    <td bgcolor="#FFFFCC"><div align="right"><font size="2" face="Courier New, Courier, mono"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font> </font></div>
    </td>
    </tr>
    <tr>
    <td bgcolor="#FFFF99"><div align="right"><font size="2" face="Courier New, Courier, mono"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FF0000"> </font></font> </font></div>
    </td>
    </tr>
    <tr>
    <td bgcolor="#FFFF99"><div align="right"><font size="2" face="Courier New, Courier, mono"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></font>
    <div align="right"><font size="2" face="Courier New, Courier, mono"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font> Ad n.</font></div>
    <font size="2" face="Courier New, Courier, mono">
    <input name=n_ad type=TEXT id="n_ad" value=<% =Request("n_ad") %>>
    <font size="2" face="Verdana, Arial, Helvetica, sans-serif">&euro;
    <%
    Dim ch
    ch=rs("ch")
    response.write (ch)
    %>
    </font>
    - Ch n.
    <input name=n_ch type=TEXT id="n_ch" value=<% =Request("n_ch") %>>
    </font></div>
    </td>
    </tr>
    <tr>
    <td bgcolor="#66FFFF">
    <div align="right"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
    <%
    RS.MoveNext
    LINEA 110 Loop
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn=Nothing
    %>
    </font>
    <input name="SUBMIT" type=SUBMIT value="Calcola">
    </div>
    </td>
    </tr>
    <tr>
    <td><table width="140" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td width="119"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
    <%


    Dim n_ad
    Dim ad2
    Dim n_ch
    Dim ch2
    Dim hs2
    Dim pt


    ' leggo il valore degli adulti
    n_ad = Request("n_ad")
    n_ch = Request("n_ch")
    ' leggo il valore della stagionalità
    hs2 = ("hs")
    ad2 = ("ad")
    ch2 = ("ch")
    pt = Request("pt")

    ' restituisco i valori
    ad_tc = n_ad * ad
    ch_tc = n_ch * ch
    pt2 = hs * (pt/100)
    locazione = pt2 + hs
    totale = locazione + ad_tc + ch_tc

    ' mostro il risultato
    Response.Write "TOTALE € " & totale

    %>
    </font></td>
    </tr>
    <tr>
    <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
    </tr>
    <tr>
    <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
    </tr>
    </table>
    </td>
    <td width="18"></td>
    </tr>
    </table>


    </p>

    ==============
    mi dà vari errori: il primo "loop senza do" LINEA 110

    * ora senza andare troppo a correggere tutti i vari errori di oggetti ecc. mi sai indicare uno script il quale, una volta ricevute le variabili di 2 o 3 settimane e i rispettivi 2 o 3 valori in euro, mi effettui un calcolo? (dovrò implementare addizioni e percentuali come vedi già dal codice di esempio). vorrei uscirne prima di natale, non ne posso più.

    grazieeee, daniele.

    ps: il db lo trovi su www.salentoclub.com/baia.mdb

  4. #4
    Qeste due linee:

    codice:
    RS.MoveNext 
    LINEA 110 Loop
    non ci vanno (puoi toglierle).
    Se guardi bene chiudi il loop molto più sopra.

    Prova.
    Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!

  5. #5

  6. #6
    Originariamente inviato da maximum
    Qeste linee:

    codice:
    RS.MoveNext 
    LINEA 110 Loop 
    RS.Close 
    Set RS = Nothing
    non ci vanno (puoi toglierle).
    Se guardi bene chiudi il loop molto più sopra.

    Prova.

    P.S.:Consiglio - la connessione (conn) chiudila sempre a fine pagina, mai in mezzo... ;-)
    Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!

  7. #7

    ancora

    tolgo come mi hai detto
    in più mi ha dato una riga di dati non rispondenti e l'ho cancellata

    ora ecco l'errore che mi riporta a prima

    Tipo di errore:
    Errore di run-time di Microsoft VBScript (0x800A01A8)
    Necessario oggetto
    /miosito/lkg/calc_listino/passo2.asp, line 103

    la riga è quella <%
    conn.Close
    Set conn=Nothing
    %>

    ex 110 ma senza loop

    che faccio?

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.