[news] lasciare solo il titolo e la foto

[massimo67]

salve,
forse mi perdo in un bicchiere d'acqua (prometto è solo acqua..eh eh ) come potete vedere in questo esempio quì si vede il titolo della news, la foto e le parole sotto.
Devo fare in modo che si veda solo il titolo ,la foto e l'autore della foto. Devo togliere il "bla bla bla". Ovviamente poi cliccando sul titolo della news deve vedersi tutto anche il "bla bla bla"

grazie

posto il codice dell apagina in questione

.

<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=TRUE%>


<%
strNewsID = Request.querystring("newsID")
strCatID = Request.Querystring("catID")
Set rsSettings = Server.CreateObject("ADODB.Recordset")

strSettingsSQL = "SELECT shownum,contentbgcolor,infobgcolor,infotextcolor,b ordercolor,headbgcolor,sitelink, comments,tellafriend FROM tblsettings"

rsSettings.Open strSettingsSQL, adoCon

RECORDS_PER_PAGE = rsSettings("shownum")
nPage = CLng(Request.QueryString("Page"))

If strNewsID <> "" AND IsNumeric(strNewsID) Then
Set rsViewNews = Server.CreateObject("ADODB.Recordset")
strViewSQL = "SELECT heading, [ID], [Timestamp], postedby, content FROM tblnews WHERE ID =" & strNewsID
rsViewNews.Open strViewSQL, adoCon
strCountSQL = "SELECT Count(*) AS myCommentsCount FROM tblComments WHERE newsID =" & strNewsID
Set rsCount = adoCon.Execute(strCountSQL)
%>
<center>
</center>


<%
Else If strCatID <> "" Then

Set rsViewNews = Server.CreateObject("ADODB.Recordset")
rsViewNews.CursorLocation = 3
strViewSQL = "SELECT heading, [ID], [Timestamp], postedby, content FROM tblnews WHERE category =" & strCatID & " AND status = 1 ORDER BY [ID] DESC"
rsViewNews.Open strViewSQL, adoCon
%>
</center>
<%
Else

Set rsViewNews = Server.CreateObject("ADODB.Recordset")
rsViewNews.CursorLocation = 3
strViewSQL = "SELECT heading, [ID], [Timestamp], postedby, content, status FROM tblnews WHERE status = 1 ORDER BY [ID] DESC"
rsViewNews.Open strViewSQL, adoCon
If NOT rsViewNews.EOF Then
nRecCount = rsViewNews.RecordCount
rsViewNews.PageSize = RECORDS_PER_PAGE
nPageCount = rsViewNews.PageCount

If nPage < 1 Or nPage > nPageCount Then
nPage = 1
End If
rsViewNews.AbsolutePage = nPage
%>
<table width="95%">
<tr>
<td width="80%"> <%
'Do While NOT (rsViewNews.Eof OR rsViewNews.AbsolutePage <> nPage)
strCountSQL = "SELECT Count(*) AS myCommentsCount FROM tblComments WHERE newsID =" & rsViewNews("ID")
Set rsCount = adoCon.Execute(strCountSQL)
%> <center>
<table border='1' width='62%' bordercolor=<%=rsSettings("bordercolor")%> style='border-collapse:collapse;'>
<tr>
<td bgColor=<%=rsSettings("headbgcolor")%> style='font-family:verdana;font-weight:bold;font-size:8pt;'><a href='viewnews.asp?newsID=<%Response.Write (rsViewNews("ID"))%>'>
<%Response.Write (rsViewNews("heading"))%>
</a> </td>
</tr>
<tr>
<td width='100%' style='font-family:verdana;font-size:8pt;' bgColor=<%=rsSettings("contentbgcolor")%>>
<%Response.Write (rsViewNews("content"))%> </td>
</tr>
</table>
</center>



<%
rsViewNews.MoveNext
'Loop


%>
</td>
</tr>
</table>
<%
Else
Response.Write "No Records found."
End If
End If
End If

