ciao a tutti.
premetto che:
il mio db access è formato dai seguenti campi:
ID | titolo | title | contenuto | body | data
-----------------------------------------
Quello che vorrei fare è una semplicissima ricerca utilizzando la clausola LIKE in una pagina che presenta una serie di records dati i campi sopra elencati.
Non riesco ad estrarre, dove posso aver sbagliato???
questo è il codice:
(<- conn db)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta name="generator" content="HTML Tidy for Windows (vers 1st April 2002), see www.w3.org">
<title></title>
<meta content="text/html" charset="iso-8859-1" http-equiv="Content-Type">
<link href="style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
session.lcid=1040
dim x
dim filtro
dim page
dim action
dim stringa
dim txtfiltro
dim RecordsPerPage
dim rec_post, SQL_post, cod
cod=Request.Querystring("cod")
%>
<table border="0" cellpadding="4" cellspacing="1" width="70%" bgcolor="#D3D3DD" align="center" summary="0">
<tr >
<td colspan="2" valign="top" width="100%" bgcolor="#ffffff">
<div align="center"></div>
</td>
</tr>
</table>
<table border="0" cellpadding="4" cellspacing="1" width="70%" bgcolor="#D3D3DD" align="center" summary="0">
<tr>
<td align="left" height="50"><font face="verdana" size="2" color="#010080">TABELLA COMUNICAZIONI - NEWS[/b]</font></td>
</tr>
<form method="POST" name="cerca" action="gest_post.asp?action=cerca">
<tr>
<td align="center"><font size="2" color="red">Ricerca per parola chiave: </font>
<input type="text" name="ricerca" size="20" >
<input type="Submit" value="Cerca" >
</td>
</tr></form>
<%
RecordsPerPage = 10
filtro = request.querystring("filtro")
page = request.querystring("page")
action = request.querystring("action")
stringa = request.form("ricerca")
id = request.querystring("id")
if stringa = "" then stringa =request.querystring("ricerca") end if
if action = "cerca" then
SQL_post = "SELECT * FROM tblPost WHERE titolo LIKE '"&stringa&"'"
filtro="cerca"
response.write(SQL_post)
if filtro ="cerca" then
SQL_post = "SELECT * FROM tblPost WHERE [titolo] LIKE '%"&stringa&"%'"
end if
end if
%>
</table>
<table border="0" cellpadding="4" cellspacing="1" width="70%" bgcolor="#D3D3DD" align="center" summary="0">
<tr>
<td align="center" bgcolor="#F4F4F4" height="29">[img]img/cancella.gif[/img]</td>
<td align="center" bgcolor="#F4F4F4" height="29">[img]img/modifica.gif[/img]</td>
<td bgcolor="#F4F4F4" height="29">
<p align="center"><font size="2" face="Verdana">Titolo</font></p>
</td>
<td bgcolor="#F4F4F4" height="29">
<p align="center"><font size="2" face="Verdana">Contenuto</font></p>
</td>
<td bgcolor="#F4F4F4" height="29">
<p align="center"><font size="2" face="Verdana">Data</font></p>
</td>
</tr>
<%
SQL_post="SELECT * FROM tblPost ORDER BY id DESC"
Set rec_post = Server.CreateObject("ADODB.Recordset")
Set rec_post = jConn.Execute(SQL_post)
response.write(stringa)
For x = 1 To RecordsPerPage
While Not rec_post.EOF
%>
<tr>
<td align="center" bgcolor="#F4F4F4" height="30">" onclick="javascript:return(confirm('Sei sicuro di voler cancellare il record selezionato?'))">[img]img/cancella.gif[/img]</td>
<td align="center" bgcolor="#F4F4F4" height="30">">[img]img/modifica.gif[/img]</td>
<td bgcolor="#F4F4F4" height="30"><font size="2" face="Verdana"><%=rec_post("titolo")%></font></td>
<td bgcolor="#F4F4F4" height="30"><font size="2" face="Verdana"><%=Left(rec_post("contenuto"), 25)&"..."%></font></td>
<td align="center" bgcolor="#F4F4F4" height="30"><font size="2" face="Verdana"><%=visdata(rec_post("data"))%></font></td>
</tr>
<%
rec_post.MoveNext
Wend
Next
rec_post.close
set rec_post = Nothing
%>
</table>
<table border="0" cellpadding="4" cellspacing="1" width="70%" bgcolor="#D3D3DD" align="center" summary="0">
<tr>
<td align="left" bgcolor="#F4F4F4" colspan="4" ><font size="2" face="Verdana">Aggiungi Post</font></td>
</tr>
</table>
</body>
</html>
Rispondi quotando