<%@ codepage="1252" language="VBScript" %> <% codigo = Request.QueryString("codigo") Set conexao =Server.CreateObject("ADODB.RecordSet") MSQL = "SELECT * FROM noticia WHERE codigo="&codigo Set conexao = Conn.Execute(MSQL) %> Painel de Controle
[Painel de Controle]
[Sair]

- Editar Notícia

Data:
   " size="9" maxlength="9"> ">
Titulo:
   " size="78">
Chamada:
  
Notícia:
 <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "" oFCKeditor.Value = ""&conexao("conteudo")&"" oFCKeditor.Create "conteudo" %>
Foto destaque [Frente] :
<% Set foto =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM foto_noticia WHERE codigo_noticia = " & Request.QueryString("codigo") & "" Set foto = Conn.Execute(msql) %> <% Do while not foto.EOF %> <% For i = 1 to 4 If not foto.EOF Then %> <% foto.MoveNext Else %> <% End if Next %> <%Loop%>
" width="120" height="90" border="0">
Foto destaque [Lateral] :
<% Set foto =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM foto_noticia WHERE codigo_noticia = " & Request.QueryString("codigo") & "" Set foto = Conn.Execute(msql) %> <% Do while not foto.EOF %> <% For i = 1 to 4 If not foto.EOF Then %> <% foto.MoveNext Else %> <% End if Next %> <%Loop%>
" width="120" height="90" border="0">
Destaque [Lateral] :
  
Destaque [Frente]: