Painel de Controle

<%@ codepage="1252" language="VBScript" %> <% Server.ScriptTimeout=99999 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set Upload = Server.CreateObject("Dundas.Upload.2") Upload.UseVirtualDir = False Upload.UseUniqueNames = False Upload.Save "C:\inetpub\vhosts\planegeo.com.br\httpdocs\site\arquivos" ' Obtain file object For Each File in Upload.Files arquivo = Upload.GetFileName(File.OriginalPath) Set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; PORT=3306; DATABASE=planegeo; USER=planegeo; PASSWORD=142536;OPTION=3;") Set tbl = Server.CreateObject("ADODB.Recordset") SQL = "UPDATE link_lateral SET nome='"& Upload.Form("nome") &"', link='"& Upload.Form("link") &"', arquivo='"& arquivo &"' WHERE codigo='"& Upload.form("codigo") &"'" tbl.Open SQL, Conn ans = ans & "O arquivo " & arquivo & " foi enviado com sucesso.
" Next End If %> Painel de Controle

[Painel de Controle]

[Sair]

- Editar Banner

<% If ans <> "" Then response.Write "" Else %> <% codigo = Request.QueryString("codigo") Set conexao =Server.CreateObject("ADODB.RecordSet") MSQL = "SELECT * FROM link_lateral WHERE codigo="&codigo Set conexao = Conn.Execute(MSQL) %>

Nome:

" size="40">

Link:

" size="40">

Banner:

Imagem Banner :

" border="0">

<% End If %>