I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
ziosamuele
ziosamuele
il 23 luglio 2012 alle 23:08
2 messaggi dal 23 luglio 2012
Allora provo a spiegarmi: prima pagina form con mese e nome da selezionare, seconda pagina riceve la variabile "mese" e la variabile "nome" leggendo da un database date un'occhiata allo script che non riesco a venirne a capo. Ecco gli script:
---------------------------------------------------------
PAGINA agg1.asp
<%@Language=VBScript%>
<%Response.Buffer = True%>

<title>presenze </title>

<body>

<%
dim strCode
strCode="mystring"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mio_database.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM tabella1 ORDER BY cognome ASC "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>

<form action="agg2.asp?Id=<%=rs(0)%>" method="post" >
<select name="idAtleta">
<%

do while not(rs.eof)


%>
<option value="<%=rs(0)%>"><%=rs("cognome")%> &nbsp;<%=rs("nome")%>

<%

rs.movenext
loop

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</option>
</select>
<select name="mese">
<option value="gennaio">Gennaio
<option value="febbraio">Febbraio
<option value="marzo">Marzo
<option value="aprile">Aprile
<option value="maggio">Maggio
<option value="giugno">Giugno
<option value="luglio">Luglio
<option value="settembre">Settembre
<option value="ottobre">Ottobre
<option value="novembre">Novembre
<option value="dicembre">Dicembre

</option>
</select>

<input type="submit" value="Invia" />
</form>
</body>
</html>
--------------------------------------------------------------

PAGINA agg2.asp

<%@Language=VBScript%>
<%Response.Buffer = True%>

<title>presenze</title>
<%
dim strMese
strMese =request.Form("mese")

dim intCodice
intCodice = request("Id")

dim strCode
strCode="mystring"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mio_database.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM " + strMese " WHERE Id="&intCodice '<-----
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>

<body>
<%response.Write strMese%>
<%response.Write (" ")%>
<%=rs("cognome")%>
</body>
</html>
----------------------------------------------------------------
la parte di codice segnata dalla freccia in grassetto è quella che non riesco a far passare, mi dà errore sintassi. COME FARE? GRAZIE
RispondiQuoting
ghg
ghg
il 24 luglio 2012 alle 02:22
175 messaggi dal 02 gennaio 2012
sql = "SELECT * FROM " + strMese " WHERE Id="&intCodice '<-----

diventa

sql = "SELECT * FROM " + strMese + " WHERE Id="&intCodice '<-----


ti mancava un operatore di concatenazione +

bye ghg
RispondiQuoting
manuel0081
manuel0081
il 24 luglio 2012 alle 08:44
2.380 messaggi dal 22 febbraio 2006
blogs.ugidotnet.org
e direi di usare la & e non il + per evitare problemi
Ormai programmano tutti... ma la professionalità appartiene a pochi
RispondiQuoting
ziosamuele
ziosamuele
il 24 luglio 2012 alle 17:59
2 messaggi dal 23 luglio 2012
Grazie, ora tutto O.K.
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.