sto facendo delle prove per una ricarca in un database...
la pagina di ricerca è questa....
se aggiungo nella query "and Sdisven="S"" mi va in errore :
--------------------------------------------------------
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/index.asp, line 26, column 106
sql = "select * from "&nometabella&" where lCODMAR = "&titolo&" AND lKMPERCI <= "&titolo1&" and sDISVEN ="S""
----------------------------------------------------------------------------
<%
'Stringa per la connessione
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\database\usato.mdb")
'creazione connessione
Set objConn=Server.CreateObject("ADODB.Connection")
'apertura connessione
objConn.Open cString
'creazione recordset
Set rs = Server.CreateObject("ADODB.Recordset")
nometabella="usato" ' inserisci qui il nome della tabella da vedere
titolo = trim(request.queryString("titolo"))
titolo1 = trim(request.queryString("titolo1"))
titolo2 = trim(request.queryString("titolo2"))
'query sql
sql = "select * from "&nometabella&" where lCODMAR = "&titolo&" AND lKMPERCI <= "&titolo1&" and sDISVEN ="S""
'apertura recordset
rs.Open sql, objConn, 3, 3
if rs.eof then 'se il recordset è vuoto.....
%>
<center><table border="0" width="80%">
<tr>
<td align="center">Niente dati</td>
</tr>
</table>
</center>
<%
else 'se invece il recordset contiene dei dati.....
%>
<center><table border="0" width="80%">
<tr>
<td align="center">Questa è la tabella <%=nometabella%></td>
</tr>
</table>
<table border="1" cellspacing='0' cellpadding='2' width="80%">
<tr>
<%
For Each campo in rs.Fields ' per ogni campo presente nel database ...%>
<td align='center'>
<%=campo.name%>
</td>
<%
Next
%>
</tr>
<%
do until rs.eof ' per tutti i records ...
For Each campo in rs.Fields '... scrivo di ogni campo ...
%>
<td>
<%=campo.value%>
</td>
<%
next
%>
</tr>
<%
rs.movenext
loop
%>
</table>
</center>
<%
end if
'chiusura e distruzione recordset
rs.close
set rs=nothing
'chiusura e distruzione connessione
objConn.close
set objconn=nothing
%>
</body>
</html>
Rispondi quotando
