select con condizioni

**iako77** · 11-12-2007, 11:05

Ciao a tutti, vi allego il codice che mi sta dando problemi:
sto provando a fare una select che è identica alla successiva (cambia solo la variabile) ma la prima non esegue il filtro (codice_alphyra) nonostante recuperi correttamente dal form il suo valore. Il codice incriminato è quello evidenziato in rosso.
Potete darci un'occhiata?
Grazie

<%
data1=replace(Request.form("data1"),"'","''")
data2=replace(Request.form("data2"),"'","''")
if data1="" then data1="01/01/2007" end if
if data2="" then data2="31/12/2010" end if

data1anno = Mid(data1, 7, 4)
data1mese = Mid(data1, 4, 2)
data1giorno = Mid(data1, 1, 2)
data1 = data1anno & "/" & data1mese & "/" & data1giorno

data2anno = Mid(data2, 7, 4)
data2mese = Mid(data2, 4, 2)
data2giorno = Mid(data2, 1, 2)
data2 = data2anno & "/" & data2mese & "/" & data2giorno

idpdv=Session("idpdv")
codice_alphyra=replace(Request.form("codice_alphyr a"),"'","''")

operatore=replace(Request.form("operatore"),"'","' '")

Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("db\alphyra.mdb")

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Prima pagina</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body topmargin="0" leftmargin="0">
<table width="100%" border="0">
<tr>
<td>[img]palmare.jpg[/img]</td>
<td><font face="Verdana, Arial, Helvetica, sans-serif"><font color="#0033CC" size="6">GESTIONE
RESO SCONTRINI ALPHYRA</font></font></td>
</tr>
</table>

<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Codice
pdv:
<% response.write idpdv %>
</font></font> </p>

<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="136" background="label.jpg"><div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">" style="text-decoration: none; color: #FFFFFF">Inserisci</font></div></td>
<td width="137" background="label.jpg"><div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Elenco</font></div></td>
<td width="135" background="label.jpg"><div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Sintesi</font></div></td>
</tr>
</table>
<form name="form1" method="post" action="">
<table width="83%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#C9E4E4">
<td width="23%" bgcolor="#C9E4E4"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cerca
per </font></td>
<td width="77%"> <div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Operatore
<select name="operatore">
<option value=""></option>
<option>TIM</option>
<option>WIND</option>
<option>VODAFONE</option>
<option>TRE</option>
</select>

Data Scontrino : DA
<input name="data1" type="text" id="data1">
A
<input name="data2" type="text" id="data2">
</font></div></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">oppure</font></td>
<td><div align="right"></div></td>
</tr>
<tr bgcolor="#C9E4E4">
<td><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Cerca
per</font></td>
<td> <div align="left"><font color="#000000"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Serial
Number
<input name="codice_alphyra" type="text" id="codice_alphyra">
</font></font></div></td>
</tr>
</table>
<input name="idpdv" type="hidden" id="idpdv" value="<%=idpdv%>">
<input name="codice_alphyra" type="hidden" id="codice_alphyra" value="<%=codice_alphyra%>">
<input type="submit" name="Submit" value="Invia">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>
</form>
<%
if codice_alphyra = "" then
SQL = "SELECT * FROM scontrini WHERE idpdv= '"&idpdv&"' "
else
SQL = "SELECT * FROM scontrini WHERE idpdv= '"&idpdv&"' and codice_alphyra='"&codice_alphyra&"' "
end if
Set rec = Server.CreateObject("ADODB.Recordset")
Set rec=Conn.Execute(SQL)
%>
<% response.write codice_alphyra
%>
<%
if operatore = "" then
SQL = "SELECT * FROM scontrini WHERE data BETWEEN #"&data1&"# And #"&data2&"# and idpdv = '"&idpdv&"'"
else
SQL = "SELECT * FROM scontrini WHERE data BETWEEN #"&data1&"# And #"&data2&"# and idpdv = '"&idpdv&"' and operatore = '"&operatore&"'"
end if
Set rec = Server.CreateObject("ADODB.Recordset")
Set rec=Conn.Execute(SQL)
%>
<%
SQLtotale = "SELECT SUM(importo) AS totale FROM scontrini WHERE data BETWEEN #"&data1&"# And #"&data2&"# and idpdv = '"&idpdv&"' and operatore = '"&operatore&"'"

Set rectotale = Server.CreateObject("ADODB.Recordset")
Set rectotale=Conn.Execute(SQLtotale)

