apenas o nome do arquivo

[Cesão 1]

tenho um formulário de texto e upload...na pagina que faz o upload, além de fazer o upload ele insere em DB e ainda manda as informações por e-mail...gostaria de saber:como faço para pegar apenas o nome do arquivo? e nao aquele C:\Meus Documentos\ bla bla bla...quero apenas "arquivo.jpg"

[Cesão 1]

SoftArtisans....

[Cesão 1]

por enquanto meu código está assim:

 

ASP

[*]<%

 

[*]pasta = "revela/"

 

[*]nome = Request.Form("nome")

 

[*]nascimento = Request.Form("nascimento")

 

[*]endereco = Request.Form("endereco")

 

[*]bairro = Request.Form("bairro")

 

[*]telefone = Request.Form("telefone")

 

[*]sEmailFrom = Request.Form("email")

 

[*]curso = Request.Form("curso")

 

[*]frase = Request.Form("frase")

 

[*]foto = Request.Form("foto")

 

[*]%>

 

[*]<!-- #include file="conn/conexao.asp" -->

 

[*]<%

 

[*]SQL="INSERT INTO revela (nome, nascimento, endereco, bairro, telefone, email, curso, frase, foto) VALUES('"&nome&"', '"&nascimento&"', '"&endereco&"', '"&bairro&"', '"&telefone&"', '"&sEmailFrom&"', '"&curso&"', '"&frase&"', '"&pasta&foto&"')"

 

[*]'conexao.Execute(SQL)

 

[*]response.write(sql)

 

[*]%>

 

[*]<%

 

[*]conexao.close()

 

[*]Set conexao = nothing

 

[*]%>

 

[*]<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %>

 

[*]<% upl.Path = "e:\home\meu site\web\revela" %>

 

[*] <% upl.Save %>

 

[*] Total de Bytes Enviados: <%=upl.TotalBytes%>

 

[*] <% Set upl = Nothing %>

 

[*]<%

 

[*]'Declarando variveis

 

[*]'Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sNasci, sEnde, sBair, sCida, sEsta, sCep, sTele, sAlun, sOutra

 

[*]

 

[*]'Pegando os dados digitados nos campos e colocando em variaveis

 

[*]

 

[*]sEmailTo = "meu e-mail@hotmail.com"

 

[*]sNameTo = "Site"

 

[*]

 

[*]'Cria o objeto

 

[*] set mailer = server.createobject("SMTPsvg.Mailer")

 

[*] Mailer.FromName = nome

 

[*] Mailer.FromAddress = sEmailFrom

 

[*] 'Host para envio de emails

 

[*] Mailer.RemoteHost = "smtp2.locaweb.com.br"

 

[*] 'Mailer.AddRecipient sEmailTo, sNameTo

 

[*] Mailer.Recipient = sEmailTo

 

[*] Mailer.Subject = "Concurso Revela Brasil - "&nome

 

[*]

 

[*] 'Monta a texto para o envio

 

[*] strMsgHeader = nome & "(" & sEmailFrom & ") " & " preencheu o formulário do Concurso Revela Brasil! " & vbCrLf & vbCrLf

 

[*] strMsgFooter = "Frase: " & frase & vbCrLf & "Para ver a foto entre em <a href='http://www.yazigiindaiatuba.com.br/admin"' target='_blank'>http://www.yazigiindaiatuba.com.br/admin"</a> & vbCrLf & vbCrLf

 

[*] strMsgBody = "Nome: " &nome& vbCrLf & "E-mail: " &sEmailFrom & vbCrLf & "Data de Nascimento: " &nascimento & vbCrLf & "Endereço: " &endereco & vbCrLf & "Bairro: " &bairro & vbCrLf & "Telefone: " &telefone& vbCrLf & "Curso que Faz: " &curso

 

[*] Mailer.BodyText = strMsgHeader & strMsgFooter & strMsgBody

 

[*] ' Se for enviado redirecionar para obrigado.asp

 

[*] if Mailer.SendMail then

 

[*]  'Response.Redirect "obrigado.asp"

 

[*] else

 

[*] ' Se não for enviado mostra o erro que ocoreu

 

[*]  Response.Write ("Ocorreu um erro.<BR>")

 

[*]  Response.Write ("O Erro é " & Mailer.Response)

 

[*] end if

 

[*]%>

 

Não liguem, pois deixei o Respose.Write (SQL) "ligado" mesmo...

gostaria de saber o que fazer para pegar APENAS o nome do arquivo

[Cesão 1]

mas o código:

 

ASP

[*]strFileName = oFileUp.ShortFileName

 

