I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
SM
SM
il 7 aprile 2001 alle 19:29
5 messaggi dal 07 aprile 2001
Ho trovato degli scripts che dovrebbero funzionare in questa maniera:

da un form html si inseriscono dei dati che vengono inviati ad un motore asp, il quale processando un db access, restituisce i record con le informazioni cercate.
i dati relativi ad un determinato campo del db, sono tutti dei link, che portano ad un 'altra pagina asp, personalizzata, la quale restituisce altre informazioni ricavate dal db, e visualizza una o piu immagini, anche queste inserite ovviamente nel db access.

Ho fatto una prova con lo scipt di esempio, ma purtroppo si genera sempre un errore nella stringa "Response write", il comando che dovrebbe costruire a video la pagina htm

l'errore è

Errore di compilazione di Microsoft VBScript errore "800a0409'
Costante String senza terminazione
/libri/motor.asp, riga 28
response.write ("<center><h2>Libri Trovati</h2><br><table border=1><tr><td>Numero</td><td align=center>Titolo</td><td>Autore</td><td>Anno</td><td>Categoria</td>i=0

Ho provato a modificare la stringa qui sopra in diverse maniere, ma viene sempre generato un errore, e non riesco a capire dove intervenire. Vi sarei grato per un aiuto, in quanto avrei bisogno urgente di questi script funzionanti.

ps.: ho già provato a togliere i=0, ma non serve a niente, così come non serve togliere le parentesi, sempre sulla stringa response.write.

allego il tutto, anche se un pò voluminoso, e in ogni caso
vi sarei grato se mi potreste indicare dove poter trovare qualcosa di
pertinente da poter scaricare. Grazie.


form html


<HTML>
<HEAD>
<TITLE>I NOSTRI LIBRI</TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0"
TEXT="#0F0000" LINK="#0000FF"
ALINK="#0000CC" VLINK="#0000FF">
<center>Motore di Ricerca
<form method="post"
action="motor.asp">
<p><b>TITOLO</b><br>
<textarea name="titolo"
cols="30"></textarea>
</p>
<p><b>AUTORE</b><br>
<textarea name="autore" cols="30"></textarea>
</p>
<p><b>CATEGORIA</b><br>
<select name="cat">
<option value="tutte">Tutte</option>
<option value="DIRITTO">Diritto</option>
<option value="FANTASCIENZA">
Fantascienza</option>
</select>
</p>
<p><b>CASA EDITRICE</b><br>
<select name="editrice">
<option value="tutte">Tutte</option>
<option value="CEDAM">Cedam</option>
<option value="URANIA">URANIA</option>
<option value="MONDADORI">
Mondadori</option>
</select>
<br>
</p>
<p align="center">
<input type="submit" name="submit"
value="Cerca">
<input type="reset" name="submit2"
value="Reset">
</p>
</form>
</center>
</BODY>
</HTML>



MOTOR.ASP

<HTML>
<HEAD>
<TITLE>I NOSTRI TITOLI</TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0"
TEXT="#0F0000" LINK="#0000FF"
ALINK="#0000CC" VLINK="#0000FF">
<% rem legge dal form
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=" & server.mappath("libri.mdb")

Set RS=OBJdbConnection.Execute(sql)%>
<%
response.write ("<center><h2>Libri Trovati
</h2><br><table border=1><tr><td>
Numero</td><td align=center>Titolo</td>
<td>Autore</td>
<td>Anno</td><td>Categoria</td>
<td align=center>Casa Editrice</td>
<td>Prezzo</td><td>Collana</td>
</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><br>
</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>



libro.asp Pagina asp accedibile da link (visualizza dati e immagini)

<HTML>
<HEAD>
<%
id=request.querystring ("id")
sql="select * from tablibri where id="&id2
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("libri.mdb")
Set RS=OBJdbConnection.
Execute(sql)
testo=rs("testo")
titolo=rs("titolo")
autore=rs("autore")
anno=rs("anno")
pagine=rs("pagine")
cat=rs("cat")
ed=rs("editrice")
prezzo=rs("prezzo")
collana=rs("collana")
imm=rs("imm")
%>
<TITLE><%=titolo%></TITLE>
</HEAD>
<BODY background="sfondo.gif" BGCOLOR="#C0C0C0" TEXT="#0F0000" LINK="#0000FF" ALINK="#0000CC" VLINK="#0000FF">
<TABLE WIDTH="100%">
<TR>
<TD WIDTH="42%">
<%
if imm="-" then
response.write("<IMG SRC=Image2.gif WIDTH=120 HEIGHT=150 BORDER=0>")
else
response.write("<IMG SRC="&imm&" WIDTH=120 HEIGHT=150 BORDER=0>")
end if
%>

</TD>
<TD WIDTH="58%"><b><font face="Footlight MT Light" size="7"><a name="COSA-COMPR.htm"><font size="6">Motore
di Ricerc</font><font size="6">a</font></a></font></b></TD>
</TR>
<TR>
<TD width="42%" height="22"></TD>
<TD width="58%" height="22"></TD>
</TR>
<TR>
<TD VALIGN="TOP" ALIGN="LEFT" width="42%"><IMG SRC="navIcon.gif" HEIGHT="22" WIDTH="25" ALIGN="LEFT" BORDER="0" ALT="Timone"><FONT FACE="Book Antiqua" SIZE="3"><A HREF="index.html"><B>HOME</B></A></FONT>
<FONT FACE="Book Antiqua" SIZE="3"><BR>
<BR>
<IMG SRC="navIcon.gif" WIDTH="25" HEIGHT="22" ALIGN="LEFT" ALT="Timone"><A HREF="chi_SIAMO.htm"><B>CHI
SIAMO</B></A><BR>
<BR>
<IMG SRC="navIcon.gif" WIDTH="25" HEIGHT="22" ALIGN="LEFT" ALT="Timone"><A NAME="COSA-COMPR.htm"><B>PRODOTTI</B></A><BR>
<BR>
<IMG SRC="navIcon.gif" WIDTH="25" HEIGHT="22" ALIGN="LEFT" ALT="Timone"><B><A HREF="NOVITA'.HTM">ULTIME<br>
NOVITA'</A></B><BR>
<BR>
<IMG SRC="navIcon.gif" WIDTH="25" HEIGHT="22" ALIGN="LEFT" ALT="Timone"><A HREF="COME-ACQUISTARE.HTM"><B>COME<BR>
ACQUISTARE</B></A><BR>
<BR>
<IMG SRC="navIcon.gif" WIDTH="25" HEIGHT="22" ALIGN="LEFT" ALT="Timone"><B>E-M@IL <mailto:E-M@IL></B><BR>
<BR>
<IMG SRC="navIcon.gif" WIDTH="25" HEIGHT="22" ALIGN="LEFT" ALT="Timone"><A HREF="Servizio-clienti.htm"><B>SERVIZIO<br>
CLIENTI</B></A></FONT></TD>
<TD VALIGN="TOP" ALIGN="LEFT" width="58%">

<%

response.write("<b>Titolo:</b> "&titolo&"<br><b>Autore: </b>"&autore&"<br><b>Anno:</b> "&anno&"<br><b>Pagine: </b>"&pagine&"<br><b>Editrice:</b> "&editrice&"<br><b>Prezzo:</b> L. "&prezzo&"<br><b>Categoria:</b> "&cat&"<br><b>Collana:</b> "&collana&"<br><br>") %>
<center>
<p> <br>
<table border=0>
<tr>
<td>
<%


if testo<>"-" then


Set objFileSys=Server.CreateObject("Scripting.
FileSystemObject")


varInputFile=Server.
MapPath("/libri")+"\testi\"+testo


Set objTsIn=objFileSys.
OpenTextFile(varInputFile)



Do Until objTsIn.AtEndOfStream
i=i+1
response.write(objTsIn.
ReadLine)
loop
objTsIn.Close
end if
%> </td>
</tr>
</table>
</center>
</table>
</BODY>
</HTML>













RispondiQuoting
berutti
berutti
l'8 aprile 2001 alle 23:49
57 messaggi dal 06 settembre 2002
una curiosità... se hai riportato tutto il codice così come è guarda che il contenuto di response.write va tutto nella stessa riga, altrimenti logicamente ti darà errore.
I=0 non lo puoi mettere lì ma in un'altra riga. Altri errori non ce ne sono...

ciao
riccardo
Riccardo
RispondiQuoting
SM
SM
il 9 aprile 2001 alle 07:19
5 messaggi dal 07 aprile 2001
Adesso però inspiegabilmente mi dà questo errore:

MOTOR.ASP
Microsoft OLE DB Provider for ODBC Drivers errore "80040e10'
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 2.
/libri/motor.asp, riga 15


la riga 15 è: Set RS=OBJdbConnection.Execute(sql)%>

a che cosa può essere riferito "parametri insufficienti" ???


RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.