visualizzazione news ed elenco di news!

**serpiko** · 08-05-2007, 09:38

salve a tutti!! ho un problema e spero che vogliate aiutarmi nel risolverlo:
allora ho due pagine, la prima riguarda la visualizzazione della news la seconda è l'elenco delle news! il mio problema è questo:
vorre visualizzare in una pagina a sinistra la news e a destra l'elenco ma non riesco!!! vi posto i codice della prima e della seconda pagina:

prima pagina (visualizzazione della news):

<table width="100%" border="0" align="left" cellpadding="0" cellspacing="5">
<tr>
<td width="99" align="left" valign="top" bgcolor="#FFFFFF"><font face="Verdana" size="2" color="#CC0000">
</font><font face="Verdana" size="2" color="#1e4196"> <span class="titolonews">
<font face="Verdana" size="2" color="#CC0000">
<%
id = request.querystring("id")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")
sqlstmt = "SELECT * FROM tabella where id =" & id & " ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
clickdb = rs("click") + 1
rs("click") = clickdb
rs.update
prodotto = rs("ptitolo")
id = rs("ID")
titoletto = rs("titoletto")
pc = rs("pimg3")
pcat1 = rs("pcat")
p1= rs("pentry")
pa= rs("pimg1")
pb= rs("pimg2")
date1= rs("pdate")
firma1= rs("firma")
pdimg1= rs("pdimg1")
pdimg2= rs("pdimg2")
pdimg3= rs("pdimg3")
click= rs("click")
description = p1
%>
</font>
<% =prodotto %>
</span> </font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" valign="top"><font face="Verdana" size="1" color="#666666">
<% =titoletto %>
</font></td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#FFFFFF"> <div align="left"><font face="Verdana" size="1" color="#999999"><font face="Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif">
</font></font>
<% =date1 %>
<font size="2">|</font>letto </font><font color="#999999">[<font face="Verdana" size="1">
<% =click %>
</font>]</font></div></td>
</tr>
<tr>
<td align="left" valign="top"><font face="Verdana" size="2" color="#006fbb">
<div class=bodyarticle align=justify>
<table width=1
border=0 align=left cellpadding=1 cellspacing=0>
<tbody>
<tr>
<td><font face="Verdana" size="2" color="#000000">[img]<%=pa%>[/img]</font></td>
</tr>
<tr height=2>
<td bgcolor=white height=2><div align="left"><font face="Verdana" size="1" color="#000000">
</font><font face="Verdana" size="1" color="#000000">
<% =pdimg1 %>
</font><spacer type="block"
width="100%" height="2"></div></td>
</tr>
<tr height=2>
<td bgcolor=white height=2><font face="Verdana" size="2" color="#000000">[img]<%=pb%>[/img]</font><spacer type="block"
width="100%" height="2"></td>
</tr>
<tr>
<td bgcolor=white height=2><div align="left"><font face="Verdana" size="1" color="#000000">
</font><font face="Verdana" size="1" color="#000000">
<% =pdimg2 %>
</font><spacer type="block"
width="100%" height="2"></div></td>
</tr>
<tr>
<td align=middle><font face="Verdana" size="2" color="#000000">[img]<%=pc%>[/img]</font></td>
</tr>
<tr>
<td bgcolor=white> <div align="left"><font face="Verdana" size="1" color="#000000">
</font><font face="Verdana" size="1" color="#000000">
<% =pdimg3 %>
</font><spacer type="block"
width="100%" height="2"></div>
<div align="left"><font face="Verdana" size="1" color="#000000">
</font><font face="Verdana" size="1" color="#000000">
</font><spacer type="block"
width="100%" height="2"></div></td>
</tr>
</tbody>
</table>
<font color="#000000"><span class="testo1">
<% =description%>
</span> </font></div>
</font> </tr>
<tr>
<td align="left" valign="top"> <div align="right"><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% =firma1 %>
</font></div>
<div align="right"> <font face="Verdana" size="1" color="#000000"></font><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">
</font></div>
<div align="center"></div></td>
</tr>
</table>

