105 messaggi dal 25 dicembre 2004
salve ho creato un motore di ricerca perfettamente funzionante, ma è molto semplice, però a me serve nella ricerca invece di usare solo il form input dove si scrive la parola da ricercare, tramite un form, tipo data , o meglio facci un esempio di form che devo mettere e poi vi scrivo lo script invece del motore di ricerca.

io avrei un form di questo tipo
<form>
<select name=" città">
<option>Parigi </option>
<option> Italia </option>
</select>
Da:
<select name="giorno">
<option>1 </option>
<option>2 </option>
</select>
<select name="mese">
<option>marzo</option>
<option>gennaio</option>
</select>
AL:
<select name="mese">
<option>marzo</option>
<option>gennaio</option>
</select>
<select name="giorno">
<option>1 </option>
<option>2 </option>
</select>
<select name="mese">
<option>marzo</option>
<option>gennaio</option>
</select>
<select name="mese">
<option>marzo</option>
<option>gennaio</option>
</select>


praticamente il motore di ricerca dovrebbe ricercare o per città oppure per data e non solo magari tutte le notizie comprese tra due date, come nel form. IL motore di ricerca che ho fatto è questo , mi potete aiutare a modificarlo? grazie :)
<!--#include virtual="public/ADOVBS.INC" -->
<%
'estrazione della chiave di ricerca
searchFor = TRIM(Request("searchFor"))
url_DB = "driver={Microsoft Access driver (*.mdb)};dbq=" & server.MapPath("/mdb-database/motore.mdb")
Set Con  = Server.CreateObject("ADODB.Connection")
con.Open url_DB
%>
]<form>
<select name=" città">
<option>Parigi </option>
<option> Italia </option>
</select>
Da:
<select name="giorno">
<option>1 </option>
<option>2 </option>
</select>
<select name="mese">
<option>marzo</option>
<option>gennaio</option>
</select>
AL:
<select name="mese">
<option>marzo</option>
<option>gennaio</option>
</select>
<select name="giorno">
<option>1 </option>
<option>2 </option>
</select>
<select name="mese">
<option>marzo</option>
<option>gennaio</option>
</select>
<select name="mese">
<option>marzo</option>
<option>gennaio</option>
</select>
sqlString = "SELECT cerca_id, città, mese, anno. giorno, contenuto  " &_
"FROM cerca " &_
"where ( LIKE città '%" & searchFor & "%' " &_
"OR mese, giorno, anno  LIKE '%" & searchFor & "%' )" &_
"ORDER BY anno"

SET RS = Con.Execute(sqlString)
IF NOT RS.EOF AND searchFor <> "" THEN
 %>

<table width="449" border="0" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td width="441"><div align="left">Risultati della ricerca </div></td>
  </tr>
  <%
  WHILE NOT RS.EOF
  %>
  <tr>
    <td class="ciccio"><% IF RS("città") <> "?????" THEN %>
  <%=RS("città")%><% END IF %></td>
  </tr>
  <tr>
    <td class="ciccio"><%=RS("mese")%><%=RS("anno")%><%=RS("giorno")%></td>
  </tr>
  <tr>
    <td><%=RS("contenuto")%></td>
  </tr>
   <% RS.MOVENext
   WEND
   %>
</table>
<%
ELSE
%>
<table width="449" border="0" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td>Nessun risultato prodotto.</td>
  </tr>
</table>
<%
END IF
%>

