Prelevare un numero di parole dal database Access

giandopus

Grazie per la risposta, ma non sono proprio pratico,
questa funzione come la devo inserire?

Esempio: io ho questo codice che so che mi preleva il testo
dalla colonna "descrizione":

<%=Server.HTMLEncode(Mostra("descrizione"))%>

La funzione substring la devo mettere così

<%=Server.HTMLEncode(Mostra(subtring("descrizione, 0, 100"))%>

Scusami l'ignoranza ma non sono un programmatore (e si vede)

cali1981

no devi mettere

<%=Server.HTMLEncode(subtring(Mostra("descrizion e, 0, 100"))%>

giandopus

Ciao e grazie per larisposta tempestiva,
ho inserito il codice ma ora mi da:

Microsoft JScript compilation error '800a03ee'
Expected ')'
/index.asp, line 78

Prima di inserire il codice ho corretto alcuni errori di battitura,
ti rinvio quello corretto:

<%=Server.HTMLEncode(substring(Mostra("descrizione, 0, 100"))%>

cali1981

<%=Server.HTMLEncode(substring(Mostra("descrizione , 0, 100")))%>

giandopus

Ti stavo per riscrivere che avevo notato la parentesi
ma ora mi da:

**ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/index.asp, line 78

Grazie per l'infinita pazienza!!!

**

cali1981

Lo spazio in descrizione è solo un errore del forum? Perchè non sembra tutto attaccato come dovrebbe essere

giandopus

Si, il codice che ho inserito è:

<%=Server.HTMLEncode(substring(Mostra("descrizione, 0, 100")))%>

cali1981

Scusa non avevo controllato il reto della funzone, ovviamente così non va...

<%=Server.HTMLEncode(substring(Mostra("descrizione") , 0, 100)))%>

giandopus

Ho inserito il codice ma ho tolto una parentesi e mi da:
**Microsoft JScript runtime error '800a138f'
Object expected
/index.asp, line 78

Con la parentesi in più mi da:

**

Microsoft JScript compilation error '800a03ec'
Expected ';'
/index.asp, line 78
Response.Write(Server.HTMLEncode(substring(Mostra("descrizione"), 0, 100))))
---------------------------------------------------------------------------^**
**

fabrizio.virdis

fai cosi:

Response.Write Left(Mostra("descrizione"),100)

cosi ti scrive i prinmi 100 caratteri...

giandopus

Grazie per l'aiuto ma mi da questo errore:

Microsoft JScript runtime error '800a138f'

Object expected

/index.asp, line 83

fabrizio.virdis

potresti postare il codice completo cosi possiamo aiutarti e capire dov è l errore?

giandopus

Riporto di seguito il codice completo:

<%@LANGUAGE = JScript%>
<%
var Cn = new ActiveXObject("ADODB.Connection");
var Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/mdb-database/csi.mdb");
Cn.Open(Sc);

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" ".w3.org/TR/html4/loose.dtd">

<%
var Sql = "SELECT * FROM case ORDER BY id DESC";
var Mostra = new ActiveXObject("ADODB.Recordset");
Mostra.Open(Sql,Cn,1);

var pag = parseInt(Request.QueryString("id"));
if (isNaN(pag) || pag < 1) pag = 1;
if (!Mostra.EOF) {
Mostra.PageSize = 3;
Mostra.AbsolutePage = pag;
}
var i = 0;

%><%while (!Mostra.EOF && i<3) {%>

																							<tr height="72">
																								<td valign="top" width="140" height="72"><img src='../public/immagini_articoli/<%=Server.HTMLEncode(Mostra("foto"))%>' alt="foto anteprima" height="102" width="140" border="0"></td>
																								<td valign="top" height="72">
																									<h2><b><%=Server.HTMLEncode(Mostra("titolo"))%></b><br>
																																														<br>

<%=Server.HTMLEncode(substring(Mostra("descrizione") , 0, 100))%>

																										<br>
																										<a href='articoli.asp?id=<%=Mostra("id")%>'>Continua &gt;&gt;</a></h2>
																								</td>
																							</tr>
																							<tr height="20">
																								<td colspan="2" valign="top" height="20"></td>
																							</tr>
																							<%
		i++;
		Mostra.Movenext();
		 
	}
%>
</table>

fabrizio.virdis

ciao, prova così:

[PHP]
<%
var Cn = new ActiveXObject("ADODB.Connection");
var Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/mdb-database/csi.mdb");
Cn.Open(Sc);

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" ".w3.org/TR/html4/loose.dtd">

<%
var Sql = "SELECT * FROM case ORDER BY id DESC";
var Mostra = new ActiveXObject("ADODB.Recordset");
Mostra.Open(Sql,Cn,1);

var pag = parseInt(Request.QueryString("id"));
if (isNaN(pag) || pag < 1) pag = 1;
if (!Mostra.EOF) {
Mostra.PageSize = 3;
Mostra.AbsolutePage = pag;
}
var i = 0;

%><%while (!Mostra.EOF && i<3) {%>

<tr height="72">
<td valign="top" width="140" height="72"><img src='../public/immagini_articoli/<%=Mostra("foto")%>' alt="foto anteprima" height="102" width="140" border="0"></td>
<td valign="top" height="72">
<h2><b><%=Mostra("titolo")%></b><br>
<br>

<%=Left(Mostra("descrizione"),100)%>

<br>
<a href='articoli.asp?id=<%=Mostra("id")%>'>Continua >></a></h2>
</td>
</tr>
<tr height="20">
<td colspan="2" valign="top" height="20"></td>
</tr>
<%
i++;
Mostra.Movenext();

}
%>
</table>
[/PHP]

giandopus

Questo è l'errore che mi da:

Microsoft JScript runtime error '800a138f'

Object expected

/index.asp, line 86

La linea 86 è <%=Left(Mostra("descrizione"),100)%>

Sto iniziando a perdere ogni speranza...

fabrizio.virdis

sicuramente Mostra("descrizione") è vuoto o inesistente...è li l'errore

giandopus

Il campo descrizione esiste ed è più lungo di 100 caratteri,
lo conferma il fatto che se lo richiamo con questo
<%=Server.HTMLEncode(Mostra("descrizione"))%>
mi appare tutto il testo contenuto nel database senza
ombra di errori.
A questo punto qualcuno sa consigliarmi uno strumento
ex-novo per mostrare in una pagina il contenuto di
un database con i campi Titolo, foto e descrizione (con il discorso che abbiamo fatto fin'ora).

Fino ad ora ho utilizzato quei codici perchè sono gli unici che conosco
e che ho preso da un vecchio tutorial e che mi funzionano,
ma se potete consigliarmi qualcosa di migliore va bene ugualmente.

Grazie