Response.Write ("


<center><img src=images/rss_small.gif border=0 Alt='RSS Feed'></center>

")
Response.Write ("<center><table><tr><td><img src=images/poweredby.gif alt='Powered By ASP News' border=0></td></tr></table></center>")
Set rsViewNews = Nothing
Set rsSettings = Nothing
Set adoCon = Nothing
%>

[massimo67]

ho visto che nel database access c'è un records che si chiama "content" dove c'è il percorso dell'immagine con poi scritto il resto della news. Per risolvere il mio problema devo fare in modo di prendere solo i tag dell'immagine come posso fare ?

questo è il tag , ovviamente cambia con il nome delle foto ogni volta

[img]/public/articolo/foto/Image/2008-2009/2008_2009_ceo_udine2.jpg[/img]

[lucalicc]

la parte che mostra il testo della news dovrebbe essere questo

<tr> <td width='100%' style='font-family:verdana;font-size:8pt;' bgColor=<%=rsSettings("contentbgcolor")%>> <%Response.Write (rsViewNews("content"))%> </td> </tr> 

verso la fine del codice.
Da quello che vedo però sembra che l'immagine e il testo della news
sono nello stesso campo del record nel database.
In questo caso è difficile dividere la sola immagine dal resto del testo.
Se sono strutturati in un modo fisso si può provare a estrarre solo
il nome della immagine e usare solo quella, ad esempio cercare
nella stringa il tag <img> (sempre che sia codificato in html) e
prendere il testo relativo scartando tutto il resto.
Cmq lo vedo macchinoso e soggetto a problemi, qualora il
contenuto del campo sia variabile a seconda di chi e come lo inserisce.
La soluzione più pratica è ovviamente quella di creare due campi
distinti nel database, uno per la sola immagine e uno per il testo.
In questo modo gestisci tutto come preferisci.
luca

[massimo67]

Infatti, l'immagine e il testo della news sono nello stesso campo chiamato "content" .
Con il comando left so si può estrarre solo il tag dell'immagine ? Ci sono guide del comando left in giro ? Io non ne ho trovate

[lucalicc]

la butto li...
ipotizzando che il tag dell'immagine è la prima cosa che compare
nel campo del recordset e ipotizzando che l'immagine sia solo in formato jpg,
puoi trovare la lunghezza del tag dell'immagine con la funzione Instr:

caratteri_link = InStr(rs("content"), ".jpg", 1)

questa ti dovrebbe dare quanti caratteri ci sono dall'inizio del campo
a quando si trova la fine del link all'immagine, ovvero l'estensione .jpg
ad esempio ti potrebbe restitutire 15 nel caso l'immagine si chiami
public/demo/img.jpg

a questo punto estrai i primi 19 caratteri della stringa (15+.jpg)
con il comando left:

caratteri_link = caratteri_link + 4
nome_immagine = Left(rs("content"), caratteri_link)
e dovresti avere il link completo dell'immagine, che userai
per mostrare solo l'immagine invece di tutto il campo.
E' un po macchinoso, non sono sicuro che funzioni,
ma è un'idea sulla quale lavorare.

Se l'immagine non è all'inizio del campo del database ma
sparsa dentro altri dati, dovresti trovare un testo che segni
l'inizio del tag (ad esempio public/), quello che la chiude (ad es. .jpg)
e dalla misura del numero di caratteri dall'inizio della stringa delle
due occorrenze determini la lunghezza del link dell'immagine,
quindi prendi lo stesso numero di caratteri ma non parti dall'inizio
della stringa ma dal numero di caratteri dopo quelli rilevati prima
del testo /public.

Bel casino....
luca

[massimo67]

Originariamente inviato da lucalicc
la butto li...
ipotizzando che il tag dell'immagine è la prima cosa che compare
nel campo del recordset e ipotizzando che l'immagine sia solo in formato jpg,
puoi trovare la lunghezza del tag dell'immagine con la funzione Instr:

caratteri_link = InStr(rs("content"), ".jpg", 1)

questa ti dovrebbe dare quanti caratteri ci sono dall'inizio del campo
a quando si trova la fine del link all'immagine, ovvero l'estensione .jpg
ad esempio ti potrebbe restitutire 15 nel caso l'immagine si chiami
public/demo/img.jpg

a questo punto estrai i primi 19 caratteri della stringa (15+.jpg)
con il comando left:

caratteri_link = caratteri_link + 4
nome_immagine = Left(rs("content"), caratteri_link)
e dovresti avere il link completo dell'immagine, che userai
per mostrare solo l'immagine invece di tutto il campo.
E' un po macchinoso, non sono sicuro che funzioni,
ma è un'idea sulla quale lavorare.

Se l'immagine non è all'inizio del campo del database ma
sparsa dentro altri dati, dovresti trovare un testo che segni
l'inizio del tag (ad esempio public/), quello che la chiude (ad es. .jpg)
e dalla misura del numero di caratteri dall'inizio della stringa delle
due occorrenze determini la lunghezza del link dell'immagine,
quindi prendi lo stesso numero di caratteri ma non parti dall'inizio
della stringa ma dal numero di caratteri dopo quelli rilevati prima
del testo /public.

Bel casino....
luca

l'immagine si trova per fortuna all'inizio e quì sotto vedi un esempio di cosa
viene scritto nel record

[img]/public/articolo/foto/Image/2008-2009/2008_2009_ceo_udine2.jpg[/img]
ciao, ecco la nuova news

[lucalicc]

allora puoi provare a cercare la posizione della stringa


trovato il numero di caratteri dall'inzio della stringa alla posizione di quella stringa
fai un trim left del campo e ti resta il tag dell'immagine, che usi per
stampare a video solo l'immagine.
dovrebbe funzionare.
luca

[massimo67]

Originariamente inviato da lucalicc
allora puoi provare a cercare la posizione della stringa


trovato il numero di caratteri dall'inzio della stringa alla posizione di quella stringa
fai un trim left del campo e ti resta il tag dell'immagine, che usi per
stampare a video solo l'immagine.
dovrebbe funzionare.
luca

scusa, scusa ..... fai un trim left ? Non lo so fare.

[lucalicc]

ti avevo scritto le parti di codice un post piu su
luca

[massimo67]

mi da errore , come puoi vedere quì . Bo

<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=TRUE%>


<%
strNewsID = Request.querystring("newsID")
strCatID = Request.Querystring("catID")
Set rsSettings = Server.CreateObject("ADODB.Recordset")

strSettingsSQL = "SELECT shownum,contentbgcolor,infobgcolor,infotextcolor,b ordercolor,headbgcolor,sitelink, comments,tellafriend FROM tblsettings"

rsSettings.Open strSettingsSQL, adoCon

RECORDS_PER_PAGE = rsSettings("shownum")
nPage = CLng(Request.QueryString("Page"))

If strNewsID <> "" AND IsNumeric(strNewsID) Then
Set rsViewNews = Server.CreateObject("ADODB.Recordset")
strViewSQL = "SELECT heading, [ID], [Timestamp], postedby, content FROM tblnews WHERE ID =" & strNewsID
rsViewNews.Open strViewSQL, adoCon
strCountSQL = "SELECT Count(*) AS myCommentsCount FROM tblComments WHERE newsID =" & strNewsID
Set rsCount = adoCon.Execute(strCountSQL)
%>
<center>
</center>


<%
Else If strCatID <> "" Then

Set rsViewNews = Server.CreateObject("ADODB.Recordset")
rsViewNews.CursorLocation = 3
strViewSQL = "SELECT heading, [ID], [Timestamp], postedby, content FROM tblnews WHERE category =" & strCatID & " AND status = 1 ORDER BY [ID] DESC"
rsViewNews.Open strViewSQL, adoCon
%>
</center>
<%
Else

Set rsViewNews = Server.CreateObject("ADODB.Recordset")
rsViewNews.CursorLocation = 3
strViewSQL = "SELECT heading, [ID], [Timestamp], postedby, content, status FROM tblnews WHERE status = 1 ORDER BY [ID] DESC"
rsViewNews.Open strViewSQL, adoCon
If NOT rsViewNews.EOF Then
nRecCount = rsViewNews.RecordCount
rsViewNews.PageSize = RECORDS_PER_PAGE
nPageCount = rsViewNews.PageCount

If nPage < 1 Or nPage > nPageCount Then
nPage = 1
End If
rsViewNews.AbsolutePage = nPage
%>
<table width="95%">
<tr>
<td width="80%"> <%
'Do While NOT (rsViewNews.Eof OR rsViewNews.AbsolutePage <> nPage)
strCountSQL = "SELECT Count(*) AS myCommentsCount FROM tblComments WHERE newsID =" & rsViewNews("ID")
Set rsCount = adoCon.Execute(strCountSQL)
%> <center>
<table border='1' width='62%' bordercolor=<%=rsSettings("bordercolor")%> style='border-collapse:collapse;'>
<tr>
<td bgColor=<%=rsSettings("headbgcolor")%> style='font-family:verdana;font-weight:bold;font-size:8pt;'><a href='viewnews.asp?newsID=<%Response.Write (rsViewNews("ID"))%>'>
<%Response.Write (rsViewNews("heading"))%>
</a> </td>
</tr>
<tr>
<td width='100%' style='font-family:verdana;font-size:8pt;' bgColor=<%=rsSettings("contentbgcolor")%>>

<%caratteri_link = InStr(rs("content"), ".jpg", 1) <--- linea 68
caratteri_link = caratteri_link + 4
nome_immagine = Left(rsViewNews("content"), caratteri_link) %>

<%Response.Write (rsViewNews("content"))%> </td>
</tr>
</table>
</center>



<%
rsViewNews.MoveNext
'Loop


%>
</td>
</tr>
</table>
<%
Else
Response.Write "No Records found."
End If
End If
End If

Response.Write ("


<center><img src=images/rss_small.gif border=0 Alt='RSS Feed'></center>

")
Response.Write ("<center><table><tr><td><img src=images/poweredby.gif alt='Powered By ASP News' border=0></td></tr></table></center>")
Set rsViewNews = Nothing
Set rsSettings = Nothing
Set adoCon = Nothing
%>