Grazie per le risposte
Modificato da werwolfe il 11 novembre 2005 22.43 -
105 messaggi dal 25 dicembre 2004
Ho modificato lo script in questo modo, non mi da nessun errore ma non ricerca nulla perchè?
<!--#include virtual="public/ADOVBS.INC" -->
<%
'estrazione della chiave di ricerca
searchFor = TRIM(Request("searchFor"))
url_DB = "driver={Microsoft Access driver (*.mdb)};dbq=" & server.MapPath("/mdb-database/motore.mdb")
Set Con  = Server.CreateObject("ADODB.Connection")
con.Open url_DB
%><form method="post" action="public/validate.asp"><input name="username" type="text"><br>
      <input name="password" type="text">
      
      <br><input type="submit" name="submit" value="Entra">
  </form></td>
    <td valign="top"><form action="motore.asp" method="post">Gilda o Mestiere:<select name="searchFor">
      <option>canada</option>
      <option>Italia</option>
      <option>Messico</option>
    </select><br><br><center>Dal:<select name="searchFor">
      <option>01</option>
      <option>02</option>
      <option>03</option>
      <option>04</option>
      <option>05</option>
      <option>06</option>
      <option>07</option>
      <option>08</option>
      <option>09</option>
      <option>10</option>
      <option>11</option>
      <option>12</option>
      <option>13</option>
      <option>14</option>
      <option>15</option>
      <option>16</option>
      <option>17</option>
      <option>18</option>
      <option>19</option>
      <option>20</option>
      <option>21</option>
      <option>22</option>
      <option>23</option>
      <option>24</option>
      <option>25</option>
      <option>26</option>
      <option>27</option>
      <option>28</option>
      <option>29</option>
      <option>30</option>
      <option>31</option>
    </select><select name="searchFor">
      <option>Gennaio</option>
      <option>Febbraio</option>
      <option>Marzo</option>
      <option>Aprile</option>
      <option>Maggio</option>
      <option>Giugno</option>
      <option>Luglio</option>
      <option>Agosto</option>
      <option>Settembre</option>
      <option>Ottobre</option>
      <option>Novembre</option>
    </select><select name="searchFor">
      <option>1990</option>
      <option>1991</option>
      <option>1992</option>
      <option>1993</option>
      <option>1994</option>
      <option>1995</option>
      <option>1996</option>
      <option>1997</option>
      <option>1998</option>
      <option>1999</option>
      <option>2000</option>
      <option>2001</option>
      <option>2002</option>
      <option>2003</option>
      <option>2004</option>
      <option>2005</option>
      <option>2006</option>
      <option>2007</option>
      <option>2008</option>
      <option>2009</option>
      <option>2010</option>
      <option>2011</option>
      <option>2012</option>
      <option>2013</option>
      <option>2014</option>
      <option>2015</option>
      <option>2016</option>
      <option>2017</option>
      <option>2018</option>
      <option>2019</option>
      <option>2020</option>
    </select></center><br><br>
    <center>Al:
  <select name="searchFor"> <option>01</option>
      <option>02</option>
      <option>03</option>
      <option>04</option>
      <option>05</option>
      <option>06</option>
      <option>07</option>
      <option>08</option>
      <option>09</option>
      <option>10</option>
      <option>11</option>
      <option>12</option>
      <option>13</option>
      <option>14</option>
      <option>15</option>
      <option>16</option>
      <option>17</option>
      <option>18</option>
      <option>19</option>
      <option>20</option>
      <option>21</option>
      <option>22</option>
      <option>23</option>
      <option>24</option>
      <option>25</option>
      <option>26</option>
      <option>27</option>
      <option>28</option>
      <option>29</option>
      <option>30</option>
      <option>31</option></select><select name="searchFor">
      <option>Gennaio</option>
      <option>Febbraio</option>
      <option>Marzo</option>
      <option>Aprile</option>
      <option>Maggio</option>
      <option>Giugno</option>
      <option>Luglio</option>
      <option>Agosto</option>
      <option>Settembre</option>
      <option>Ottobre</option>
      <option>Novembre</option>
    </select><select name="anno">
      <option>1990</option>
      <option>1991</option>
      <option>1992</option>
      <option>1993</option>
      <option>1994</option>
      <option>1995</option>
      <option>1996</option>
      <option>1997</option>
      <option>1998</option>
      <option>1999</option>
      <option>2000</option>
      <option>2001</option>
      <option>2002</option>
      <option>2003</option>
      <option>2004</option>
      <option>2005</option>
      <option>2006</option>
      <option>2007</option>
      <option>2008</option>
      <option>2009</option>
      <option>2010</option>
      <option>2011</option>
      <option>2012</option>
      <option>2013</option>
      <option>2014</option>
      <option>2015</option>
      <option>2016</option>
      <option>2017</option>
      <option>2018</option>
      <option>2019</option>
      <option>2020</option>
    </select><br><br><input type="submit" name="Cerca" value="Cerca"></center></form><% 
