Newsgroup: it.comp.www.asp
Titolo: database

Salve,
la seguente pagina permette tramite ricerca per autore o titolo
l'interrogazione ad un database Access.
<HTML>
<HEAD>
<TITLE>Rock Blues Lyrics</TITLE>
</HEAD>
<body bgcolor="#FFFFFF" background="../../pix/ombreverdi.gif">
<table width="95%" border="0" cellpadding="10" cellspacing="10"
align="center">
<tr>
<td>
<center>Ricerca testi nel database "Rock Blues Lyrics"
<form method="post" action="motore.asp">
<hr>
<br>
Titolo del brano            : <input name="titolo" style="HEIGHT: 22px;
WIDTH: 250px"><br><br>
Autore o Interprete : <select name="autore">
<option selected>
<option>Albert King
<option>Beatles
<option>Ben E. King
<option>Big Bill Broonzy
<option>Black Crowes
<option>Blues Brothers
<option>Bob Dylan
<option>Willie Dixon</option>
</select>
<br>
</PRE>
<input type="submit" name="submit" value="Cerca il testo" style="HEIGHT:
30px; WIDTH: 200px">&nbsp;
<input type="reset" name="submit2" value="Reset dei campi" style="HEIGHT:
30px; WIDTH: 200px">
</form>
</center>
</tr>
</BODY>
Mentre la seguente è il motore che cerca nel database:
<HTML>
<HEAD>
<TITLE>Rock Blues Lyrics</TITLE>
</HEAD>
<body bgcolor="#FFFFFF" background="../../pix/ombreverdi.gif">
<font face="Verdana" size="2" color="#006666">
<table width="95%" border="0" cellpadding="10" cellspacing="10"
align="center">
<tr>
<td>
<% rem legge dal form
titolo=request.form("titolo")
autore=request.form("autore")
if titolo="" then titolo="%"
if autore="" then autore="%"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("lyrics.mdb") & ";Driver={Microsoft Access
Driver (*.mdb)};"
sql = "SELECT * FROM lyrics WHERE titolo like '%" & titolo & "%' AND autore
like '%" & autore & "%';"
Set RS = Conn.Execute(sql)
response.write ("<b>Risultato della ricerca per "&autore&"</b><br><br>")%>
<%i=0%>
<%Do while NOT RS.EOF
i=i+1%>
<TABLE>
<TR>
<TD><%=i%></TD>
<td><% id=rs("id")
titolo=rs("titolo")%>
<a href="testo1.asp?ID=<%=id%>"><%=titolo%></a><br>
</td>
</TR>
<%
RS.MoveNext
loop
RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>
</table>
<INPUT TYPE="button" VALUE="Ritorna..." onClick="history.back()">
</BODY>
</HTML>
Viene restituita una pagina bianca col solo tasto per tornare indietro, non
restituisce alcun risultato del database.
Grazie a chiunque provi ad aiutarmi.
Ciao Paola

Salve,
<ZAP>


Il codice della pagina compare così come lo ho scritto, il codice non viene
eseguito, eppure il personal web server è in esecuzione.
(lo stesso codice qualche settimana fa funzionava bene)

Cioe' il PWS (o quel che e') ti ritorna tutto il codice scritto
compreso <% e %>. Ok, mi vengono in mente due cose:
1. non hai richiesto la pagina attraverso il PWS, cioe' il browser ha
aperto il documento come un file e non tramite HTTP. Verifica che
sulla barra del titolo ci sia 
http://localhost/.....asp
2. la directory in cui si trova il file .ASP non ha i diritti di
esecuzione. Verifica i permessi tramite il pannello di controllo del
Web Server o tramite le Risorse del Computer
Davide


Grazie Davide, che dimenticanza!!!, ora funziona tutto, non richiamavo la
pagina attraverso le PWS.

Sono le cxxxate piu' grosse quelle che ti fanno perdere un casino di
tempo.
Davide


Oppure la tua pagina non ha l'estensione ASP