Quase lá, falta uma coisa

[conseld 0]

Olá Galera mais uma vez, bom não trabalho com ASP meu ramo mesmo e PHP.

Mas estou com projeto de enviar anexo usando ASP. Estou com server da Loca web e estou usando a extesão "SoftArtisans.FileUp", já tinha postado a semana passada a questão de enviar o arquivo para pasta " <% upl.Path = "e:\home\carci\web\download" %>" (* Já Fiz a permisão ), bom o arquivo está enviando para pasta eu usei seguinte comando abaixo.

 

PAGINA1.ASP

 

Server.ScriptTimeOut = 300

 

Set upl = Server.CreateObject("SoftArtisans.FileUp") %>

'CAMINHO DA ONDE VAI SER ANEXO

<% upl.Path = "e:\home\carci\web\download" %>

<% upl.Save %>

<p>Total de Bytes Enviados: <%=upl.TotalBytes%>

<%

 

'PEGA O NOME E O LOCAL DO ANEXO

varImagem = upl.Form("anexo")

varTexto = upl.Form("texto")

 

'GRAVA AS INFORMAÇÕES DO FORM

session("img") = varImagem

session("texto") = varTexto

 

 

Set upl = Nothing

 

'ENVIA GRAVADO PARA ESSA PÁGINA

Response.Redirect ("pagina2.asp")

 

 

PAGINA2.PHP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="../../Connections/carci.asp" -->

<%

Dim rs

Dim rs_numRows

 

Set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = MM_carci_STRING

rs.Source = "SELECT * FROM download"

rs.CursorType = 0

rs.CursorLocation = 2

rs.LockType = 3

rs.Open()

 

rs_numRows = 0

 

'CADASTRO

rs.addnew()

rs("anexo") = Session("img")

rs("texto") = Session("texto")

rs.update()

 

Response.Redirect ("ver_anexo.asp?cad=Cadastro feito com sucesso!")

%>

 

<%

rs.Close()

Set rs = Nothing

%>

 

Bom isso funciona legalzinho funciona.. agora o problema e o "caminho do download"

Quando eu faço o cadastro do anexo ele fica com esse caminho no banco de dados fica

 

e:\home\carci\web\download\S1010047.JPG

 

O correto não seria abaixo para aparecer a imagem?

 

download/S1010047.JPG

 

Alguém poderia me ajudar?

Não sei o que fazer!!! :unsure: :unsure: :unsure:

 

Já fiz de toda forma eu não consegui.

 

Aguardo vc6 todos.

Obrigado

[Mário Monteiro 179]

porque voce não pega só o final com funções de manipulação de string

[adriano 0]

Olha, não sei bem a solução, mas um jeito prático e rápido de resolver isso é dando um Replace...

 

ASP

[*]'CADASTRO

 

[*]rs.addnew()

 

[*]rs("anexo") = Session("img")

 

[*]rs("texto") = Session("texto")

 

[*]rs.update()

 

Ficaria assim:

ASP

[*]'CADASTRO

 

[*]rs.addnew()

 

[*]rs("anexo") = Replace(Session("img"), "e:\home\carci\web\download\", "download/")

 

[*]rs("texto") = Session("texto")

 

[*]rs.update()

[conseld 0]

Adriano, funcionou e mesmo.Eu sabia desse Replace em PHP mas ASP não sabia que era esse funcionamento.Deu certoValeu pela ajuda.Precisa uma mão em PHP de um tokeAi vai MSNcledson@conseld.com