[*]

 

eu tenho que colocar depois de eu ter aberto o objeto de upload? ou pode ser antes?

[Marcelo Barcellos 0]

Colega..Há algo de errado...Não dá para usar "Request" junto com Upload, isso, por causa do Form que deve ficar com o EncType= "MultiPart/form-data"

[Cesão 1]

Meu código está assim agora... mesmo assim não dá certo...

 

ASP

[*]<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %>

 

[*]<% upl.Path = "e:\home\yazigiindaiatuba\web\revela" %>

 

[*] <% upl.Save %>

 

[*] Total de Bytes Enviados: <%=upl.TotalBytes%>

 

[*] <% Set upl = Nothing %>

 

[*]<%

 

[*]pasta = "revela/"

 

[*]nome = Request.Form("nome")

 

[*]nascimento = Request.Form("nascimento")

 

[*]endereco = Request.Form("endereco")

 

[*]bairro = Request.Form("bairro")

 

[*]telefone = Request.Form("telefone")

 

[*]sEmailFrom = Request.Form("email")

 

[*]curso = Request.Form("curso")

 

[*]frase = Request.Form("frase")

 

[*]oFileUp.Form("foto").ShortFileName

 

[*]%>

 

[*]<!-- #include file="conn/conexao.asp" -->

 

[*]<%

 

[*]SQL="INSERT INTO revela (nome, nascimento, endereco, bairro, telefone, email, curso, frase, foto) VALUES('"&nome&"', '"&nascimento&"', '"&endereco&"', '"&bairro&"', '"&telefone&"', '"&sEmailFrom&"', '"&curso&"', '"&frase&"', '"&pasta&foto&"')"

 

[*]conexao.Execute(SQL)

 

[*]'response.write(sql)

 

[*]%>

 

[*]<%

 

[*]conexao.close()

 

[*]Set conexao = nothing

 

[*]%>

 

[*]

 

[*]<%

 

[*]'Declarando variveis

 

[*]'Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sNasci, sEnde, sBair, sCida, sEsta, sCep, sTele, sAlun, sOutra

 

[*]

 

[*]'Pegando os dados digitados nos campos e colocando em variaveis

 

[*]

 

[*]sEmailTo = "cesarzeppini@hotmail.com"

 

[*]sNameTo = "Yázigi Indaiatuba"

 

[*]

 

[*]'Cria o objeto

 

[*] set mailer = server.createobject("SMTPsvg.Mailer")

 

[*] Mailer.FromName = nome

 

[*] Mailer.FromAddress = sEmailFrom

 

[*] 'Host para envio de emails

 

[*] Mailer.RemoteHost = "smtp2.locaweb.com.br"

 

[*] 'Mailer.AddRecipient sEmailTo, sNameTo

 

[*] Mailer.Recipient = sEmailTo

 

[*] Mailer.Subject = "Concurso Revela Brasil - "&nome

 

[*]

 

[*] 'Monta a texto para o envio

 

[*] strMsgHeader = nome & "(" & sEmailFrom & ") " & " preencheu o formulário do Concurso Revela Brasil! " & vbCrLf & vbCrLf

 

[*] strMsgFooter = "Frase: " & frase & vbCrLf & "Para ver a foto entre em <a href='http://www.yazigiindaiatuba.com.br/admin"' target='_blank'>http://www.yazigiindaiatuba.com.br/admin"</a> & vbCrLf & vbCrLf

 

[*] strMsgBody = "Nome: " &nome& vbCrLf & "E-mail: " &sEmailFrom & vbCrLf & "Data de Nascimento: " &nascimento & vbCrLf & "Endereço: " &endereco & vbCrLf & "Bairro: " &bairro & vbCrLf & "Telefone: " &telefone& vbCrLf & "Curso que Faz: " &curso

 

[*] Mailer.BodyText = strMsgHeader & strMsgFooter & strMsgBody

 

[*] ' Se for enviado redirecionar para obrigado.asp

 

[*] if Mailer.SendMail then

 

[*]  'Response.Redirect "obrigado.asp"

 

[*] else

 

[*] ' Se não for enviado mostra o erro que ocoreu

 

[*]  Response.Write ("Ocorreu um erro.<BR>")

 

[*]  Response.Write ("O Erro é " & Mailer.Response)

 

[*] end if

 

[*]%>

[Marcelo Barcellos 0]

Não colega...Nem Request, nem Request.Form...O Correto é "ObjUpload.Form("NomeParametro")

[Cesão 1]

nada ainda... alguem me ajudaaaaaaaaaaaaaaaaaaaaaaaaaa:

 

