quote:

---

<%
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_top_short.asp" -->
<%
TOPIC_ID= request.querystring("topic_id")
%>
<table border="0" width="95%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="<% =strTableBorderColor %>">
<table border="0" width="100%" cellspacing="1" cellpadding="4">
<tr>
<td bgcolor="<% =strCategoryCellColor %>" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" ><b>RILIEVO</b></font></td>
</tr>
<tr>
<td bgcolor="<% =strForumCellColor %>" align="center">
<p align="center"> <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">IMPOSTAZIONI
PER IL RILIEVO</font><br>
<% rilievo_method= request.FORM("rilievo_method")
if rilievo_method = "rilievo" then %>
<%
TOPIC_ID= request.FORM("TOPIC_ID")
topic_rilievo= request.form("rilievo")


strsql=" UPDATE FORUM_TOPICS SET FORUM_TOPICS.T_RILIEVO= 1 WHERE FORUM_TOPICS.TOPIC_ID= 55"
my_conn.Execute(strsql) %> <table width="100%" height="100%">
<tr>
<td bgcolor="<% =strForumCellColor %>" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>" >
<p align="center"><b>impostazioni rilievo modificate con successo</b>
</font></td>
</tr>
</table><%
else

'## informazioni sullo sto attuale del rilievo nel topic
strSql = "SELECT " & strTablePrefix & "TOPICS.TOPIC_ID"
strSql = strSql & ", " & strTablePrefix & "TOPICs.T_SUBJECT"
strSql = strSql & ", " & strTablePrefix & "TOPICS.T_RILIEVO"
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID=" & TOPIC_ID


set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn, 3
%> <table border="0" align="center" cellpadding="5">
<%
if rs.EOF or rs.BOF then '## non č stato rovato nel db nessun articolo con l'id selezionata
%> <tr>

<td bgcolor="<% =strForumFirstCellColor %>" colspan="5">
<p align="center"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>" valign="top"><b>Non č stato trovato nessun articolo con id <% =topic_id %></b></font></p>
</td>
</tr><%else%>
<tr valign="top">
<td>
<table border="0" align="center">

<td bgcolor="<% =strForumCellColor %>" align="center">

<p align="center">

<font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="1">

 (i numeri servono per indicare l'ordine di posto
che vuoi dare alla discussione rispetto alle altre
discussioni in rilievo )</font></p>
</td>


<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">


<tr>

<td bgcolor="<% =strForumCellColor %>" align="center">
<p align="center"> ARTICOLO=  <% = RS("T_SUBJECT")%></p>
</td>

</tr>
<tr>
<form method="POST" action="pop_rilievo.asp">
<input type="hidden" value="rilievo" name="rilievo_method">
<input type="hidden" value="<% =topic_id %>" name="topic_id">
<td align="center">
<p align="center"><select size="1" name="rilievo">
<option value="0" <% if rs("T_RILIEVO")= "0" then response.write " selected" end if %>>NO
rilievo</option>
<option value="1" <% if rs("T_RILIEVO")= "1" then response.write " selected" end if %>>SI
rilievo, ordine 1</option>
<option value="2" <% if rs("T_RILIEVO")= "2" then response.write " selected" end if %>>SI
rilievo, ordine 2</option>
<option value="3" <% if rs("T_RILIEVO")= "3" then response.write " selected" end if %>>SI
rilievo, ordine 3</option>
<option value="4" <% if rs("T_RILIEVO")= "4" then response.write " selected" end if %>>SI
rilievo, ordine 4</option>
<option value="5" <% if rs("T_RILIEVO")= "5" then response.write " selected" end if %>>SI
rilievo, ordine 5</option>
<option value="6" <% if rs("T_RILIEVO")= "6" then response.write " selected" end if %>>SI
rilievo, ordine 6</option>
<option value="7" <% if rs("T_RILIEVO")= "7" then response.write " selected" end if %>>SI
rilievo, ordine 7</option>
<option value="8" <% if rs("T_RILIEVO")= "8" then response.write " selected" end if %>>SI
rilievo, ordine 8</option>
<option value="9" <% if rs("T_RILIEVO")= "9" then response.write " selected" end if %>>SI
rilievo, ordine 19</option>
<option value="10" <% if rs("T_RILIEVO")= "10" then response.write " selected" end if %>>SI
rilievo, ordine 10</option>

</select></p>

<p align="center"><input type="submit" value="Invia" name="invia"></p>

</form> </tr>
</table>
</td>
</tr> <%
end if
rs.close
set rs = nothing

%>

</table><%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>

<!--#INCLUDE FILE="inc_footer_short.asp" -->

---