upload

[midirodbr 0]

olá pessoal, ...

oq pode esta dando de errado aqui...URGENTE

 

set uploadform = Server.CreateObject("SoftArtisans.FileUp")

fn = uploadform.Path = "e:\home\marcenariabrasileira\web\form\att" & fs.GetFileName(uploadform("arq_origem").FilePath)

set fs = Nothing

uploadform("arq_origem").SaveAs(fn)

 

' Salvando TXT e pegando valores de variáveis

 

' nome

uploadform("nome").SaveAs(fn & ".nome")

set fs = server.CreateObject("Scripting.FileSystemObject")

Set f = fs.OpenTextFile(fn & ".nome", 1)

fnome = f.ReadAll

set f = Nothing

set fs = Nothing

 

 

Set mail = CreateObject("CDONTS.NewMail")

 

mail.bodyformat = 0

mail.mailformat = 0

mail.Subject = "Novo Pedido de Orçamento"

mail.From = "<" & fnome + "> " & femail

mail.To = "midirodbr@hotmail.com"

mail.Body = fcomentarios

 

mail.AttachFile (fn)

mail.Send

 

Set Mail = Nothing

 

set uploadform = Nothing

[Angelosil 0]

que erro que dá cara? aparentemente tá certo.