seconda pagina (elenco delle news):

<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0" align="center">
<TR>
<TD>
<%
iPageSize = 5 'NUMERO RECORD PER PAGINA

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

strSQL = "SELECT * FROM tabella ORDER BY Pdate DESC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objRS.recordcount
iPageCount = objRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati dati.</td></table>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
'Dim Rig, bg
'Rig = Rig + 1
'If Rig Mod 2 = 0 then
' bg = "#E4E4E4"
'Else
' bg = "#ccccff"
'End if
'Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='1'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
'Response.Write "<tr>"
'Response.Write "<tr><td><font color='#666666' face='Verdana' size='1'>" & objRS("pcat") & "</font> | "
Response.Write "<tr><td><font color='#666666'> " &objRs("pdate") & " | Letto [<font face='verdana' size='1'>"&objRS("click")&"</font>]
<font color='#666666' face='Verdana' size='1'><span class=""titolonews"">"&objRS("ptitolo")&"</span> "&LunghezzaTesto(200,objRS("pentry"))&"</font>[b]

[img][/img]</td></tr>"
'Response.Write "<font color='#000000' face='Verdana' size='1'>"&LunghezzaTesto(250,objRS("pentry"))&"</font>

"
'Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("cod") & "</font></td>"
'Response.Write "Letto [" & objRS("click") & "]</font>
<hr></td></tr>"
'Response.Write "<font color='#000000' face='Verdana' size='1'>scaricato " & objRS("hit") & "</font></td>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>
</table>
<%End if%>

<%If ipagecount <> 1 Then%>
<table>
<tr>
<td width="50%"><font face="verdana" size="1" color="#000000"> [
<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
[img]images/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
[img]images/pre.gif[/img]
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"> <%=i%> </font>
<%else%>
<%=i%>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
[img]images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
[img]images/last.gif[/img]
<%end if%>
] </font></td>
</tr>
<tr>
<td colspan="2" align="left"><font face="verdana" size="1" color="#000000">
Pagina <font color="#FF0000"> <%=iPageCurrent%> </font>
di <font color="#FF0000"> <%=iPageCount%> </font>
</font></td>
</tr>
</table>
<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>
</TD>
</TR>
</TABLE>

Per cortesia potreste aiutarmi sto impazzendo!

VVoVe:

**Mems** · 08-05-2007, 09:55

La pagina elenco news legge la tabella delle news e le elenca.
Su ogni titolo news fai un link verso la pagina dettaglio news alla quale passi in queryString l'ID della news.
La pagina dettaglio news recupera il valore ID dalla queryString, controlli che il valore ID sia presente e che sia un numero e lo passi ad una query di selezione " WHERE IDNews = " & variabileID

**serpiko** · 08-05-2007, 10:23

??? grazie mille!!!! ma non capisco bene come attuare quello che mi hai consigliato!

**Mems** · 08-05-2007, 10:33

Ti scrivo un esempio:
elenco.asp

codice:

<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\cartelladb\database.mdb")

sql = "SELECT * from notizie ORDER BY dataNotizia DESC"

set rs = conn.execute(sql)

  if not rs.eof then
    do until rs.eof
      response.write "" & rs("titoloNotizia") & "
"
      rs.moveNext
    loop
  end if

rs.close
set rs =nothing

conn.close
set conn = nothing
%>

notizia.asp

codice:

<%
ID = request.queryString("id")

if len(ID) > 0 and isNumeric(ID) then
  set conn = server.createObject("ADODB.Connection")
  conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\cartelladb\database.mdb")

  sql = "SELECT * from notizie WHERE IDNotizia = " & ID

  set rs = conn.execute(sql)

    if not rs.eof then
      response.write "rs("titoloNotizia") & 
