Purtroppo non posso, per motivi di "privacy". Comunque ti invio il codice "originale" (senza il tuo) della pagina dettaglio degli articoli, spero possa servire:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conncl.asp" -->
<%
Dim Recordset1__MM_ColParam
Recordset1__MM_ColParam = "1"
if (Request.QueryString("ID") <> "") then Recordset1__MM_ColParam = Request.QueryString("ID")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conncl_STRING
Recordset1.Source = "SELECT * FROM dbo.Articoli WHERE ID = " + Replace(Recordset1__MM_ColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
if not Recordset1.EOF then
%>
<html>
<!-- #BeginTemplate "/Templates/modll.dwt" -->
...
...
QUI ANDREBBE TUTTA LA PARTE DI CODICE LEGATA AL MODELLO
...
...
<!-- #BeginEditable "richieste" -->
<%
testo = request("testo")
arrayParole = split(testo, " ")
for i=0 to ubound(arrayParole)
next
%>
<table align="center" border="0" cellspacing="0" cellpadding="7" width="100%">
<tr>
<td align="left" valign="top"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>
<%=(Recordset1.Fields.Item("Data").Value)%> <i>- <%=(Recordset1.Fields.Item("Giornale").Value)%></i> pp. <%=(Recordset1.Fields.Item("Pagina").Value)%><br>
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#666666"><br>
<%=(Recordset1.Fields.Item("Occhiello").Value)%><br>
</font></b></font><font color="#CC3300" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=(Recordset1.Fields.Item("Titolo").Value)%></strong></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<strong><%=(Recordset1.Fields.Item("Autore").Value)%></strong><%=(Recordset1.Fields.Item("Intervistatore").Value)%></font></div>
<p> <strong><font color="#999999" size="1" face="Verdana, Arial, Helvetica, sans-serif">> Se
disponibile scarica il pdf: </font><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=(Recordset1.Fields.Item("Coautore").Value)%>"><%=(Recordset1.Fields.Item("Coautore").Value)%></a></font></strong></p>
<hr size="1" noshade color="#CCCCCC"></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"><%
LinkTesto = Recordset1.Fields.Item("LinkTesto").Value
Recordset1.Close()
Set Recordset1 = Nothing
if LinkTesto <> "" then
if left(LinkTesto, 7) = "http://" then
LinkTestoCorto = Right(LinkTesto, Len(LinkTesto)-20)
else
LinkTestoCorto = LinkTesto
end if
%>
<% Server.Execute(LinkTestoCorto) %>
<% end if %>
</tr>
</table>
<% end if %>
<!-- #EndEditable -->
</body>
<!-- #EndTemplate -->
</html>