%>
<table width="88%" border="2" cellpadding="0" cellspacing="0">
<tr bordercolor="#FFFFFF" bgcolor="#8DB4B4">
<td width="15%"> <div align="left"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">DATA</font></font></div></td>
<td width="15%"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">ORA</font></td>
<td width="30%"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">DESCRIZIONE
ARTICOLO </font></font></td>
<td width="10%"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">EAN</font></font></td>
<td width="10%"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">OPERATORE</font></font></td>
<td width="10%"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">IMPORTO</font></font></td>
<td width="10%"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">NUMERO
CASSA </font></font></td>
<td width="10%"> <div align="left"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">CODICE
CASSIERA </font></font></div></td>
</tr>
<%
Do Until rec.EOF
%>
<tr bordercolor="#FFFFFF" bgcolor="#8DB4B4">
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("data")%></font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("ora")%></font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("descrizione_articolo")%></font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("ean")%></font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("operatore")%></font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("importo")%></font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("numero_cassa")%></font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("codice_cassiera")%></font></td>
</tr>
<%
rec.MoveNext
Loop

rec.close

%>
</table>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tot per
il periodo selezionato/operatore: € <font color="#FF0000"><%=rectotale("totale")%></font>
</font></p>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:window.print()"><font color="#000000">Stampa
i risultati di questa pagina</font></a><a href="javascript:window.print()">
[img]stampa.JPG[/img]</a></font></font>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="esportarisultati.asp?data1=<%=data1%>&data2= <%=data2%>&operatore=<%=operatore%>" target="_blank">Esporta
i risultati di questa pagina</a></font></p>
</body>
</html>
<%
rectotale.close
%>

**optime** · 11-12-2007, 11:23

fatti stampare la sql chge costruisci e controllala.

**iako77** · 11-12-2007, 11:53

Nella riga sottostante
%>
<% response.write codice_alphyra
%>
mi viene correttamente "pescato" il valore del form ma poi la condizione
if codice_alphyra = "" then
non filtra correttamente eppure è un campo testo come gli altri....

**Mems** · 11-12-2007, 17:11

La form ha method="post" oppure method="get" ?

**iako77** · 11-12-2007, 17:18

post

**Mems** · 11-12-2007, 17:32

Vediamo la form.

**iako77** · 11-12-2007, 17:36

<form name="form1" method="post" action="">
<table width="83%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#C9E4E4">
<td width="23%" bgcolor="#C9E4E4"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cerca
per </font></td>
<td width="77%"> <div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Operatore
<select name="operatore">
<option value=""></option>
<option>TIM</option>
<option>WIND</option>
<option>VODAFONE</option>
<option>TRE</option>
</select>

Data Scontrino : DA
<input name="data1" type="text" id="data1">
A
<input name="data2" type="text" id="data2">
</font></div></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">oppure</font></td>
<td><div align="right"></div></td>
</tr>
<tr bgcolor="#C9E4E4">
<td><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Cerca
per</font></td>
<td> <div align="left"><font color="#000000"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Serial
Number
<input name="codice_alphyra" type="text" id="codice_alphyra">
</font></font></div></td>
</tr>
</table>
<input name="idpdv" type="hidden" id="idpdv" value="<%=idpdv%>">
<input name="codice_alphyra" type="hidden" id="codice_alphyra" value="<%=codice_alphyra%>">
<input type="submit" name="Submit" value="Invia">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>
</form>

e questa è la select che non mi applica la condizione (if codice_alphyra = "" then )
<%
if codice_alphyra = "" then
SQL = "SELECT * FROM scontrini WHERE idpdv= '"&idpdv&"' "
else
SQL = "SELECT * FROM scontrini WHERE idpdv= '"&idpdv&"' and codice_alphyra='"&codice_alphyra&"' "
end if
Set rec = Server.CreateObject("ADODB.Recordset")
Set rec=Conn.Execute(SQL)
%>
<% response.write codice_alphyra
%>

**Mems** · 11-12-2007, 17:38

Nella pagina con la form vedo questo:

codice:

<input name="codice_alphyra" type="hidden" id="codice_alphyra" value="<%=codice_alphyra%>">

La domanda è questa: se da browser apri codice HTML vedi qualche value in questo campo hidden?

**optime** · 11-12-2007, 17:46

codice:

<% 
response.write "MaGGica alphyra...: " & codice_alphyra & "
"
if codice_alphyra = "" then 
SQL = "SELECT * FROM scontrini WHERE idpdv= '"&idpdv&"' "
else 
SQL = "SELECT * FROM scontrini WHERE idpdv= '"&idpdv&"' and codice_alphyra='"&codice_alphyra&"' "
end if
response.write "MaGGica SQL...: " & SQL & "
"
Set rec = Server.CreateObject("ADODB.Recordset")
Set rec=Conn.Execute(SQL) 
%>

e posta quello che viene a video

**iako77** · 11-12-2007, 17:48

no vedo questo....
<input name="codice_alphyra" type="hidden" id="codice_alphyra" value="">
però con il response.write seguente
%>
<% response.write codice_alphyra
%>
dopo averlo imputato lo segna correttamente:
sarà perchè il campo nascosto nasce da una mia esagerazione visto che nell'intestazione della pagina lo seleziono con
<%
codice_alphyra=replace(Request.form("codice_alphyr a"),"'","''")
%>
????

Discussione: select con condizioni

Strumenti discussione

Ricerca discussione

Visualizza

select con condizioni

ciao

form + select

codice

Permessi di invio