"
      response.write rs("testoNotizia")
    else
      response.write "Notizia inesistente"
    end if

  rs.close
  set rs =nothing

  conn.close
  set conn = nothing
else
  response.write "Nessuna notizia seleziona o criterio di selezione non valido"
end if
response.write "
Torna all'elenco
%>

**serpiko** · 08-05-2007, 11:33

Grazie ancora per l'aiuto ma non ne riesco a venire a capo!!!

**Mems** · 08-05-2007, 11:35

Originariamente inviato da serpiko
Grazie ancora per l'aiuto ma non ne riesco a venire a capo!!!

Studia.

**serpiko** · 08-05-2007, 11:50

ho modificato (studiando il tuo esempio) il mio codice (in grassetto ti riporto le modifiche)

Originariamente inviato da serpiko
salve a tutti!! ho un problema e spero che vogliate aiutarmi nel risolverlo:
allora ho due pagine, la prima riguarda la visualizzazione della news la seconda è l'elenco delle news! il mio problema è questo:
vorre visualizzare in una pagina a sinistra la news e a destra l'elenco ma non riesco!!! vi posto i codice della prima e della seconda pagina:

prima pagina (visualizzazione della news):

<table width="100%" border="0" align="left" cellpadding="0" cellspacing="5">
<tr>
<td width="99" align="left" valign="top" bgcolor="#FFFFFF"><font face="Verdana" size="2" color="#CC0000">
</font><font face="Verdana" size="2" color="#1e4196"> <span class="titolonews">
<font face="Verdana" size="2" color="#CC0000">
<%
id = request.querystring("id")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")
sqlstmt = "SELECT * FROM tabella where id =" & id & " ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
clickdb = rs("click") + 1
rs("click") = clickdb
rs.update
prodotto = rs("ptitolo")
id = rs("ID")
titoletto = rs("titoletto")
pc = rs("pimg3")
pcat1 = rs("pcat")
p1= rs("pentry")
pa= rs("pimg1")
pb= rs("pimg2")
date1= rs("pdate")
firma1= rs("firma")
pdimg1= rs("pdimg1")
pdimg2= rs("pdimg2")
pdimg3= rs("pdimg3")
click= rs("click")
description = p1
%>
</font>
<% =prodotto %>
</span> </font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" valign="top"><font face="Verdana" size="1" color="#666666">
<% =titoletto %>
</font></td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#FFFFFF"> <div align="left"><font face="Verdana" size="1" color="#999999"><font face="Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif">
</font></font>
<% =date1 %>
<font size="2">|</font>letto </font><font color="#999999">[<font face="Verdana" size="1">
<% =click %>
</font>]</font></div></td>
</tr>
<tr>
<td align="left" valign="top"><font face="Verdana" size="2" color="#006fbb">
<div class=bodyarticle align=justify>
<table width=1
border=0 align=left cellpadding=1 cellspacing=0>
<tbody>
<tr>
<td><font face="Verdana" size="2" color="#000000">[img]<%=pa%>[/img]</font></td>
</tr>
<tr height=2>
<td bgcolor=white height=2><div align="left"><font face="Verdana" size="1" color="#000000">
</font><font face="Verdana" size="1" color="#000000">
<% =pdimg1 %>
</font><spacer type="block"
width="100%" height="2"></div></td>
</tr>
<tr height=2>
<td bgcolor=white height=2><font face="Verdana" size="2" color="#000000">[img]<%=pb%>[/img]</font><spacer type="block"
width="100%" height="2"></td>
</tr>
<tr>
<td bgcolor=white height=2><div align="left"><font face="Verdana" size="1" color="#000000">
</font><font face="Verdana" size="1" color="#000000">
<% =pdimg2 %>
</font><spacer type="block"
width="100%" height="2"></div></td>
</tr>
<tr>
<td align=middle><font face="Verdana" size="2" color="#000000">[img]<%=pc%>[/img]</font></td>
</tr>
<tr>
<td bgcolor=white> <div align="left"><font face="Verdana" size="1" color="#000000">
</font><font face="Verdana" size="1" color="#000000">
<% =pdimg3 %>
</font><spacer type="block"
width="100%" height="2"></div>
<div align="left"><font face="Verdana" size="1" color="#000000">
</font><font face="Verdana" size="1" color="#000000">
</font><spacer type="block"
width="100%" height="2"></div></td>
</tr>
</tbody>
</table>
<font color="#000000"><span class="testo1">
<% =description%>
</span> </font></div>
</font> </tr>
<tr>
<td align="left" valign="top"> <div align="right"><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% =firma1 %>
</font></div>
<div align="right"> <font face="Verdana" size="1" color="#000000"></font><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">
</font></div>
<div align="center"></div></td>
</tr>
</table>