sqlString = "SELECT cerca_id, gilda, mese, anno, giorno, contenuto  " &_
"FROM motore " &_
"where ( gilda LIKE  '%" & searchFor & "%' " &_
"OR anno  LIKE '%" & searchFor & "%' " &_
"OR mese  LIKE '%" & searchFor & "%' " &_
"OR giorno  LIKE '%" & searchFor & "%' " &_
"OR contenuto  LIKE '%" & searchFor & "%' )" &_
"ORDER BY gilda"

SET RS = Con.Execute(sqlString)
IF NOT RS.EOF AND searchFor <> "" THEN
 %>
  </td>
  </tr>
</table>
<table width="53%"  border="0" align="right" cellpadding="0" cellspacing="0">
  <tr>
    <td>Risultato della ricerca</td>
  </tr>
   <%
  WHILE NOT RS.EOF
  %>
  <tr>
    <td><% IF RS("gilda") <> "?????" THEN %>
  <%=RS("gilda")%><% END IF %></td>
  </tr>
  <tr>
    <td><%=RS("mese")%><%=RS("giorno")%><%=RS("anno")%></td>
  </tr>
  <tr>
    <td><%=RS("contenuto")%></td>
   <% RS.MOVENext
   WEND
   %>
  </tr>
</table>
<%
ELSE
%>
<table width="338" border="0" align="right" cellpadding="4" cellspacing="0">
  <tr>
    <td width="330">Nessun risultato prodotto.</td>
  </tr>
</table>
<%
END IF
%>

Potete aiutarmi per favore?
Modificato da werwolfe il 12 novembre 2005 13.20 -
105 messaggi dal 25 dicembre 2004
Ho provato a cancellare la ricerca alternativa e mettere solo la ricerca per città ma non funziona lo stesso perchè?

<!--#include virtual="public/ADOVBS.INC" -->
<%
'estrazione della chiave di ricerca
searchFor = TRIM(Request("searchFor"))
url_DB = "driver={Microsoft Access driver (*.mdb)};dbq=" & server.MapPath("/mdb-database/motore.mdb")
Set Con  = Server.CreateObject("ADODB.Connection")
con.Open url_DB
%>
<html>
<head>
<title>Boom</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
  background-color: #FFCC99;
}
-->
</style></head>

<body>
 <table width="100%"  border="0" cellspacing="3" cellpadding="3">
  <tr>
    <td colspan="2">Area Riservata </td>
    <td width="53%"><div align="center">Ricerca</div></td>
  </tr>
  <tr>
    <td width="9%" valign="top">Username: 
    <br>Password </td>
    <td width="38%" valign="top"><form method="post" action="public/validate.asp"><input name="username" type="text"><br>
      <input name="password" type="text">
      
      <br><input type="submit" name="submit" value="Entra">
  </form></td>
    <td valign="top"><form action="motore.asp" method="post">Gilda o Mestiere:<select name="searchFor">
      <option name="searchfor">Nobili di Lot</option>
      <option>Milano</option>
      <option>venezia</option>
      <option>Napoli</option>
      <option>Genova</option>
      <option>Palermo</option>
                 </select> 
     <br><br><input type="submit"  value="Cerca"></center></form>
<% 
sqlString = "SELECT cerca_id, gilda, mese, anno, giorno, contenuto  " &_
"FROM motore " &_
"where ( gilda LIKE  '%" & searchFor & "%' " &_
"OR contenuto  LIKE '%" & searchFor & "%' )" &_
"ORDER BY gilda"
 SET RS = Con.Execute(sqlString)
IF NOT RS.EOF AND searchFor <> "" THEN
 
 %>
  </td>
  </tr>
</table>
<table width="53%"  border="0" align="right" cellpadding="0" cellspacing="0">
  <tr>
    <td>Risultato della ricerca</td>
  </tr>
   <%
  WHILE NOT RS.EOF
  %>
  <tr>
    <td><% IF RS("gilda") <> "?????" THEN %>
  <%=RS("gilda")%><% END IF %></td>
  </tr>
  <tr>
    <td> <%=RS("mese")%>  <%=RS("giorno")%> <%=RS("anno")%> </td>
  </tr>
  <tr>
    <td><%=RS("contenuto")%></td>
  
  </tr> <% RS.MOVENext
   WEND
   %>
