<%@ 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]

- Delelar Foto Notícia

 

<%=conexao("titulo")%>
 
<% 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">