problema di apici?

**kobra33** · 04-12-2005, 11:36

Sei davvero gentile, (questo è un forum di grandi non ne esistono altri in Ita, questo è il nuovo msg d'errore

codice:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 2.
/Day 07/TMP1m99wqyvuf.asp, line 28

mentre ci sono posto tutto il codice di tutta la pagina va. Per dovere di cronaca è (o perlomeno dovrebbe essere) una pagina di ricerca o motore di ricerca interno per i prodotti

codice:

<HTML>

<HEAD>

<TITLE>I NOSTRI TITOLI</TITLE>

</HEAD>

<BODY BGCOLOR="#C0C0C0" TEXT="#0F0000" LINK="#0000FF" ALINK="#0000CC" VLINK="#0000FF">

<% rem 

titolo=request.form("titolo")

autore=request.form("autore")

cat=request.form("cat")

ed=request.form("editrice")

if titolo="" then titolo="%"
if autore="" then autore="%"
if cat="tutte" then cat="%"
if ed="tutte" then ed="%"
sql="select * from tablibri where titolo like '%"&titolo&"%' and autore like '%"&autore&"%' and cat like '%"&cat&"%' and editrice like '%"&ed&"%'"
Set OBJdbConnection = Server.CreateObject("ADODB.Connection") 
OBJdbConnection.Open"driver={Microsoft Access Driver (*.mdb)}; dbq=c:\inetpub\wwwroot\libri.mdb"
Set RS=OBJdbConnection.Execute(sql)%>
<% 
response.write "(<center><h2>Libri Trovati" 
response.write "</h2>
<table border=1><tr><td>" 
response.write "Numero</td><td align=center>Titolo</td>" 
response.write "<td>Autore</td>" 
response.write "<td>Anno</td><td>Categoria</td>" 
response.write "<td align=center>Casa Editrice</td>" 
response.write "<td>Prezzo</td><td>Collana</td>" 
response.write "</tr> )" 
i=0 
Do while NOT RS.EOF 
i=i+1 
%>



<TR>
<TD><%=i%></TD>
<td><% id=rs("id")
titolo=rs("titolo")%>
<a href="libro.asp?ID=<%=id%>">
<%=titolo%></a>

</td>
<td><%response.write(RS("autore"))
autore=rs("autore")%></td>
<td><%response.write(RS("anno"))
anno=rs("anno")%></td>
<td><%response.write(RS("cat"))
cat=rs("cat")%></td>
<td><%response.write(RS("editrice"))
ed=rs("editrice")%></td>
<td><%response.write("L. "&RS("prezzo"))
prezzo=rs("prezzo")%></td> 
<td><%response.write(RS("collana"))
collana=rs("collana")%></td> 
</TR> 
<%
imm=rs("imm")
RS.MoveNext 
Loop 
RS.Close
OBJdbConnection.Close%>
</table> 
</BODY>
</HTML>

**Roby '76** · 04-12-2005, 11:53

Ciao, appena sotto la tua select fai un response.write per vedere come effetivamente interroghi il db.

[CODE
sql="select * from tablibri where titolo like '%"&titolo&"%' and autore like '%"&autore&"%' and cat like '%"&cat&"%' and editrice like '%"&ed&"%'"
Response.write sql
Set RS=OBJdbConnection.Execute(sql)
[/CODE]

Posta il risultato e poi vediamo.

**kobra33** · 04-12-2005, 12:00

codice:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/day 07/motor.asp, line 27

**Roby '76** · 04-12-2005, 12:08

C'è qualcosa che non torna.
Ti dovrebbe restituire una stringa contenente le informazioni che vuoi eleborare.
Posta il codice fino alla riga 30.

**kobra33** · 04-12-2005, 12:12

codice:

<HTML>

<HEAD>

<TITLE>I NOSTRI TITOLI</TITLE>

</HEAD>

<BODY BGCOLOR="#C0C0C0" TEXT="#0F0000" LINK="#0000FF" ALINK="#0000CC" VLINK="#0000FF">

<% rem 

titolo=request.form("titolo")

autore=request.form("autore")

cat=request.form("cat")

ed=request.form("editrice")

if titolo="" then titolo="%"
if autore="" then autore="%"
if cat="tutte" then cat="%"
if ed="tutte" then ed="%"
sql="select * from tablibri where titolo like '%"&titolo&"%' and autore like '%"&autore&"%' and cat like '%"&cat&"%' and editrice like '%"&ed&"%'"
Response.write sql 
Set RS=OBJdbConnection.Execute(sql)
Set OBJdbConnection = Server.CreateObject("ADODB.Connection") 
OBJdbConnection.Open"driver={Microsoft Access Driver (*.mdb)}; dbq=c:\inetpub\wwwroot\libri.mdb"
Set RS=OBJdbConnection.Execute(sql)%>

**Roby '76** · 04-12-2005, 12:16

Prova Cosi e fammi sapere.

<HTML>

<HEAD>

<TITLE>I NOSTRI TITOLI</TITLE>

</HEAD>

<BODY BGCOLOR="#C0C0C0" TEXT="#0F0000" LINK="#0000FF" ALINK="#0000CC" VLINK="#0000FF">

<% rem

titolo=request.form("titolo")

autore=request.form("autore")

cat=request.form("cat")

ed=request.form("editrice")

if titolo="" then titolo="%"
if autore="" then autore="%"
if cat="tutte" then cat="%"
if ed="tutte" then ed="%"

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open"driver={Microsoft Access Driver (*.mdb)}; dbq=c:\inetpub\wwwroot\libri.mdb"

sql="select * from tablibri where titolo like '%"&titolo&"%' and autore like '%"&autore&"%' and cat like '%"&cat&"%' and editrice like '%"&ed&"%'"
Response.write sql
Set RS=OBJdbConnection.Execute(sql)%>

**kobra33** · 04-12-2005, 12:24

codice:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 2.
/Day 07/motor.asp, line 31

**Roby_72** · 04-12-2005, 12:35

codice:

Response.write sql 
response.end

Posta quello che vedi a video.

Roby

**kobra33** · 04-12-2005, 12:46

:maLOL: mi viene da ridere, ora il browser non mi da più messaggi d'errore ma "stampa" a video il seguente testo:

select * from tablibri where titolo like '%%%' and autore like '%%%' and cat like '%%' and editrice like '%%'

capisco che scrive il contenuto dell'sql ma a che serve? la pagina non dovrebbe estrarre i dati dal DB?

**Roby_72** · 04-12-2005, 15:02

Non c'è niente da ridere...
Con il response.end blocchi l'esecuzione dello script in modo da riuscire a capire cosa la query esegue senza arrivare all'errore, che forse è troppo tardi per capire.
Togli queste righe prima della query:

if titolo="" then titolo="%"
if autore="" then autore="%"
if cat="tutte" then cat="%"
if ed="tutte" then ed="%"

E togli questo:

Response.write sql
response.end

Roby

Discussione: problema di apici?

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio