stampare solo campi desiserati

[jhonny]

allora innanzitutto mi scuso per l'ignoranza ma sto cominciando adesso cn asp...
ho letto un pò le guide e smanettato cn qualke esempio di ricerca in un database..

ho creato due paginetta la prima provetta.asp dove ho
-----------------------------------------------------
<form name="form1" method="get" action="index.asp">
<font face="arial, verdana" color="#003333" size="2">Seleziona Marca:</font>
<select name="titolo" type="text" id="titolo" align=center>
<option value="83">Alfa Romeo</option>
<option value="161">Audi</option>
<option value="85">BMW</option>
<option value="87">Chrysler</option>
<option value="91">Citroen</option>
<option value="577">Daewoo</option>
<option value="13">Ferrari</option>
<option value="8">Fiat</option>
<option value="39">Ford</option>
<option value="147">Honda</option>
<option value="122">Hyndai</option>
<option value="110">Jaguar</option>
<option value="144">Jeep</option>
<option value="746">KIA</option>
<option value="34">Lancia</option>
<option value="140">Land Rover</option>
<option value="145">Mazda</option>
<option value="33">Mercedes Benz</option>
<option value="2222">Mini</option>
<option value="148">Mitsubishi</option>
<option value="149">Nissan</option>
<option value="20">Opel</option>
<option value="151">Peugeout</option>
<option value="27">Porsche</option>
<option value="62">Renault</option>
<option value="154">Rover</option>
<option value="153">Saab</option>
<option value="2259">Smart</option>
<option value="103">Toyota</option>
<option value="101">Volkswagen</option>
<option value="98">Volvo</option></SELECT>
</select>
<font face="arial, verdana" color="#003333" size="2">Seleziona Km. Percorsi</font>
<select name="titolo1" type="text" id="titolo1">
<option value="50000">Meno di 50.000KM.</option>
<option value="100000">Meno di 100.000KM.</option>
<option value="150000">Meno di 150.000KM.</option>
<option value="200000">Meno di 200.000KM.</option>
<option value="300000">Meno di 300.000KM.</option>
</select>

<font face="arial, verdana" color="#003333" size="2">Periodo Immatricolazione</font>
<select name="titolo2" type="text" id="titolo2">
<option value="1990">dal 1990 ad oggi</option>
<option value="1995">dal 1995 ad oggi</option>
<option value="2000">dal 2000 ad oggi</option>
<option value="2005">dal 2005 ad oggi</option>
</select>
<input type="submit" name="Submit" value="Cerca"></form>
----------------------------------------------------------
a la seconda index.asp(nn badate al nome del file) dove
----------------------------------------------------------
<%
'Stringa per la connessione
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\database\usato.mdb")
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.Open cString
Set rs = Server.CreateObject("ADODB.Recordset")
nometabella="usato"

titolo = trim(request.queryString("titolo"))
titolo1 = trim(request.queryString("titolo1"))
titolo2 = trim(request.queryString("titolo2"))

sql = "select * from "&nometabella&" where lCODMAR = "&titolo&" AND lKMPERCI <= "&titolo1&""


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
%>
---------------------------------------------------------------------

funziona perfettamente ma nn so dove mettere le mani per restituirmi solo alcuni campi del database...insomma quelli ke voglio e nn tutta la tabella...
ripeto scusate la tremenda ignoranza....

[diegoctn]

Campi o record?

Nel primo caso decidi tu se mettere queto o quel campo.
Nel secondo caso devi agire sulla sql.

[jhonny]

i campi..e ovviamente tutti i record di quel campo...
ma nn so dove dirigli..stampa questo campo nell'esempio me li stampa tutti

[jhonny]

il db è composto da

marca
modello
km percorsi

io vorrei ke mi restiutisse solo il campo modello per es.
ma me mancano proprio le basi..

[8matt5]

<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>

Al posto di questo pezzo di script devi mettere qualcosa del tipo:

<%
Do While Not rs.EOF
%>
<table>
  <tr>
    <td>Marca</td>
    <td>Modello</td>
    <td>Km Percorsi</td>
  </tr>

  <tr>
   <td><%= rs("marca") %></td>
   <td><%= rs("modello") %></td>
   <td><%= rs("kmPercorsi") %></td>
  </tr>
</table>
<%
rs.moveNext
Loop
%>

[jhonny]

pian pianino c'ero arrivato..

come dicevi te..

[diegoctn]

Originariamente inviato da jhonny
-----------------------------------------------------
a la seconda index.asp(nn badate al nome del file) dove
----------------------------------------------------------
.................................................
sql = "select * from "&nometabella&" where lCODMAR = "&titolo&" AND lKMPERCI <= "&titolo1&""
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
..........................

In rosso è dove gli dici di scriverti i campi. Cambiali, eliminali, fai quello che vuoi.....

[jhonny]

grazie per l'aiuto rigà
ma ho rifatto tutto partendo da na cosa semplice semplice...

<%
Set objConn = Server.CreateObject("ADODB.Connection")
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\database\usato.mdb")
objConn.Open cString
Set objRs = Server.CreateObject("ADODB.Recordset")

titolo = trim(request. ("titolo"))
titolo1 = trim(request.form("titolo1"))


set objRs = objConn.Execute("SELECT * from usato where lCODMAR = "&titolo&" and lKMPERCI <= "&titolo1&"")
Do while NOT objRs.EOF
response.write "nome = " & objRs("dbPREVENE") & "
"
response.write "email = " & objRs("SMMA") & "
"
response.write "commenti = " & objRs("lKMPERCI") & "
"
response.write "<hr size='1' color='midnightbluè width='40%' align='left'>"
objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
ma nn mi va la ricerca...
nn riesce a cercarmi quello ke inserisco nel campo di ricerca della pagina provetta.asp

forse l'errore è qui :
titolo = trim(request. ("titolo"))
titolo1 = trim(request.form("titolo1"))

[8matt5]

Originariamente inviato da jhonny
forse l'errore è qui :
titolo = trim(request. ("titolo"))
titolo1 = trim(request.form("titolo1"))

request. ("titolo") è sbagliato:

request("titolo")
request.form("titolo")
request.QueryString("titolo")

queste sono le tre possibilità che hai...

[jhonny]

grazie era la busta n°3
vado avanti...