vPathGen = "questgen/" vPathGenFisico = server.mappath("mdb-database/quest.mdb") vPathDB = vPathGenFisico vHdnAzienda = "Iscrizioni Tornei Summer Fest" NumQuest = Request("NumQuest") NumQuest = 37 If NumQuest = "" then 'scrittura testata tabella di riepilogo Response.Write("") Response.Write(" Riepilogo Risposte") Response.Write("") Response.Write("

E' necessario specificare un questionario da riepilogare") Response.End Else 'dichiara che l'output non è una pagina HTML ma un file di Excel Response.ContentType = "application/vnd.ms-excel" End If Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open "Quest" Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & vPathDB 'Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\archivio\WWW\Applicazioni\quest\quest.mdb" SQLtext = "SELECT * FROM Testata WHERE DataGen Is Not NULL AND IDquest=" & NumQuest & ";" Set RS = Server.CreateObject("ADODB.Recordset") RS.PageSize = 9 RS.Open SQLtext, Conn, adOpenKeyset 'legge il codice del Questionario per creare i vari nomi degli oggetti If RS.eof then Response.Write("

Il questionario selezionato non è ancora stato completato!!!") Response.end Else sCodQuest=Cstr(RS("IDquest")) sDscQuest = RS("Titolo") End If 'crea il nome del file DO while Len(sCodQuest) <= 6 sCodQuest = "0" & sCodQuest Loop RS.Close 'nomeFileForm = "Q" & sCodQuest & ".htm" 'nomeFileDopoForm = "I" & sCodQuest & ".asp" nomeTabella = "T" & sCodQuest 'vPath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "quest\input\" 'apertura tabella per leggere i dati SQLtext = "SELECT * FROM " & nomeTabella & ";" RS.PageSize = 9999 RS.Open SQLtext, Conn, adOpenKeyset 'Crea la tabella dei dati in Excel Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

" & sDscQuest & "

 
 
") Response.Write("") Response.Write("") For Each oCampo In RS.Fields Response.Write("") Next Response.Write("") Do While not RS.Eof 'scrive il record dei dati Response.Write("") Conta = 0 For Each oCampo In RS.Fields Response.Write("") Conta = Conta + 1 Next Response.Write("") RS.MoveNext Loop 'chiusura Recorset RS.close Set RS = Nothing Conn.close Set Conn = Nothing %>
" & oCampo.Name & "
" & RS(Conta) & "