seconda pagina (elenco delle news):

<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0" align="center">
<TR>
<TD>
<%
iPageSize = 5 'NUMERO RECORD PER PAGINA

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
ID = request.queryString("id")

if len(ID) > 0 and isNumeric(ID) then
strSQL = "SELECT * FROM tabella ORDER BY Pdate DESC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objRS.recordcount
iPageCount = objRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati dati.</td></table>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
end if %>
<table>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
'Dim Rig, bg
'Rig = Rig + 1
'If Rig Mod 2 = 0 then
' bg = "#E4E4E4"
'Else
' bg = "#ccccff"
'End if
'Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='1'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
'Response.Write "<tr>"
'Response.Write "<tr><td><font color='#666666' face='Verdana' size='1'>" & objRS("pcat") & "</font> | "
Response.Write "<tr><td><font color='#666666'> " &objRs("pdate") & " | Letto [<font face='verdana' size='1'>"&objRS("click")&"</font>]
<font color='#666666' face='Verdana' size='1'><span class=""titolonews"">"&objRS("ptitolo")&"</span> "&LunghezzaTesto(200,objRS("pentry"))&"</font>[b]

[img][/img]</td></tr>"
'Response.Write "<font color='#000000' face='Verdana' size='1'>"&LunghezzaTesto(250,objRS("pentry"))&"</font>

"
'Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("cod") & "</font></td>"
'Response.Write "Letto [" & objRS("click") & "]</font>
<hr></td></tr>"
'Response.Write "<font color='#000000' face='Verdana' size='1'>scaricato " & objRS("hit") & "</font></td>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>
</table>
<%End if%>

<%If ipagecount <> 1 Then%>
<table>
<tr>
<td width="50%"><font face="verdana" size="1" color="#000000"> [
<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
[img]images/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
[img]images/pre.gif[/img]
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"> <%=i%> </font>
<%else%>
<%=i%>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
[img]images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
[img]images/last.gif[/img]
<%end if%>
] </font></td>
</tr>
<tr>
<td colspan="2" align="left"><font face="verdana" size="1" color="#000000">
Pagina <font color="#FF0000"> <%=iPageCurrent%> </font>
di <font color="#FF0000"> <%=iPageCount%> </font>
</font></td>
</tr>
</table>
<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>
</TD>
</TR>
</TABLE>

adesso il risultato è che mi visualizza a destra la pagina che dovrebbe visualizzare la news e a sinistra l'elenco ma entrembe sono vuote!!!!!!!!!!!

**serpiko** · 09-05-2007, 12:08

ehlpmeeeeeeeeeeeeeeeee

**Mems** · 09-05-2007, 12:42

Originariamente inviato da serpiko
ehlpmeeeeeeeeeeeeeeeee

L'H va prima della E.
helpmeeeeeeeeeeeeeeeee
così.

**serpiko** · 09-05-2007, 12:44

Discussione: visualizzazione news ed elenco di news!

Strumenti discussione

Ricerca discussione

Visualizza

visualizzazione news ed elenco di news!

Re: visualizzazione news ed elenco di news!

Permessi di invio