ASP Samrt Upload - Funcionando

Ola a todos.

Este codigo que eu estou passando esta funcionando legal e faz as seguintes coisas

Grava uma imagem em uma pasta especifica

Renomeia ela para que não fique com o mesmo nome de outra imagem

e Grava tudo no Banco de dados.

Sofri mas consegui terminar

Pagina do Formulario

'------------------------------------------------------------------------------------------------

<form action="cadastrar.asp" method="post" enctype="multipart/form-data">

 <table width="519" border="0" cellspacing="0" cellpadding="0">

 <tr>

 <td colspan="2" align="center"><span class="style1">Cadastro de Fotos</span></td>

 </tr>

 <tr>

 <td width="198" height="22" align="right">Tema para a foto: </td>

 <td width="321" align="left"><input name="Nome" type="text" size="50" maxlength="50"></td>

 </tr>

 <tr>

 <td height="22" align="right">Foto Grande:</td>

 <td align="left"><input name="FotoG" type="file" ></td>

 </tr>

 <tr>

 <td height="22" align="right">Foto Pequena:</td>

 <td align="left"><input name="FotoP" type="file"td>

 </tr>

 <tr>

 <td height="25" colspan="2" align="center"><input type="submit" value="Cadastrar">

  

 <input type="reset" value="Limpar"></td>

 </tr>

 </table>

</form>

'------------------------------------------------------------------------------------------------

cadastrar.asp

'------------------------------------------------------------------------------------------------

<%

dim user, renome, RenomeArquivoG, RenomeArquivoP, ProdData, erro, UploadImagem

' Elabora um nome para a imagem usando o ID do usuario, a data e a hora

' e usando um replace eu tiro os caracteres especiais que não podem ser salvos no BD

user=Session("Usuario")

renome=user&"_"&date&"_"&time

renome=replace(renome, ".", "")

renome=replace(renome, ":", "")

renome=replace(renome, "/", "")

renome=replace(renome, "*", "")

renome=replace(renome, "?", "")

renome=replace(renome, "\", "")

renome=replace(renome, ",", "")

renome=replace(renome, " ", "")

RenomeArquivoG = renome &"G.jpg"

RenomeArquivoP = renome &"P.jpg"

'Upload Usando o ASP SMART UPLOAD -------------------------------------------

On Error Resume Next

Set UploadImagem = Server.CreateObject("aspSmartUpload.SmartUpload") ' Cria-se o objeto

UploadImagem.MaxFileSize = 30000 ' Tamanho maximo de cada arquivo, pode-se almentar

UploadImagem.AllowedFilesList = "jpg" ' Eu quero somente imagens jpg

' Caso de algum erro ----------------------------

if err.number <> 0 then

 erro = "Falha no Upload<br><br>"

 erro = erro & "Número do Erro: " & Err.number & "<br>" & Err.Description & "<br>" & Err.Source

 response.Write erro

	End if

 

	' Local onde as imagens ficarão

	local = Server.MapPath("\Fotos\")

	UploadImagem.Upload

 

	' Gravas as figuras na pasta indicada acima e renomeia conforme o script do começo

	UploadImagem.files.item(1).saveas (local &"\"& RenomeArquivoG)

	UploadImagem.files.item(2).saveas (local &"\"& RenomeArquivoP)

' Conecta ao Banco de Dados

Set oConn = Server.CreateObject("ADODB.Connection")

curDir = Server.MapPath("../BancoDados/fotos.mdb")

oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

' Abre o RECORDSET

'************************************************************************

 strSQL = "SELECT * FROM TbFotos"

 

 Set oRs = Server.CreateObject("ADODB.recordset")

 Set oRs.ActiveConnection = oConn

 oRs.Source = strSQL

 oRs.LockType = 3

 oRs.Open

' Grava tudo no Banco de dados

oRs.AddNew

oRs("Nome") = UploadImagem.form("Nome")

oRs("Usuario") = user

oRs("ProdFotoG") = RenomeArquivoG

oRs("ProdFotoP") = RenomeArquivoP

oRs.Update

Set UploadImagem = Nothing

response.Redirect("sucesso.asp")

%>

'------------------------------------------------------------------------------------------------

É isso ai pessoal, aqui esta funcionado beleza

qualquer duvida não me procure

brincadeira

qualquer duvida é so falar