questo è il codice della pag che visualizza ciascuna news:
ps-lo metto qui xchè il precedente post era troppo lungo
codice:
<% 'no security checking %> <%
'****************************************************************************************
'** Copyright Notice
'**
'** Script originale - www.t-dreams.com by Mohamad Al-Karbi
'** Modificato da Asunis Daniele - www.j.com
'**
'** All copyright notices must remain intacked in the scripts
'****************************************************************************************
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<%
response.buffer = true
'get key
key = request.querystring("key")
if key="" or isnull(key) then
key=request.form("key")
end if
if key="" or isnull(key) then response.redirect "default.asp"
'get action
a=request.form("a")
if a="" or isnull(a) then
a="I" 'display with input box
end if
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
Select Case a
Case "I": ' Get a record to display
tkey = key
strsql = "SELECT * FROM [accouncements1] WHERE [ID]=" & tkey
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
If rs.EOF Then
Response.Clear
Response.Redirect "default.asp"
Else
rs.MoveFirst
End If
' Get the field contents
x_Title = rs("Title")
x_DetailedNotes = rs("DetailedNotes")
x_date = rs("date")
x_Keywords = rs("Keywords")
rs.Close
Set rs = Nothing
End Select
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<META NAME="AUTHOR" CONTENT="DANIELE ASUNIS danieleasunis.com">
<META NAME="description" CONTENT="WWW.DANIELEASUNIS.COM - ARTE - DESIGN - SPIRITUALITA' - ATTUALITA' - SHOPPING - COMMUNITY - LIFESTYLE">
<TITLE><% response.write x_Title %></TITLE>
<META NAME="keywords" CONTENT="<% response.write x_Keywords %>">
<LINK REL="stylesheet" TYPE="text/css" HREF="../sadhana/asunis_global.css">
<LINK REL="stylesheet" TYPE="text/css" HREF="../sadhana/asunis_menu.css">
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript" SRC="../sadhana/slideshow.js">
</SCRIPT>
</HEAD>
<BODY>
<%Execute IncludeVariables(x_DetailedNotes)%>
</BODY>
</HTML>