ecco tutto il codice
I dati vengono recuperati correttamente dal db e li vedo nel foglio excel. Quello che non passa è solo la variabile immessa dall'utente e recuperata col request.form!
Che mistero...
codice:
<%
response.buffer = true
response.ContentType ="application/x-excel"
response.AddHeader "content-disposition", "inline; filename=mav.xls"
causale=request.Form("causale")
stringa_conn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("rette.mdb")
'stringa di connessione
dim objconn
set objconn = server.createobject("adodb.connection")
objconn.open stringa_conn
%>
<table border="1">
<tr><td>Nome</td>
<td>Cognome</td><td>Matricola</td>
<td>Collegio</td><td>Importo</td>
<td>Causale</td>
</tr>
<%
sql="select * from periodi where mav=true"
dim objrs
set objrs=server.createobject("adodb.recordset")
objrs.open sql, stringa_conn
do while not objrs.eof
id=objrs("num")
sql2="select * from studenti where id="&id&" order by cognome"
dim objrs2
set objrs2=server.createobject("adodb.recordset")
objrs2.open sql2, stringa_conn
nome=objrs2("nome")
cognome=objrs2("cognome")
matricola=objrs2("matricola")
collegio=objrs2("collegio")
importo=objrs("importo")
%>
<tr>
<td><%=ucase(Nome)%></td>
<td><%=ucase(Cognome)%></td>
<td><%=matricola%></td>
<td><%=collegio%></td>
<td><%=formatcurrency(importo)%></td>
<td><%=causale%></td>
</tr>
<%
objrs.movenext
loop
%>
</table>
<%
response.flush
response.end
%>