Publicado em 22 de jan.

Upload de imagens e Lightbox

#asp classico

Gente

Eu num tenho muitas idéias e nem muito conhecimento de ASP

mais tentei modificar um sistema de uploade consegui !

Ela faz upload e tbm salva o caminho no bando de dados

mais ela pega o nome do arquivo e salva

eu queria q fizesse upload com nomes foto1,2,3,4,5,6,7

Sabe?

Porque qm vai adiministrar o site deve ter muitas fotos com nomes iguais

Dai vem o problema.

Codigo de Upload:

<%
if session("logou")=true then
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="[http://www.w3.org/1999/xhtml">](http://www.w3.org/1999/xhtml)
<head>
<META NAME="author" CONTENT="Yukatan">
<META NAME="description" CONTENT="Yukan - Sonorização e eventos, Seriedade e Qualidade">
<META NAME="keywords" CONTENT="Sonorização, Eventos, Yukatan, Som, Luz, Iluminação, Fotos">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>:: Yukatan :: - Sonorização e Eventos</title>
</head>
<style type="text/css">

</style>
<body>
<div id="tudo">
<div id="topo"> </div>
<div id="menuvert">
<ul>
<li><a href="index.html">Home</a></li>
<li><a href="empresa.asp">Empresa</a></li>
<li><a href="fotos.asp">Galeria de Fotos</a></li>
<li><a href="equipamentos.html">Equipamentos</a></li>
<li><a href="servicos.asp">Serviços</a></li>
<li><a href="contato.asp">Contato</a></li>
<li><a href="email.asp">Orçamentos</a></li>
<li><a href="parceiros.asp">Parceiros</a></li>
</ul>
</div>

<div id="menu">
<ul>
<b>Equipamentos</b>
<li><a href="sonorizacao.asp">Sonorização</a></li>
<li><a href="iluminacao.asp">Iluminação</a></li>
<li><a href="video.asp">Projeção de Video</a></li>
<b>Eventos</b>
<li><a href="fotos.asp">Fotos</a></li>
<li><a href="servicos.asp">Serviços</a></li>
<b>Contato</b>
<li><a href="contato.asp">Fale Conosco</a></li>
<li><a href="email.asp">Formulário de <br />E-mail</a></li>
</ul>
</div>

<%@ Language=VBScript %>
<%
set cnn=server.createobject("adodb.connection")
cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("bd") & "\dados.mdb"
set rs=server.createobject("adodb.recordset")
rs.open "fotos", cnn, 3, 3

Dim Contador, Tamanho
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino
Dim objFSO, objArquivo

PastaDestino = Server.MapPath("fotos/galeria")
localnome = "fotos/galeria"

'Determina o tamanho do conteúdo
Tamanho = Request.TotalBytes

'Obtém o conteúdo no formato binário
ConteudoBinario = Request.BinaryRead(Tamanho)

'Transforma o conteúdo binário em string
For Contador = 1 To Tamanho
ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
Next

'Determina o delimitador de campos
Delimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)

'Percorre a String procurando os campos
'identifica os arquivo e grava no disco
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)

do while True
ArquivoNome = ""
Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")
if Posicao1 = 0 then
exit do
else
'Determina o nome do arquivo
Posicao1 = Posicao1 + 10
Posicao2 = InStr(Posicao1, ConteudoTexto, """")
For contador = (Posicao2 - 1) to Posicao1 step -1
if Mid(ConteudoTexto, Contador, 1) <> "\" then '"
ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome
else
exit for
end if
next

'Determina o conteúdo do arquivo
Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4
Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2
ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))

'Grava o arquivo
if ArquivoNome <> "" then
Set objArquivo = objFSO.CreateTextFile(PastaDestino & "/" & ArquivoNome, true)
objArquivo.WriteLine ArquivoConteudo
objArquivo.Close
rs.addnew
rs("caminho")= localnome & "/" & ArquivoNome

 rs.update
 rs.close
 Response.write "Arquivo gravado com sucesso!<br><br><a href='uploadfotos.asp'>Enviar Mais</a>"
 Set objArquivo = nothing
 end if

end if
Loop
Set objFSO = nothing
%>

<div id="publicidade">

</div>

<div id="rodape">® Todos os direitos reservados | <a href="[http://www.yukatan.com.br">Yukatan](http://www.yukatan.com.br) Sonorização e Eventos </a></div>
</div>
</body>
</html>

<%
else
response.Redirect("formlogin.asp")
end if
%>e Tambem tenho um problema !Coloquei o Lightbox nas exebição das imagens e aparecem os erros:

Mensagem: 'Builder' não está definido

Linha: 132

Caractere: 3

Código: 0

URI: http://localhost/js/lightbox.js

Mensagem: 'null' é nulo ou não é um objeto

Linha: 209

Caractere: 9

Código: 0

URI: http://localhost/js/lightbox.js

Mensagem: 'null' é nulo ou não é um objeto