meu codigo:

 

ASP

[*]<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %>

 

[*]<% upl.Path = "e:\home\yazigiindaiatuba\web\revela" %>

 

[*] <% upl.Save %>

 

[*] Total de Bytes Enviados: <%=upl.TotalBytes%>

 

[*] <% Set upl = Nothing %>

 

[*]<%

 

[*]pasta = "revela/"

 

[*]nome = Request.Form("nome")

 

[*]nascimento = Request.Form("nascimento")

 

[*]endereco = Request.Form("endereco")

 

[*]bairro = Request.Form("bairro")

 

[*]telefone = Request.Form("telefone")

 

[*]sEmailFrom = Request.Form("email")

 

[*]curso = Request.Form("curso")

 

[*]frase = Request.Form("frase")

 

[*]'strFilename = Mid(oFileUp.UserFilename, InstrRev(oFileUp.UserFilename, "\") + 1)

 

[*]'foto = strFileName(Request.Form("foto"))

 

[*]'oFileUp.Form("foto").ShortFileName

 

[*]ObjUpload.Form("foto")

 

[*]%>

 

[*]<!-- #include file="conn/conexao.asp" -->

 

[*]<%

 

[*]SQL="INSERT INTO revela (nome, nascimento, endereco, bairro, telefone, email, curso, frase, foto) VALUES('"&nome&"', '"&nascimento&"', '"&endereco&"', '"&bairro&"', '"&telefone&"', '"&sEmailFrom&"', '"&curso&"', '"&frase&"', '"&pasta&foto&"')"

 

[*]conexao.Execute(SQL)

 

[*]'response.write(sql)

 

[*]%>

 

[*]<%

 

[*]conexao.close()

 

[*]Set conexao = nothing

 

[*]%>

 

[*]

 

[*]<%

 

[*]'Declarando variveis

 

[*]'Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sNasci, sEnde, sBair, sCida, sEsta, sCep, sTele, sAlun, sOutra

 

[*]

 

[*]'Pegando os dados digitados nos campos e colocando em variaveis

 

[*]

 

[*]sEmailTo = "cesarzeppini@hotmail.com"

 

[*]sNameTo = "Yázigi Indaiatuba"

 

[*]

 

[*]'Cria o objeto

 

[*] set mailer = server.createobject("SMTPsvg.Mailer")

 

[*] Mailer.FromName = nome

 

[*] Mailer.FromAddress = sEmailFrom

 

[*] 'Host para envio de emails

 

[*] Mailer.RemoteHost = "smtp2.locaweb.com.br"

 

[*] 'Mailer.AddRecipient sEmailTo, sNameTo

 

[*] Mailer.Recipient = sEmailTo

 

[*] Mailer.Subject = "Concurso Revela Brasil - "&nome

 

[*]

 

[*] 'Monta a texto para o envio

 

[*] strMsgHeader = nome & "(" & sEmailFrom & ") " & " preencheu o formulário do Concurso Revela Brasil! " & vbCrLf & vbCrLf

 

[*] strMsgFooter = "Frase: " & frase & vbCrLf & "Para ver a foto entre em <a href='http://www.yazigiindaiatuba.com.br/admin"' target='_blank'>http://www.yazigiindaiatuba.com.br/admin"</a> & vbCrLf & vbCrLf

 

[*] strMsgBody = "Nome: " &nome& vbCrLf & "E-mail: " &sEmailFrom & vbCrLf & "Data de Nascimento: " &nascimento & vbCrLf & "Endereço: " &endereco & vbCrLf & "Bairro: " &bairro & vbCrLf & "Telefone: " &telefone& vbCrLf & "Curso que Faz: " &curso

 

[*] Mailer.BodyText = strMsgHeader & strMsgFooter & strMsgBody

 

[*] ' Se for enviado redirecionar para obrigado.asp

 

[*] if Mailer.SendMail then

 

[*]  'Response.Redirect "obrigado.asp"

 

[*] else

 

[*] ' Se não for enviado mostra o erro que ocoreu

 

[*]  Response.Write ("Ocorreu um erro.<BR>")

 

[*]  Response.Write ("O Erro é " & Mailer.Response)

 

[*] end if

 

[*]%>

[Mário Monteiro 179]

troca nome = Request.Form("nome")---ome = upl.Form("nome")e poe antes de destruir o objetoSet upl = Nothing

[Cesão 1]

Bom, juro que jah tentei tudo o que eu sabia...eu nao manjo mto de asp...se alguém puder fazer o favor de arrumar meu código jah usando o que tiver que ser usado para funcionar, eu agradeço...