Risultati e Link

Ciao Amici ho un problema allora lo script è un classico script delle news.

Dichiaro il linguaggio cosi:

<%@ Language=VBScript%>
<%
Option explicit
Response.Expires = -1000
Response.Buffer = True
Posts_on_Page = 3 '
Dim conn
Dim DSNtemp
Dim sql
Dim x
Dim news
Dim poster
Dim PostDate
Dim title
Dim rs
Dim Posts_on_Page
%>

Clicca per allargare...

setto la connessione così:

<%
Set conn = Server.CreateObject("ADODB.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=DSNtemp & "DBQ=" & server.mappath("edita/news.mdb")
conn.Open DSNtemp
sql = "SELECT * from news ORDER BY date DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
x = 0
For x = 1 to Posts_on_Page
If rs.EOF then
Exit For
Else
PostDate = rs("date")
title = rs("title")
%>

Clicca per allargare...

leggo i risultati della news cosi:

<%=title%> br <%=PostDate%>

Clicca per allargare...

ho voluto fare cosi perchè vorrei che in questa pagina io possa leggere solo il titolo e la data delle news.
Per leggere la news completa vorrei che cliccando sul titolo della news io acceda alla news completa.
come posso fare???

ho già previsto una pagina archivio.asp che contiene tutte le news complete

grazie a tutti :fnk:

Originally posted by jan267

Codice:

<a href="pg.asp?id=<%=rs("id")%>"><%=rs("title")%></a>

Clicca per allargare...

Jan grazie..nel frattempo lo avevo già fatto :fonzie:

ora sto cercando di fare la pagina dove verrà letta la news!!!
Ho provato cosi:

<%
Set conn = Server.CreateObject("ADODB.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=DSNtemp & "DBQ=" & server.mappath("newsedit/news.mdb")
conn.Open DSNtemp
strSQL = "SELECT * FROM NEWS WHERE news.id_news = '" & Request.QueryString("id") & "' "
strSQL = strSQL & "ORDER BY date DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
x = 0
For x = 1 to Posts_on_Page
If rs.EOF then
Exit For
Else
PostDate = rs("date")
title = rs("title")
%>

Clicca per allargare...

ma non va..
da errore
di run-time di Microsoft VBScript (0x800A01F4)
Variabile non definita: 'strSQL'
/museo/archivio.asp, line 45


è la line 45 è
strSQL = "SELECT * FROM NEWS WHERE news.id_news = '" & Request.QueryString("id") & "'

HELP ME JAN

dice che siccome usol'Option Explicit per cui devo aggiungere

Dim strSQL
allora ho fatto cosi:


<%
Set conn = Server.CreateObject("ADODB.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=DSNtemp & "DBQ=" & server.mappath("newsedit/news.mdb")
conn.Open DSNtemp
Dim strSQL = "SELECT * FROM NEWS WHERE news_id = '" & Request.QueryString("id") & "' "
Dim strSQL = strSQL & "ORDER BY date DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
x = 0
For x = 1 to Posts_on_Page
If rs.EOF then
Exit For
Else
PostDate = rs("date")
title = rs("title")
news = rs("news")
%>

ma ora da errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/museo/archivio.asp, line 45, column 11
Dim strSQL = "SELECT * FROM NEWS WHERE news_id = '" & Request.QueryString("id") & "' "
----------^