Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal alguem pode me dizer porque meu codigo esta dando esse erro ?
error '80004005' /temp/finaliza.asp, line 96
O codigo é o seguinte:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% ' Esta secao faz o upload do arquivos para o diretório /dadosSet myFileUpload = Server.CreateObject("SoftArtisans.FileUp") if myFileUpload.form("logotipo").UserFilename <> "" then' diretório em que a imagem será salvaPasta = Server.MapPath("logotipos")myFileUpload.Form("logotipo").Path = PastamyFileUpload.form("logotipo").Saveend ifarquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)MMrdn = myFileUpload.form("RDN")MMfonte = myFileUpload.form("fonte")MMfrase = myFileUpload.form("frase")MMqtd_palavras = myFileUpload.form("qtd_palavras")MMvalortxt = myFileUpload.form("valortxt")MMqtd_placas = myFileUpload.form("qtd_placas")MMpreco_placa_unit = myFileUpload.form("preco_placa_unit")MMpreco_total_placas = myFileUpload.form("preco_total_placas")MMvalortotal = myFileUpload.form("valortotal")MMnome = myFileUpload.form("nomecad")MMemail = myFileUpload.form("emailcad")MMend = myFileUpload.form("end")MMcomplemento = myFileUpload.form("complemento")MMbairro = myFileUpload.form("bairro")MMcep1 = myFileUpload.form("cep1")MMcep2 = myFileUpload.form("cep2")MMtelefone = myFileUpload.form("telefone")MMestado = myFileUpload.form("estado")MMcidade = myFileUpload.form("cidade")var_anexo = Pasta &"/"& Arquivovar_nomere = MMnomevar_emailre = MMemailvar_to = "paulo@blancalion.com.br"' Esta secao faz o upload do arquivos para o diretório /dadosIf Err ThenResponse.Write("<b>Erro : </b>" & Err.description & "<br>")Set myFileUpload = nothingResponse.EndEnd If%> <%conteudo = "<html>" &_conteudo = conteudo & "<head>"&_conteudo = conteudo & "<meta http-equiv=""Content-Type""" &_conteudo = conteudo & "content=""text/html; charset=iso-8859-1"">" &_conteudo = conteudo & "<style type=""text/css"">"conteudo = conteudo & "<!--" &_conteudo = conteudo & "body {" &_conteudo = conteudo & "Background-color: #BEA87B;{" &_conteudo = conteudo & "body,td,th {"&_conteudo = conteudo & "font-family: Arial, Helvetica, sans-serif;"&_conteudo = conteudo & "font-size: 12px;"&_conteudo = conteudo & "color: #000000;}" &_conteudo = conteudo & ".style1 {"&_conteudo = conteudo & "font-size: 16px;"&_conteudo = conteudo & "font-weight: bold;"&_conteudo = conteudo & "color: #660000;}"&_conteudo = conteudo & "-->"&_conteudo = conteudo & "</style></head>"&_conteudo = conteudo & "<body>"&_conteudo = conteudo & "<p align=""center"" class=""style1"">Dados do Cliente </p>"&_conteudo = conteudo & "<p>Nome do Cliente: "&MMnome&"<br><br>"&_conteudo = conteudo & "E-mail: "&MMemail&"<br><br>"&_conteudo = conteudo & "Telefone: "&MMtelefone&"<br><br>"&_conteudo = conteudo & "Endereço: "&MMend&"<br><br>"&_conteudo = conteudo & "Complemento:"&MMcomplemento&"<br><br>"&_conteudo = conteudo & "Bairro:"&MMbairro&"<br><br>"&_conteudo = conteudo & "Cep:"&MMcep1&" - "&MMcep2&"<br><br>"&_conteudo = conteudo & "Estado: "&MMestado&" / "&MMcidade&" </p><br>"&_conteudo = conteudo & "<p align=""center"" class=""style1"">Dados para o Orçamento</p>"&_conteudo = conteudo & "<p align=""left"">Fonte Escolhida : "&MMfonte&"<br><br>"&_conteudo = conteudo & "Texto para Gravação:"&MMfrase&"<br><br><br>"&_conteudo = conteudo & "Existem <span class=""style1"">"&qtd_palavras&"</span> palavras neste texto e o valor a ser cobrado é <span class=""style1"">R$"&MMvalortxt&"</span>. por <span class=""style1"">"&MMqtd_placas&"</span> gravações.<br><br>"&_conteudo = conteudo & "Placas a serem gravadas <span class=""style1"">"&MMqtd_placas&"</span>.<br><br>"&_conteudo = conteudo & "Valor Unitário da Placa <span class=""style1"">R$"&MMpreco_placa_unit&"</span>.<br><br>"&_conteudo = conteudo & "Valor Total das Placas <span class=""style1"">R$"&MMpreco_total_placas&"</span>.</p><br><br>"&_conteudo = conteudo & "<p align=""left""><span class=""style1"">Valor Total da Compra é de R$"&MMvalortotal&"</span><br><br><br><br></p>"&_conteudo = conteudo & "</body>"conteudo = conteudo & "</html>"%><% Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = MMemail Mailer.To = "paulo@blancalion.com.br" Mailer.BodyFormat = 0 ' parametro de formatação Mailer.MailFormat = 0 ' parametro de formatação if var_anexo <> "" thenMailer.AttachFile var_anexo ' Anexoend ifMailer.Subject = "Assunto do E-mail" Mailer.Body = conteudo If Mailer.Send Then RESPONSE.Redirect("enviado.asp")End If Set Mailer = Nothing%>A linha 96 contem
Mailer.AttachFile var_anexo ' Anexo
Obrigado Mais uma vez galera
Carregando comentários...
