%@LANGUAGE="VBSCRIPT"%> <% Dim dettaglio_news__MMColParam dettaglio_news__MMColParam = "1" If (Request.QueryString("ContID") <> "") Then dettaglio_news__MMColParam = Request.QueryString("ContID") End If %> <% Dim dettaglio_news Dim dettaglio_news_numRows Set dettaglio_news = Server.CreateObject("ADODB.Recordset") dettaglio_news.ActiveConnection = MM_padafe_STRING dettaglio_news.Source = "SELECT * FROM tabella WHERE ContID = " + Replace(dettaglio_news__MMColParam, "'", "''") + "" dettaglio_news.CursorType = 0 dettaglio_news.CursorLocation = 2 dettaglio_news.LockType = 1 dettaglio_news.Open() dettaglio_news_numRows = 0 %>
<%=(dettaglio_news.Fields.Item("titolo").Value)%> |
" > |
|
|
" > |
" >
<%=(dettaglio_news.Fields.Item("didas2").Value)%> |
<%=(dettaglio_news.Fields.Item("testo_news2").Value)%>
|
|
" > |
" >
<%=(dettaglio_news.Fields.Item("didas4").Value)%> |
<%=(dettaglio_news.Fields.Item("testo_news3").Value)%>
|
|
<% dettaglio_news.Close() Set dettaglio_news = Nothing %>