<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
codigo = UploadRequest.Item("altera").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")
tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")
tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")
tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")
tipo_foto5 = UploadRequest.Item("foto5").Item("ContentType")
tipo_foto6 = UploadRequest.Item("foto6").Item("ContentType")
tipo_foto7 = UploadRequest.Item("foto7").Item("ContentType")
tipo_foto8 = UploadRequest.Item("foto8").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")
caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")
caminho_foto5 = UploadRequest.Item("foto5").Item("FileName")
caminho_foto6 = UploadRequest.Item("foto6").Item("FileName")
caminho_foto7 = UploadRequest.Item("foto7").Item("FileName")
caminho_foto8 = UploadRequest.Item("foto8").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))
nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))
nome_foto6 = Right(caminho_foto6,Len(caminho_foto6)-InstrRev(caminho_foto6,"\"))
nome_foto7 = Right(caminho_foto7,Len(caminho_foto7)-InstrRev(caminho_foto7,"\"))
nome_foto8 = Right(caminho_foto8,Len(caminho_foto8)-InstrRev(caminho_foto8,"\"))

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")
foto2 = UploadRequest.Item("foto2").Item("Value")
foto3 = UploadRequest.Item("foto3").Item("Value")
foto4 = UploadRequest.Item("foto4").Item("Value")
foto5 = UploadRequest.Item("foto5").Item("Value")
foto6 = UploadRequest.Item("foto6").Item("Value")
foto7 = UploadRequest.Item("foto7").Item("Value")
foto8 = UploadRequest.Item("foto8").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("../../fotos/")
'nome_foto2 = "/"& codigo& "_" & + nome_foto2
'nome_foto2 = "/"&nome_foto2

IF nome_foto <> "" Then
	nome_foto = "/" & codigo & "_" & nome_foto
ELSE
	nome_foto = ""
End IF

IF nome_foto2 <> "" Then
	nome_foto2 = "/" & codigo & "_" & nome_foto2
ELSE
	nome_foto2 = ""
End IF

IF nome_foto3 <> "" Then
	nome_foto3 = "/" & codigo & "_" & nome_foto3
ELSE
	nome_foto3 = ""
End IF

IF nome_foto4 <> "" Then
	nome_foto4 = "/" & codigo & "_" & nome_foto4
ELSE
	nome_foto4 = ""
End IF

IF nome_foto5 <> "" Then
	nome_foto5 = "/" & codigo & "_" & nome_foto5
ELSE
	nome_foto5 = ""
End IF

IF nome_foto6 <> "" Then
	nome_foto6 = "/" & codigo & "_" & nome_foto6
ELSE
	nome_foto6 = ""
End IF

IF nome_foto7 <> "" Then
	nome_foto7 = "/" & codigo & "_" & nome_foto7
ELSE
	nome_foto7 = ""
End IF

IF nome_foto8 <> "" Then
	nome_foto8 = "/" & codigo & "_" & nome_foto8
ELSE
	nome_foto8 = ""
End IF



' pasta + nome dos arquivos
cfoto = "../../fotos/" + nome_foto
cfoto2 = "../../fotos/" + nome_foto2
cfoto3 = "../../fotos/" + nome_foto3
cfoto4 = "../../fotos/" + nome_foto4
cfoto5 = "../../fotos/" + nome_foto5
cfoto6 = "../../fotos/" + nome_foto6
cfoto7 = "../../fotos/" + nome_foto7
cfoto8 = "../../fotos/" + nome_foto8

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
    For i = 1 to LenB(foto)
  MyFile.Write chr(AscB(MidB(foto,i,1)))
    Next
    MyFile.Close
end if


if foto2 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
    For i = 1 to LenB(foto2)
  MyFile.Write chr(AscB(MidB(foto2,i,1)))
    Next
    MyFile.Close
end if

if foto3 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
    For i = 1 to LenB(foto3)
  MyFile.Write chr(AscB(MidB(foto3,i,1)))
    Next
    MyFile.Close
end if

if foto4 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
    For i = 1 to LenB(foto4)
  MyFile.Write chr(AscB(MidB(foto4,i,1)))
    Next
    MyFile.Close
end if

if foto5 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)
    For i = 1 to LenB(foto5)
  MyFile.Write chr(AscB(MidB(foto5,i,1)))
    Next
    MyFile.Close
end if

if foto6 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto6)
    For i = 1 to LenB(foto6)
  MyFile.Write chr(AscB(MidB(foto6,i,1)))
    Next
    MyFile.Close
end if

if foto7 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto7)
    For i = 1 to LenB(foto7)
  MyFile.Write chr(AscB(MidB(foto7,i,1)))
    Next
    MyFile.Close
end if

if foto8<> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto8)
    For i = 1 to LenB(foto8)
  MyFile.Write chr(AscB(MidB(foto8,i,1)))
    Next
    MyFile.Close
end if


' Conecta-se ao Banco de Dados
'url_conexao = Server.MapPath("../../banco/banco.mdb")
'set conexao = Server.CreateObject("ADODB.Connection")
'conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao    
'<-- #include file="../includes/conexao.asp"-->
' cadastra os dados no banco de dados
Set conexaodb = Server.CreateObject("ADODB.Connection")
conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../banco/database.mdb") & ";Persist Security Info=False"

'dim conexaodb
'Call Abreconexao

sql = "Update produtos Set foto1 = '" & nome_foto & "', foto2 = '" & nome_foto2 & "', foto3 = '" & nome_foto3 & "', foto4 = '" & nome_foto4 & "', foto5 = '" & nome_foto5 & "', foto6 = '" & nome_foto6 & "', foto7 = '" & nome_foto7 & "', foto8 = '" & nome_foto8 & "' Where Id = " & codigo
'sql = "Insert into lojas (nome,email,foto,foto2) values ('"& nome &"', '"& email &"', '"& cfoto &"', '"& cfoto2 &"')"
conexaodb.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
'Response.write "Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos
'response.write "<br><br>você será redirecionado em 5 segundos..<br>"
'response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>"
%>
<script>alert('Fotos Cadastrada com sucesso 2-2!');location.href='principal.asp?ir=produtos.asp&pag=1';</script>