Ciao a tutti sono un nuovo utente e sto iniziando a studiare il linguaggio asp.
Ho un piccolo grande problema che mi tormenta e che non so come risolvere.
Ho creato un db con una tabella di nome news e dentro ci sono due campi
titolo e descrizione.
Ora l'inserimento nel database funziona perfettamente, cosi come la lettura dei dati, ma qua salta fuori il problema.
Io nella pagina di visualizzazione dei dati inseriti nel db vorrei solo far vedere il titolo della news, e ci sono riuscito, poi cliccando sul titolo vorrei che si leggesse tutta la news ma non riesco a farlo.
vi posto il codice cosi mi dite voi come fare.
Grazie anticipatamente
<%@LANGUAGE = VBScript%>
<%
' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE
Dim sc, cn, rs, quanti, pag, contatore
' DEFINISCO LA STRINGA DI CONNESSIONE
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("/mdb-database/miodb.mdb")
' IMPOSTO LA CONNESSIONE EDIL RECORDSET
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
' APRO LA CONNESSIONE COL DATABASE
cn.Open sc
' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
quanti = 5
' RECUPERO IL NUMERO DI PAGINA CORRENTE
' E CONTROLLO CHE NON SIA INFERIORE A 1
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
' IMPOSTO UN CONTATORE
contatore = 0
%>
<div align="center">
<table width="300" border="0" cellspacing="0" cellpadding="0">
<%
' APRO IL RECORDSET
rs.Open "SELECT titolo FROM news ORDER BY id ASC", cn, 1
' EFFETTUO MATERIALMENTE LA PAGINAZIONE
rs.PageSize = quanti
rs.AbsolutePage = pag
' ESEGUO IL CICLO
While rs.EOF = False And contatore < quanti
%>
<tr><td><b><font size="2" face="Tahoma"><%=rs("titolo")%></font></b></td></tr>
<%
rs.MoveNext
' INCREMENTO IL VALORE DEL CONTATORE
contatore = contatore + 1
Wend
%>
</table>
</div>
</body>
</html>
<%
' UN PO DI PULIZIA...
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
Ho un piccolo grande problema che mi tormenta e che non so come risolvere.
Ho creato un db con una tabella di nome news e dentro ci sono due campi
titolo e descrizione.
Ora l'inserimento nel database funziona perfettamente, cosi come la lettura dei dati, ma qua salta fuori il problema.
Io nella pagina di visualizzazione dei dati inseriti nel db vorrei solo far vedere il titolo della news, e ci sono riuscito, poi cliccando sul titolo vorrei che si leggesse tutta la news ma non riesco a farlo.
vi posto il codice cosi mi dite voi come fare.
Grazie anticipatamente
<%@LANGUAGE = VBScript%>
<%
' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE
Dim sc, cn, rs, quanti, pag, contatore
' DEFINISCO LA STRINGA DI CONNESSIONE
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("/mdb-database/miodb.mdb")
' IMPOSTO LA CONNESSIONE EDIL RECORDSET
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
' APRO LA CONNESSIONE COL DATABASE
cn.Open sc
' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
quanti = 5
' RECUPERO IL NUMERO DI PAGINA CORRENTE
' E CONTROLLO CHE NON SIA INFERIORE A 1
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
' IMPOSTO UN CONTATORE
contatore = 0
%>
<div align="center">
<table width="300" border="0" cellspacing="0" cellpadding="0">
<%
' APRO IL RECORDSET
rs.Open "SELECT titolo FROM news ORDER BY id ASC", cn, 1
' EFFETTUO MATERIALMENTE LA PAGINAZIONE
rs.PageSize = quanti
rs.AbsolutePage = pag
' ESEGUO IL CICLO
While rs.EOF = False And contatore < quanti
%>
<tr><td><b><font size="2" face="Tahoma"><%=rs("titolo")%></font></b></td></tr>
<%
rs.MoveNext
' INCREMENTO IL VALORE DEL CONTATORE
contatore = contatore + 1
Wend
%>
</table>
</div>
</body>
</html>
<%
' UN PO DI PULIZIA...
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
