Upload imagens

[gica 0]

Oi pessoal,Peguei a loja da locaweb e estou ajustando para funcionar em outro servidor.....porem a parte de upload esta quase...como sou iniciante em asp...acho que a loja da locaweb usava algum componente que no meu nao aceitava..entao tentei com base no original, fazer funcionar.....ele esta fazendo o upload para o servidor...mas ele nao esta mostrando o nome do arquivo na pagina...quando chamo o produto...o que esta em comentario é o original... Dim myFileUpload Dim intCount Set myFileUpload = Server.CreateObject("aspSmartUpload.SmartUpload") myFileUpload.Upload ' Configurações do caminho da Conta ' ****************************************** intCount = myFileUpload.Save("d:\web\teste\htdocs\loja\web\images") ' sample with a physical path 'Response.Write(intCount & " file(s) uploaded.") 'fim ' Esta secao faz o upload do arquivos para o diretório /images 'Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") 'Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 'mySmartUpload.Upload ' diretório em que a imagem será salva 'myFileUpload.Path = Application("DiretorioRaiz") & "images\" 'myFileUpload.Path = mySmartUpload.Save("d:\web\teste\htdocs\loja\web\images\") 'myFileUpload.Save 'Arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1) If Err Then Response.Write("<b>Erro : </b>" & Err.description & "<br>") Set myFileUpload = nothing Response.End End If

[WLJ 0]

ele esta fazendo o upload para o servidor...mas ele nao esta mostrando o nome do arquivo na pagina...quando chamo o produto

O que você quer dizer com mostrando o nome?você faz o upload e quando digita o caminho no browser não aparece a imagem? É isso?

[gica 0]

O Arquivo vai para o servidor, porem o nome do arquivo nao vai para o banco de dados....pois nao consegui encaixar essa linha Arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)para o ajuste com o novo upload....

[WLJ 0]

O Arquivo vai para o servidor, porem o nome do arquivo nao vai para o banco de dados....pois nao consegui encaixar essa linha Arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)para o ajuste com o novo upload....

o campo tá ficando fazio (em branco)?