Ho fatto tante ricerche sul forum ma non ho trovato la risposta al mio quesito e quindi ecco il mio problema:
ho una pagina in cui inserisco una data di inizio periodo e una data di fine periodo:
Ecco il codice:
<form action="ReportSegretariato2.asp" method="post">
<table>
<tr>
<td class="testo">Data inizio:</td>
<td><input name="InizioPeriodo" type="text" class="testo" size="12"><span class="CorsivoPiccolo">(formato gg/mm/aaaa)</span></td>
</tr>
<tr>
<td class="testo">Data fine:</td>
<td><input name="FinePeriodo" type="text" class="testo" size="12"></td>
</tr>
</table>
<td width="100"><input type="submit" class="input" value="Cerca"></td>
</form>
------------------------------------------------------------------------
Nella pagina del risultato ecco che cosa ho messo:
<html>
<head>
<title>Analisi domande</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="format.css" rel="stylesheet" type="text/css">
</head>
<body>
<span class="titolone">Report situazione segnalazioni</span>
<span class="testo">L'analisi delle segnalazioni vengono fornite dal conteggio dei dati registrati in un dato periodo di tempo.
Il periodo analizzato è il seguente: dal
<%
Inizio=request.form("InizioPeriodo")
Inizio = replace(Inizio, "'","''")
Fine=request.form("FinePeriodo")
Fine = replace(Fine, "'","''")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/miodatabase.mdb")
sql="SELECT t_Segnalazione.IdSegnalazione, t_Segnalazione.DataColloquio FROM t_Segnalazione WHERE (((t_Segnalazione.DataColloquio) Between "&Inizio&" And "&Fine&"))"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn
Response.Write(""&Inizio&"")
%>'Questo me lo scrive giusto
al
<%
Inizio=request.form("InizioPeriodo")
Inizio = replace(Inizio, "'","''")
Fine=request.form("FinePeriodo")
Fine = replace(Fine, "'","''")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/miodatabase.mdb")
sql="SELECT t_Segnalazione.IdSegnalazione, t_Segnalazione.DataColloquio FROM t_Segnalazione WHERE (((t_Segnalazione.DataColloquio) Between "&Inizio&" And "&Fine&"))"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn
Response.Write(""&Fine&"")
%>'Questo me lo scrive giusto. </span>
<span class="testo">Nel periodo il totale delle segnalazioni è stato di:</span>
<span class="testo">
<%
Inizio=request.form("InizioPeriodo")
Inizio = replace(Inizio, "'","''")
Fine=request.form("FinePeriodo")
Fine = replace(Fine, "'","''")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/miodatabase.mdb")
sql = "SELECT COUNT(*) AS TOTALE FROM t_segnalazione WHERE t_Segnalazione.DataColloquio Between "&Inizio&" And "&Fine&""
set rs = conn.execute(sql)
Response.Write(rs("totale"))
rs.close
set rs = nothing
%>
</span>
<span class="testo">Il sesso degli interlocutori è il seguente:</span>
<table>
<tr>
<td class="cellaAltoCentrato" width="50">Donne</td>
<td class="cellaAltoCentrato" width="50">Uomini</td>
<td class="cellaAltoCentrato" width="50">Totale</td>
</tr>
<tr>
<td class="cellaCentrato">
<%
Inizio=request.form("InizioPeriodo")
Inizio = replace(Inizio, "'","''")
Fine=request.form("FinePeriodo")
Fine = replace(Fine, "'","''")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/miodatabase.mdb")
sql = "SELECT Count(*) AS Totale FROM t_Segnalazione WHERE t_Segnalazione.SessoSegnalato='femmina' And ((t_Segnalazione.DataColloquio) Between "&Inizio&" And "&Fine&")"
set rs = conn.execute(sql)
Response.Write(rs("Totale"))
rs.close
set rs = nothing
%>
</td>
<td class="cellaCentrato">
<%
Inizio=request.form("InizioPeriodo")
Inizio = replace(Inizio, "'","''")
Fine=request.form("FinePeriodo")
Fine = replace(Fine, "'","''")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/miodatabase.mdb")
sql = "SELECT Count(*) AS Totale FROM t_Segnalazione WHERE t_Segnalazione.SessoSegnalato='maschio' And ((t_Segnalazione.DataColloquio) Between "&Inizio&" And "&Fine&")"
set rs = conn.execute(sql)
Response.Write(rs("totale"))
rs.close
set rs = nothing
%>
</td>
<td class="cellaCentrato">
<%
Inizio=request.form("InizioPeriodo")
Inizio = replace(Inizio, "'","''")
Fine=request.form("FinePeriodo")
Fine = replace(Fine, "'","''")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/miodatabase.mdb")
sql = "SELECT COUNT(*) AS TOTALE FROM t_Segnalazione (SELECT DISTINCT t_segnalazione.IdSegnalazione, t_segnalazione.SessoSegnalazione, t_segnalazione.DataColloquio WHERE ((t_Segnalazione.DataColloquio) Between "&Inizio&" And "&Fine&"))"
set rs = conn.execute(sql)
Response.Write(rs("totale"))
rs.close
set rs = nothing
%>
</td>
Mi dà errore: Errore di sintassi nella proposizione FROM. /ReportSegretariato2.asp, line 116
La linea 116 è
(115) sql = "SELECT COUNT(*) AS TOTALE FROM t_Segnalazione (SELECT DISTINCT t_segnalazione.IdSegnalazione, t_segnalazione.SessoSegnalazione, t_segnalazione.DataColloquio WHERE ((t_Segnalazione.DataColloquio) Between "&Inizio&" And "&Fine&"))"
(116) set rs = conn.execute(sql)
Che cosa sbaglio?????
Grazie amici attendo vostri aiuti!!!
Rispondi quotando
