2 replies to this topic

[reinaldo]

Olá Pessoal....estou com uma dúvida...
Já fiz uma busca em vários lugares, inclusive aqui e não tive respostas...
Vamos lá...

Preciso incluir uma foto em uma pasta e o caminho desta do meu banco de dados.
Porém, não consigo, incluir no BD...

<%
Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") 
if myFileUpload.form("arquivo").UserFilename <> "" then 
' diretório em que a imagem será salva 
myFileUpload.Form("arquivo").Path = "e:\home\meusite\web\cadastro\upload\dados" 
myFileUpload.form("arquivo").Save 
end if 

Set myFileUpload = nothing 

%>

Agradeço

Reinaldo

Edição feita por: reinaldo, 08/02/2005, 12:07.

[reinaldo]

Bom...já que é carnaval e não tem quase ninguém no forum...achei a resposta....
Para quem quizer saber!

<%
Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") 
nome = myFileUpload.form("File1").UserFilename 
myFileUpload.Path = "e:\home\meusite\web\cadastro\upload\dados" 
if right(nome,3) = "gif" or right(nome,3) = "jpg" then 
myFileUpload.Save 
end if 

Arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)

nome = myFileUpload.form("Nome")

If Err Then 
Response.Write("<b>Erro : </b>" & Err.description & "<br>") 
Set myFileUpload = nothing 
Response.End 
End If 

imagem = "" & arquivo
response.write(nome & "<br>" & arquivo) 

%>
<%

Set menu = abredb.Execute("insert into arquivo(nome, data) values('" & nome & "','" & imagem & "')")

%>

[Agente Linhares]

opa. ok velho. valeu a contribuição com a casa..

hehe. o povo ta td na farra..rs..mas bom q conseguiu.