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

- Editar Serviços

Titulo:
   " size="78">
Chamada:
  
Notícia:
 <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "" oFCKeditor.Value = ""&conexao("conteudo")&"" oFCKeditor.Create "conteudo" %>
Foto:
<% Set foto =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM foto_servicos WHERE codigo_servicos = " & 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">
  ">