Massimo
Junior Member
Italy
125 Posts |
Posted - 09 May 2002 : 04:55:45
|
no.... example:
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" -->
but it does not work
task that the error is in this line:
strsql=" UPDATE FORUM_TOPICS SET FORUM_TOPICS.T_RILIEVO= 1 WHERE FORUM_TOPICS.TOPIC_ID= 55"
help! thanks!
Massimo Farieri =============== http://www.superdeejay.net/ |
|
|