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
%>