home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 9
/
Freelog009.iso
/
BAS
/
Internet
/
Abb
/
deplacerpost.asp
< prev
next >
Wrap
Text File
|
2000-03-02
|
3KB
|
74 lines
<% @ LANGUAGE="VBScript" lcid="1036" %>
<!--#include file="include.asp"-->
<%
postid2 = Request.QueryString("postid")
topicid2 = Request.QueryString("topicid")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ABB</title>
<style type="text/css">
<!--
A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
-->
</style>
</head>
<body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
<p align="center"><font face="Arial">
<a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a>
<b>DΘplacer le sujet</b></font>
<p align="center"> </p>
<p align="center"><font face="Arial" size="2">Seuls les administrateurs ont le
droit de dΘplacer un sujet</font></p>
<form method="POST" action="dodeplacerpost.asp?postid=<% =postid2 %>&topicid=<% =topicid2 %>">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><font face="Arial" size="2"><b>Nom d'utilisateur : </b></font> </td>
<td><font face="Arial" size="2"><input type="text" name="Nom" size="30" value="<% =Request.Cookies("abb")("nom") %>"></font></td>
</tr>
<tr>
<td><font face="Arial" size="2"><b>Mot de passe : </b></font> </td>
<td><font face="Arial" size="2"><input type="password" name="Passe" size="20" value="<% =Request.Cookies("abb")("passe") %>"></font></td>
</tr>
<tr>
<td>
<font face="Arial" size="2"><b>DΘplacer dans le thΦme : </b></font>
</td>
<td>
<%
strthemeSQL = "SELECT topicid,topicdesc FROM Topic"
set themeRes=ConnectionBD.Execute(strthemeSQL)
%>
<font face="Arial" size="2">
<select size="1" name="theme">
<% Do Until themeRes.EOF = True %>
<option <% If topicid2=CStr(themeRes("topicid")) Then %>selected<% End If %> value="<% =themeRes("topicid") %>">
<% =themeRes("topicdesc") %>
</option>
<% themeRes.MoveNext %>
<% Loop %>
</select>
</font>
</td>
</tr>
</table>
<p align="center">
<p align="center"><font face="Arial" size="2"><input type="submit" value="Soumettre l'identification" name="Envoyer"><input type="reset" value="Effacer tous les champs" name="Effacer"></font></p>
</center>
</div></form>
<!--#include file="basdepage.asp"-->
</body>
</html>