</table>
<%
ELSE
%>
<table width="338" border="0" align="right" cellpadding="4" cellspacing="0">
  <tr>
    <td width="330">Nessun risultato prodotto.</td>
  </tr>
</table>
<%
END IF
%>
</body>
</html>


Provando a mettere response
mi da questo
SELECT cerca_id, gilda, mese, anno, giorno, contenuto FROM motore where ( gilda LIKE '%napoli%' OR contenuto LIKE '%Napoli%' )ORDER BY gilda 
105 messaggi dal 25 dicembre 2004
Allora, ho praticamente rifatto lo script, senza il form select è funziona, in questo modo:

<!--#include file="public/ADOVBS.INC" -->
<%
'estrazione della chiave di ricerca
searchFor = TRIM(Request("searchFor"))
url_DB = "driver={Microsoft Access driver (*.mdb)};dbq=" & server.MapPath("/mdb-database/ricerca.mdb")
Set Con  = Server.CreateObject("ADODB.Connection")
con.Open url_DB
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form action="prova2.asp" method="post">
<input name="searchFor" type="text" size="20">
<input type="submit" name="submit" value="Cerca">
</form>
<% 
sqlString = "SELECT cerca, gilda, testo, data " &_
"FROM cerca " &_
"where ( gilda LIKE '%" & searchFor & "%' " &_
"OR testo LIKE '%" & searchFor & "%' )" &_
"ORDER BY gilda"

SET RS = Con.Execute(sqlString)
IF NOT RS.EOF AND searchFor <> "" THEN
 %>
 <table width="449" border="0" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td width="441"><div align="center">Risultati della ricerca </div></td>
  </tr>
  <%
  WHILE NOT RS.EOF
  %>
  <tr>
    <td class="ciccio"><% IF RS("gilda") <> "?????" THEN %>
  <%=RS("gilda")%><% END IF %></td>
  </tr>
  <tr>
    <td class="ciccio"><%=RS("testo")%></td>
  </tr>
  <tr>
    <td> <%=RS("data")%> </td>
  </tr>
   <% RS.MOVENext
   WEND
   %>
</table>
<%
ELSE
%>
<table width="449" border="0" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td>Nessun risultato prodotto.</td>
  </tr>
</table>

   
<%
END IF
%>

 
</body>
 </html>
funziona perfettamente, così ho pensato visto che mi serve un form con select , di sostituire il form input con select e non funge perchè?
lo script è questo:
<!--#include file="public/ADOVBS.INC" -->
<%
'estrazione della chiave di ricerca
searchFor = TRIM(Request("searchFor"))
url_DB = "driver={Microsoft Access driver (*.mdb)};dbq=" & server.MapPath("/mdb-database/ricerca.mdb")
Set Con  = Server.CreateObject("ADODB.Connection")
con.Open url_DB
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form action="prova3.asp" method="post">
<select name="searchFor">
<option value="searchFor">Napoli</option>
<option value="searchFor">Milano</option>
</select>
<input type="submit" name="submit" value="Cerca">
</form>
<% 
sqlString = "SELECT cerca, gilda, testo, data " &_
"FROM cerca " &_
"where ( gilda LIKE '%" & searchFor & "%' " &_
"OR testo LIKE '%" & searchFor & "%' )" &_
"ORDER BY gilda"

SET RS = Con.Execute(sqlString)
IF NOT RS.EOF AND searchFor <> "" THEN
 %>
 <table width="449" border="0" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td width="441"><div align="center">Risultati della ricerca </div></td>
  </tr>
  <%
  WHILE NOT RS.EOF
  %>
  <tr>
    <td class="ciccio"><% IF RS("gilda") <> "?????" THEN %>
  <%=RS("gilda")%><% END IF %></td>
  </tr>
  <tr>
    <td class="ciccio"><%=RS("testo")%></td>
  </tr>
  <tr>
    <td> <%=RS("data")%> </td>
  </tr>
   <% RS.MOVENext
   WEND
   %>
</table>
<%
ELSE
%>
<table width="449" border="0" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td>Nessun risultato prodotto.</td>
  </tr>
</table>

   
<%
END IF
%>

 
</body>
 </html>
Dov'è il problema?

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.