Ho realizzato un form con 3 campi a ricerca multipla e i dati vengono presi da un database.
L'utente può selezionare le scelte e fin qua tutto bene, vengono visulaizzate in un'altra pagina correttamente, ma la prima voce dei menu dice "tutte" per poter avere la lista completa senza selezionare nulla.
Il valore che dò al campo è %, ma il risultato è che non mi dà nulla, come mai?
GRATZIE!!!
C'ho capito poco.
Facci vedere le due pagine, della form di ricerca e di risultati.
Come te le posto?
pagina di ricerca
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cerca_STRING
Recordset1.Source = "SELECT * FROM PROVINCE ORDER BY provincia ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>Nebida</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
background-image: url(images/sfondo_tipologie.jpg);
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<link href="nebida.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Stile1 {color: #1F3C1F}
.Stile4 {color: #1573A1}
.Stile8 {color: #FFFFFF; font-weight: bold; }
-->
</style>
</head>
<body bgcolor="#ffffff">
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#1573A1">
<tr>
<td valign="top" bgcolor="#93DCFF" class="normal Stile4"><span class="grassetto"> </span>
<form name="form1" method="post" action="ricerca_ok.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td></td>
<td>
<select name="tipo" id="select2">
<option value="%">scegli</option>
<option value="ostello">ostello</option>
<option value="b&B">B&B</option>
<option value="albergo">albergo</option>
</select></td>
</tr>
<tr>
<td></td>
<td><select name="camera" id="select4">
<option value="%">scegli camera</option>
<option value="uno">uno</option>
<option value="doppia">doppia</option>
<option value="tripla">tripla</option>
<option value="Quadripla">Quadripla</option>
</select></td>
</tr>
<tr>
<td></td>
<td><select name="provincia" id="select5">
<option value="%">scegli</option>
<option value="OR">OR</option>
<option value="CA">CA</option>
<option value="SS">SS</option>
<option value="NU">NU</option>
</select></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="Submit" value="Invia"></td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
pagina dei risultati
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.Form("tipo") <> "") Then
Recordset2__MMColParam = Request.Form("tipo")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_cerca_STRING
Recordset2.Source = "SELECT * FROM Tabella WHERE tipo = '" + Replace(Recordset2__MMColParam, "'", "''") + "'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Nebida</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
background-image: url(images/sfondo_tipologie.jpg);
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<link href="nebida.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Stile1 {color: #1F3C1F}
.Stile4 {color: #1573A1}
.Stile8 {color: #FFFFFF; font-weight: bold; }
.Stile9 {color: #0000FF}
.Stile10 {color: #000099}
-->
</style>
</head>
<body bgcolor="#ffffff">
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#1573A1">
<tr>
<td valign="top" bgcolor="#93DCFF" class="normal Stile4"><span class="grassetto"> </span>
<form name="form1" method="post" action="ricerca_ok">
<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#000066">
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF))
%>
<tr>
<td width="43%"><span class="Stile9"><%=(Recordset2.Fields.Item("tipo"). Value)%> </span></td>
<td width="57%"><span class="Stile10"><%=(Recordset2.Fields.Item("provin cia").Value)%></span></td>
</tr>
<tr>
<td><span class="Stile9"><%=(Recordset2.Fields.Item("camera" ).Value)%></span></td>
<td></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset2.MoveNext()
Wend
%>
</table>
</form></td>
</tr>
<tr>
<td valign="top" bgcolor="#D7F2FF" class="normal"></td>
</tr>
</table>
</body>
</html>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
scusa la pagina dei risultati è questa e non l'altra
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Nebida</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
background-image: url(images/sfondo_tipologie.jpg);
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<link href="nebida.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Stile1 {color: #1F3C1F}
.Stile4 {color: #1573A1}
.Stile8 {color: #FFFFFF; font-weight: bold; }
-->
</style>
</head>
<body bgcolor="#ffffff">
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#1573A1">
<tr>
<td valign="top" bgcolor="#93DCFF" class="normal Stile4"><span class="grassetto"> </span>
<form action="ricerca_ok2.asp" method="post" name="form1">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td></td>
<td>
<select name="tipo" size="1" id="select2">
<option value="%">tutte</option>
<option value="ostello">ostello</option>
<option value="B&B">B&B</option>
<option value="albergo">albergo</option>
</select></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="Submit" value="Invia"></td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
o meglio questa... SCUSA sto ancora dormendo
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset2__tip
Recordset2__tip = "%"
If (Request.Form("tipo") <> "") Then
Recordset2__tip = Request.Form("tipo")
End If
%>
<%
Dim Recordset2__cam
Recordset2__cam = "%"
If (Request.Form("camera") <> "") Then
Recordset2__cam = Request.Form("camera")
End If
%>
<%
Dim Recordset2__prov
Recordset2__prov = "%"
If (Request.Form("provincia") <> "") Then
Recordset2__prov = Request.Form("provincia")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_cerca_STRING
Recordset2.Source = "SELECT * FROM Tabella WHERE tipo = '" + Replace(Recordset2__tip, "'", "''") + "' AND camera = '" + Replace(Recordset2__cam, "'", "''") + "' AND provincia = '" + Replace(Recordset2__prov, "'", "''") + "' "
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Nebida</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
background-image: url(images/sfondo_tipologie.jpg);
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<link href="nebida.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Stile1 {color: #1F3C1F}
.Stile4 {color: #1573A1}
.Stile8 {color: #FFFFFF; font-weight: bold; }
.Stile9 {color: #0000FF}
.Stile10 {color: #000099}
-->
</style>
</head>
<body bgcolor="#ffffff">
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#1573A1">
<tr>
<td valign="top" bgcolor="#93DCFF" class="normal Stile4"><span class="grassetto"> </span>
<form name="form1" method="post" action="ricerca_ok">
<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#000066">
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF))
%>
<tr>
<td width="43%"><span class="Stile9"><%=(Recordset2.Fields.Item("tipo"). Value)%> </span></td>
<td width="57%"><span class="Stile10"><%=(Recordset2.Fields.Item("provin cia").Value)%></span></td>
</tr>
<tr>
<td><span class="Stile9"><%=(Recordset2.Fields.Item("camera" ).Value)%></span></td>
<td></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset2.MoveNext()
Wend
%>
</table>
</form></td>
</tr>
<tr>
<% If Recordset2.EOF And Recordset2.BOF Then %>
<td valign="top" bgcolor="#D7F2FF" class="normal">nessun risultato <strong class="grassetto">[/b]</td>
<% End If ' end Recordset2.EOF And Recordset2.BOF %>
</tr>
</table> <% Response.Write (tipo)%>
cc
</body>
</html>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
Se fai una query con tipo='%'
ti restituisce solo i record che hanno tipo uguale a %
Il segno % si usa con le LIKE
Comunque basta che nella seconda pagina metti
codice:if Recordset2__tip="%" then Recordset2.Source = "SELECT * FROM Tabella" else Recordset2.Source = "SELECT * FROM Tabella WHERE tipo = '" + Replace(Recordset2__tip, "'", "''") + "'" end if
mi da errore
come valore nelle select dove hai la voce tutte lasci "":
(senza % che tanto non serve)
<option value="">tutte</option>
e poi:
<%
Dim Recordset2__tip,Recordset2__cam ,Recordset2__prov,sql,sqlCerca,Recordset2,Recordse t2_numRows
sql=""
sqlCerca=""
If (Request.Form("tipo") <> "") Then
Recordset2__tip = Replace(Request.Form("tipo"), "'", "''")
sqlCerca=" tipo='"&Recordset2__tip&"'"
End If
If (Request.Form("camera") <> "") Then
Recordset2__cam = Replace(Request.Form("camera"), "'", "''")
if sqlCerca<>"" then sqlCerca=sqlCerca&" AND " end if
sqlCerca=sqlCerca&" camera='"&Recordset2__cam&"'"
End If
If (Request.Form("provincia") <> "") Then
Recordset2__prov = Replace(Request.Form("provincia"), "'", "''")
if sqlCerca<>"" then sqlCerca=sqlCerca&" AND " end if
sqlCerca=sqlCerca&" provincia='"&Recordset2__prov&"'"
End If
sql="SELECT * FROM Tabella"
if sqlCerca<>"" then
sql=sql&" WHERE "&sqlCerca
end if
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_cerca_STRING
Recordset2.Source = sql
Permessi di invio
Rispondi quotando