gravar caminho da imagem e extensão no banco

[Ewerton93 0]

me passaram esse script pela net dei uma adapta porem esta dando erro no mappath segue link do script de upload

 

http://forum.ievolutionweb.com/index.php?s...2&hl=upload

 

so que esse tutorial apos editado esta dando o seguinte erro

 

Server object error 'ASP 0172 : 80004005'

 

Invalid Path

 

/pasta/upload_form2.asp, line 29

 

The Path parameter for the MapPath method must be a virtual path. A physical path was used.

 

<!--#include file="pasta/conn.asp" --><!--#include file="upload_funcoes.asp" --><%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------nome = UploadRequest.Item("nome").Item("Value")email = UploadRequest.Item("email").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("img").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("img").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))'response.Write(nome_foto)' Conteudo binario dos arquivos enviadosimg = UploadRequest.Item("img").Item("Value")' pasta onde as imagens serao guardadas'pasta = Server.MapPath("imagens")pasta = Server.MapPath("C:\Arquivos de programas\Apache Group\Apache2\htdocs\upload\imagens\")'pasta = Upload.Save ("C:\Arquivos de programas\Apache Group\Apache2\htdocs\upload\imagens\")'nome_foto = "\" & nome_fotonome_foto = pasta & "\" & nome_foto' pasta + nome dos arquivos'cfoto = "C:\Arquivos de programas\Apache Group\Apache2\htdocs\upload\imagens\" + nome_fotocfoto = nome_foto' Fazendo o Upload do arquivo selecionadoif img <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)For i = 1 to LenB(img)MyFile.Write chr(AscB(MidB(img,i,1)))NextMyFile.Closeend if' Conecta-se ao Banco de Dados'url_conexao = Server.MapPath("banco.mdb")'set conexao = Server.CreateObject("ADODB.Connection")'conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao Set Database = Server.CreateObject("ADODB.Connection")	Database.open = strconn' cadastra os dados no banco de dadossql = "Insert into tabela (nome,email,img) values ('"& nome &"', '"& email &"', '"& cfoto &"')"Conexao.Execute(sql)' Mostra Mensagem de Confirmação na TelaResponse.write "Dados Cadastrados com Sucesso!"%><%	Database.close	 	set sql = Nothing	set Database = Nothing%>

[Ted k' 126]

Está dizendo que o caminho te que ser virtual. Server.Mappath

 

mais ou menos assim:

 

pasta = Server.MapPath("/upload/imagens/")