Ir para conteúdo
Fórum Script Brasil

EDSONET

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    106

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por EDSONET

  3. Email Com Envio De Anexo

    em ASP

    Postado

    Bem galera como eu tinha prometido, quando eu conseguisse eu iria escrever um tópico ensinando como fazer um envio de e-mail com anexo.

    Primeiro tem que criar um formulário inicial, onde o usuário vai colocar os seus dados:

    - Nome

    - E-mail

    - Assunto

    - Mensagem

    - Anexo

    INDEX.ASP :

    <html>
<head>
<title>ENVIA E-MAIL COM ANEXO</title>
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
 <tr>
   <td width="100%">
     <form method="POST" action="envia_email.asp">
       <table border="1" width="100%">
         <tr>
           <td width="40%" align="right">Nome:</td>
           <td width="60%"><input type="text" name="txt_nome" size="24"></td>
         </tr>
         <tr>
           <td width="40%" align="right">E-mail:</td>
           <td width="60%"><input type="text" name="txt_email" size="24"></td>
         </tr>
         <tr>
           <td width="40%" align="right">Assunto:</td>
           <td width="60%"><input type="text" name="txt_assunto" size="24"></td>
         </tr>
         <tr>
           <td width="40%" align="right">Mensagem:</td>
           <td width="60%"><textarea rows="2" name="txt_mensagem"cols="20"></textarea></td>
         </tr>
         <tr>
           <td width="40%" align="right">Anexo:</td>
           <td width="60%"><input type="text" name="txt_anexo" size="24" value="<%=session("arquivo")%>">
             <a href="up.html">anexar</a></td>
         </tr>
         <tr>
           <td width="40%" align="right">&nbsp;</td>
           <td width="60%"><input type="submit" value="Enviar" name="b1"></td>
         </tr>
       </table>
     </form>
   </td>
 </tr>
</table>

</body>

</html>
    Se prestaram atenção no código viram que no campo Anexo tem uma session onde vai mostrar o nome do arquivo a ser anexado. <%=session("arquivo")%> Existe também um link ao lado do campo ANEXO onde o usuário vai poder escolher o seu arquivo para anexar. Nesta pagina UP.html, vai fazer UPLOAD do arquivo para dentro de uma pasta (“arquivos”) no servidor web, e daí o anexo será feito do arquivo que esta no servidor. UP. HTML : 
    <html>

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Aspupload.asp"> 

<table border="0" width="100%" cellspacing="0" cellpadding="0">
 <tr>
   <td width="35%" rowspan="3">
   </td>
   <td width="30%">
<p align="justify" style="line-height: 100%"><font size="1" face="Arial">
SELECIONE O ARQUIVO CORRETO PARA O ENVIO NO FORMULÁRIO</font>
   </td>
   <td width="35%" rowspan="3">
   </td>
 </tr>
 <tr>
   <td width="30%">
<p align="right"> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE1" size="44">
   </td>
 </tr>
 <tr>
   <td width="30%">
     <p align="right"><INPUT TYPE=SUBMIT VALUE=" UPLOAD "> 
   </td>
 </tr>
</table>

</FORM>
</html>
    ASPUPLOAD.ASP : 
    <%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save("\\caminho_do_servidor\clusterX\login_ftp\wwwroot\arquivos\")
%>

<%= Count %> <FONT SIZE="1" FACE="ARIAL">ARQUIVO ENVIADO

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("\\caminho_do_servidor\clusterX\login_ftp\wwwroot\arquivos\")
Set Files = Folder.Files
%>

<%
For each objUploadedFile In Upload.Files
arquivo = objUploadedFile.ExtractFileName
response.Write(": " & objUploadedFile.ExtractFileName)
seq = seq + 1
Next

'criei uma session para armazenar o no do arquivo
session("arquivo") = arquivo

if session("arquivo") <> "" then
  response.redirect "index.asp"
end if
%>
    Bom o UP.HTML juntamente com o ASPUPLOAD.ASP irão enviar (com upload) para uma pasta (arquivos) dentro do servidor. Dentro do código da pagina ASPUPLOAD.ASP existe uma SESSION onde irá armazenar o nome do arquivo. Depois do arquivo enviado para o servidor a pagina é redirecionada para a pagina inicial INDEX.ASP ai sim poderá ser enviado o e-mail com o anexo. Depois de preenchido o formulário e já com o arquivo no servidor podemos enviar o e-mail. ENVIA_EMAIL.ASP 
    <%
dim arquivo
arquivo = session("arquivo")
caminho = "\\caminho_do_servidor\clusterX\login_ftp\wwwroot\arquivos\"
caminho = caminho & arquivo

'Vamos recuperar os valores do formulário
nome = Request.Form("txt_nome")
email = Request.Form("txt_email")
assunto = Request.Form("txt_assunto")
mensagem = Request.Form("txt_mensagem")

'Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject("CDONTS.NewMail") 
msg.From = email 
msg.To="seu@email.com.br"
msg.Subject = assunto
texto = "O usuário "&nome&" lhe envio a mensagem abaixo:"
texto = texto & mensagem
msg.Body = texto
'Bom ai esta a linha onde vai anexar o arquivo ao e-mail
msg.AttachFile caminho
msg.Send
Set msg = Nothing

'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.write "E-mail Enviado "
Response.Write session("arquivo")
%>

    Olhando assim não parece ser tão difícil né? Mais foi sim. Dei uma super pesquisada na internet e não achei nada que falasse a respeito de um e-mail com anexo. Catando um pouco aqui, um pouco ali, montei esse sistema.

    Claro isso é o básico, da pra fazer varias restrições coisa que eu vou trabalhar em cima agora. Mais daí é barbada.

    Abraços biggrin.gif

  4. Email Com Envio De Anexo

    em ASP

    Postado

    Bem galera como eu tinha prometido, quando eu conseguisse eu iria escrever um tópico ensinando como fazer um envio de e-mail com anexo.

    Primeiro tem que criar um formulário inicial, onde o usuário vai colocar os seus dados:

    - Nome

    - E-mail

    - Assunto

    - Mensagem

    - Anexo

    INDEX.ASP :

    <html>
<head>
<title>ENVIA E-MAIL COM ANEXO</title>
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%">
      <form method="POST" action="envia_email.asp">
        <table border="1" width="100%">
          <tr>
            <td width="40%" align="right">Nome:</td>
            <td width="60%"><input type="text" name="txt_nome" size="24"></td>
          </tr>
          <tr>
            <td width="40%" align="right">E-mail:</td>
            <td width="60%"><input type="text" name="txt_email" size="24"></td>
          </tr>
          <tr>
            <td width="40%" align="right">Assunto:</td>
            <td width="60%"><input type="text" name="txt_assunto" size="24"></td>
          </tr>
          <tr>
            <td width="40%" align="right">Mensagem:</td>
            <td width="60%"><textarea rows="2" name="txt_mensagem"cols="20"></textarea></td>
          </tr>
          <tr>
            <td width="40%" align="right">Anexo:</td>
            <td width="60%"><input type="text" name="txt_anexo" size="24" value="<%=session("arquivo")%>">
              <a href="up.html">anexar</a></td>
          </tr>
          <tr>
            <td width="40%" align="right">&nbsp;</td>
            <td width="60%"><input type="submit" value="Enviar" name="b1"></td>
          </tr>
        </table>
      </form>
    </td>
  </tr>
</table>

</body>

</html>
    Se prestaram atenção no código viram que no campo Anexo tem uma session onde vai mostrar o nome do arquivo a ser anexado. <%=session("arquivo")%> Existe também um link ao lado do campo ANEXO onde o usuário vai poder escolher o seu arquivo para anexar. Nesta pagina UP.html, vai fazer UPLOAD do arquivo para dentro de uma pasta (“arquivos”) no servidor web, e daí o anexo será feito do arquivo que esta no servidor. UP. HTML : 
    <html>

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Aspupload.asp"> 

<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="35%" rowspan="3">
    </td>
    <td width="30%">
<p align="justify" style="line-height: 100%"><font size="1" face="Arial">
SELECIONE O ARQUIVO CORRETO PARA O ENVIO NO FORMULÁRIO</font>
    </td>
    <td width="35%" rowspan="3">
    </td>
  </tr>
  <tr>
    <td width="30%">
<p align="right"> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE1" size="44">
    </td>
  </tr>
  <tr>
    <td width="30%">
      <p align="right"><INPUT TYPE=SUBMIT VALUE=" UPLOAD "> 
    </td>
  </tr>
</table>

</FORM>
</html>
    ASPUPLOAD.ASP : 
    <%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save("\\terraempresas.com.br\cluster8\nossae\wwwroot\arquivos\")
%>

<%= Count %> <FONT SIZE="1" FACE="ARIAL">ARQUIVO ENVIADO

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("\\terraempresas.com.br\cluster8\\nossae\wwwroot\arquivos")
Set Files = Folder.Files
%>

<%
For each objUploadedFile In Upload.Files
arquivo = objUploadedFile.ExtractFileName
response.Write(": " & objUploadedFile.ExtractFileName)
seq = seq + 1
Next

'criei uma session para armazenar o no do arquivo
session("arquivo") = arquivo

if session("arquivo") <> "" then
   response.redirect "index.asp"
end if
%>
    Bom o UP.HTML juntamente com o ASPUPLOAD.ASP irão enviar (com upload) para uma pasta (arquivos) dentro do servidor. Dentro do código da pagina ASPUPLOAD.ASP existe uma SESSION onde irá armazenar o nome do arquivo. Depois do arquivo enviado para o servidor a pagina é redirecionada para a pagina inicial INDEX.ASP ai sim poderá ser enviado o e-mail com o anexo. Depois de preenchido o formulário e já com o arquivo no servidor podemos enviar o e-mail. ENVIA_EMAIL.ASP 
    <%
dim arquivo
arquivo = session("arquivo")
caminho = "\\caminho_do_servidor\clusterX\login_ftp\wwwroot\arquivos\"
caminho = caminho & arquivo

'Vamos recuperar os valores do formulário
nome = Request.Form("txt_nome")
email = Request.Form("txt_email")
assunto = Request.Form("txt_assunto")
mensagem = Request.Form("txt_mensagem")

'Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject("CDONTS.NewMail") 
msg.From = email 
msg.To="seu@email.com.br"
msg.Subject = assunto
texto = "O usuário "&nome&" lhe envio a mensagem abaixo:"
texto = texto & mensagem
msg.Body = texto
'Bom ai esta a linha onde vai anexar o arquivo ao e-mail
msg.AttachFile caminho
msg.Send
Set msg = Nothing

'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.write "E-mail Enviado "
Response.Write session("arquivo")
%>

    Olhando assim não parece ser tão difícil né? Mais foi sim. Dei uma super pesquisada na internet e não achei nada que falasse a respeito de um e-mail com anexo. Catando um pouco aqui, um pouco ali, montei esse sistema.

    Claro isso é o básico, da pra fazer varias restrições coisa que eu vou trabalhar em cima agora. Mais daí é barbada.

    Abraços!!! wink.gif

  6. Email Com Anexo

    em ASP

    Postado

    Seguinte o mais dificil eu já fiz, mais eu to me quebrando em uma parte do código.

    Estou desenvolvendo um e-mail que envia anexo. Tem o Formulario e tem um campo em de o cara anexa o arquivo, abre uma nova janela onde é feito o upload desse arquivo para o servidor. Depois de fazer upload do arquivo a pagina é redirecionada devolta para a pagina do formulario, e no campo do anexo esta o nome do arquivo ("teste.txt").

    O que estou tentando fazer:

    - O arquivo já esta no sevidor

    - Só falta mandar o e-mail com o arquivo anexado

    - Já deixo somente o nome do arquivo dentro de uma variavel

    - E tento adicionar essa variavel na linha de código que faz o anexo.

    Estou fazendo isso em CDONTS:

    <%
dim arquivo
arquivo = session("arquivo")

'Vamos recuperar os valores do formulário
nome = Request.Form("txt_nome")
email = Request.Form("txt_email")
assunto = Request.Form("txt_assunto")
mensagem = Request.Form("txt_mensagem")
evento = request.form ("combo_evento")
espaco = " - "

'Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject("CDONTS.NewMail") 
msg.From = email 
msg.To="edsonscheffer@MSN.com"
msg.Subject = assunto & espaco & evento
texto = "O usuário "&nome&" lhe envio a mensagem abaixo:"
texto = texto & mensagem
msg.Body = texto
'############################################
'AQUI ESTA O PROBLEMA PELO MENOS EU ACHO
msg.AddAttachment Server.MapPath("/arquivos/"&arquivo&"")
'############################################
msg.Send
Set msg = Nothing

'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.write "E-mail Enviado"
%>

    BOM SE alguém TEM UMA IDEIA, ESTAMOS AE!

    AH EU FIZ UMA PROMESSA, SE EU CONSEGUIR FAZER ISSO EU VOU POSTAR UM tópico COM TODO O CÓDIGO DESENVOLVIDO.

  9. Aspupload

    em ASP

    Postado

    Pessoal,

    Estou desenvolvendo um código onde eu consiga capturar o nome do arquivo, de algum jeito ou forma sei lá como.

    Tipo, tem o formulario de envio de arquivo certo? Calro eu vou usar um input tipo file, onde vai mostrar todo o caminho do arquivo que deverá ser feito o upload.

    Ex: "c:\pasta1\pasta2\TESTE.TXT"

    Sei que existe uma forma de pegar apenas o nome TESTE.TXT. Vou colocar alguns códigos que desenvolvi tentando fazer isto:

    Primeiro:

    <%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save("\\terraempresas.com.br\cluster8\nossae\wwwroot\arquivos\")
%>

<%= Count %> arquivo(s) enviad(s).

<%
For Each File in Upload.Files
                    Response.Write "Nome Do Arquivo: "
                    Response.Write File.OriginalFileName 'Detalhe, com esse comando deveria mostrar o nome do arquivo mais da um erro
Next
%>
    Segundo: 
    <%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save("\\terraempresas.com.br\cluster8\nossae\wwwroot\arquivos\")
%>

<%= Count %> arquivo(s) enviad(s).

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("\\terraempresas.com.br\cluster8\\nossae\wwwroot\arquivos")
Set Files = Folder.Files
For each File in Files
Response.write File.OriginalFileName
next
%>

    Tem um monte de comando do ASPULOAD mais o que eu quero que funcione não funciona, que seria o OriginalFileName.

    Se algume tem uma dica, uma ideia, qualquer coisa que possa me ajudar ficarei muito grato.

    Edson.

  11. Aspupload

    em ASP

    Postado

    Só você mesmo pra responder as minhas duvidas, pensei que ninguém ia dar bola pra mim...

    Sim entendi a lógica, mais eu não sei como funciona esses comandos como por exemplo o Split ...

    Se você tive o código sei lá, eu sei que é ruim de vc`s mandarem o código, mas eu não tenho noçao de como fazer isso! Pegar o caminho e colocar na variavel ai sim, mais na parte de separar o caminho ai já não faço a minima ideia.

    Se você tiver outra ideia ou forma de me ajudar eu ficaria grato... Tipo, eu to em funçao daquele esquema de envio de e-mail com anexo, pegando o nome do arquivo fica facil de fazer o que eu quero!

    Help me!!!

  12. Aspupload

    em ASP

    Postado

    PRECISO CAPTURAR O NOME DO ARQUIVO DE QUE FOI FEITO UPLOAD.

    TIPO, AI ESTA O CÓDIGO DE UPLOAD E LOGO DEPOIS QUE TERMINA ELE VAI NO DIRETORIO ONDE VOI SALVO O ARQUIVO E CAPTURA O ARQUIVO... PELO MENOS ERA PRA FAZER ISSO.

    alguém SABE FAZER ISSO...???

    <%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save("\\terraempresas.com.br\clusterx\login_ftp\wwwroot\arquivos\")
%>

<%= Count %> arquivos enviados.

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath("/arquivos)")
Set Files = Folder.Files
For each File in Files
Response.write File.name
next
%>

    sad.gif

  13. Aspupload

    em ASP

    Postado

    Estou fazendo um upload, mais no momento que o upload termina eu tento capturar o nome do arquivo no diretorio especificado.

    <%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save("\\terraempresas.com.br\clusterx\login_ftp\wwwroot\arquivos\")
%>

<%= Count %> arquivos enviados.

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath("/arquivos)")
Set Files = Folder.Files
For each File in Files
Response.write File.name
next
%>

    Será que algume sabe fazer isso de outra maneira?

  14. Aspmail Anexo

    em ASP

    Postado

    Tipo o cara pega o arquivo lá nos quintos dos infernos, e"x:

    "c:\pasta1\pasta33\pasta_mortadela\maisumapasta\teste.txt"

    Mais na verdade eu só quero o "teste.txt"

    Entendeu? Eu não sei fazer isso...

  17. Aspmail Anexo

    em ASP

    Postado

    Hein dark0 , bem que podiamos abrir um tópico sobre este assunto, eu aposto que eu não sou o unico que deve ter este mesmo problema de envio de e-mail com anexo. Seria muito interessante.

    Não achas?

  18. Aspmail Anexo

    em ASP

    Postado

    Nossa, só o Dark0 se prestou a me ajudar, mais cade o resto, me desculpem mais este forum era muito bom, mais parece que a cada dia o nivel esta baixando.

    Então eu peço que, alguém que tenha um certo conhecimento em ASP ou já tenha feito algo parecido com o que eu pretendo executar me ajudem, não custa nada!

    Grato,

    Edson Scheffer

  19. Aspmail Anexo

    em ASP

    Postado

    huh.gif

    Olha eu já pensei nessa lógica, mais em varios exemplos, como o que eu mostrei deveria mandar o arquivo sem enviar para o servidor.

    Tem que ter outro jeito...

    Aquela velha historia, quem pensa pouco trabalha mais e quem pensa mais trabalha pouco.

    E outra eu sou leigo em ASP, não tenho conhecimento suficiente para fazer esse processo todo.

    A lógica a gente tem, mais como botar em funcionamento ai é outra historia!

  20. Aspmail Anexo

    em ASP

    Postado

    Vamos trocar uma ideia.

    Tipo eu estou desenvolvendo um site de uma Empresa que promove Eventos, e existe determinados eventos que tem apresentaçoes de trabalhos, e estes trabalhos devem ser enviados para a empresa onde seram analisados.

    Bom, no site teria uma pagina onde teria um formulario para a pessoa preencher e anexar o seu trabalho.

    Bom o envio de e-mail moleza, mais tinha ir o anexo junto.

    Mais como eu devo fazer um upload do arquivo e depois mandar o e-mail com a arquivo anexado??? Me explica a lógica então, sei lá, eu to atrasado nesta parte.

    Detalhe, eu sei que isso foi bastante discutido aqui, já deixei varios tópicos e ninguém me ajudou realmente. Bom desta ve eu estou decido a sair daqui com uma solução. Espero que me ajude. Por que isso já esta me quebrando a cabeça. Antes eu usava Cdonts, decidi mudar para AspMail...

    Bom, to por vc`s...

  21. Aspmail Anexo

    em ASP

    Postado

    Bom eu fiz um có digo bem facil de envio de e-mail, mais eu gostaria que ele enviase o anexo designado, mais ele não vai.

    Deem uma olhada ou testem ele, pois eu já testei mais ele só manda o e-mail mais o anexo não vai.

    Estou aberto a sugestões.

    <%
' Cria o componente aspmail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' Nome do Remetente
Mailer.FromName = "Empresa S/A"
' E-mail do Rementente
Mailer.FromAddress= "edsonscheffer@MSN.com"
' Servidor de envio de e-mail
Mailer.RemoteHost = "mail.terraempresas.com.br"
' Nome / Endereço de quem recebera o E-mail
Mailer.AddRecipient "Cliente", "edson@grandepoa.com.br"
' Assunto do E-mail
Mailer.Subject = "ASPMAIL !!!"
' Campo da mensagem
Mailer.BodyText = "Testando o ASPMAIL"
' Mandando anexo
Mailer.AddAttachment "c:\dir\teste.txt"

if Mailer.SendMail then
Response.Write "E-mail enviado"
else
Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response
end if
%>

  23. Anexo No Email - Codonts

    em ASP

    Postado

    BOM ESTA AI O CÓDIGO, MAIS NIGUEM CONSEGUE ME AJUDAR! já ESTOU PENSANDO QUE não EXISTE MANEIRA DE ENVIAR UM E-MAIL DE UM SITE COM ANEXO...

    DETALHE, NO FORMULARIO É USADO INPUT TIPO FILE, PARA PEGAR O CAMINHO DO ARQUIVO.

    <html><head>
<title>Envia Email</title></head>

<body>
<%
    On Error Resume Next

    If err.number>0 then
        response.write "Mensagem não Enviada"
        response.write "Erro Inesperado Encontrado" & "<br>"
        response.write "Erro Número.....:"&err.number&"<br>"
        response.write "Descrição.......:"&err.description&"<br>"
        response.write "Help Context....:"&err.helpcontext&"<br>"
        response.write "Help Path.......:"&err.helppatch&"<br>"
        response.write "Native Error....:"&err.nativeerror&"<brP>"
        response.write "Origem..........:"&err.source&"<br>"
        response.write "Estado SQL......:"&err.sqlstate&"<br"
    Else
        dim objEmail
        dim wLista
        dim wPara
        dim wCc
        dim wCco
        dim wAssunto
        dim wMensagem
        dim wAnexar
        dim wImportancia

        wPara=Request.form("txtPara")
        wCc=Request.form("txtCc")
        wCco=Request.form("txtCco")
        wAssunto=Request.form("txtAssunto")
        wMensagem=Request.form("txtMensagem")
        wAnexar=Request.form("cmdAnexar")

        if wPara="" then
            Response.write "Impossível enviar e-mail sem destinatário"
        Else
    
    Set objEmail=Server.createObject("CDONTS.NEWMAIL")

    objEmail.From="contato@agitosnoturnos.com"
    objEmail.To=wPara
    objEmail.Bcc=wCco
    objEmail.Subject=wAssunto
    objEmail.Body=wMensagem
    objEmail.AttachFile=wAnexar
    objEmail.Importance=2
    
    objEmail.Send "edson@edson.com.br", wPara, wAssunto, wMensagem, cdoHight
    response.write "Email enviado com Sucesso!"

    End if
    End if

%>

</body>

</html>

    BOM VAMOS VER SE alguém TEM UMA IDEIA!

  24. Asp E Bd

    em ASP

    Postado

    VICTOR MEU GRANDE CAMARADA, ERA COM você MESMO QUE QUERIA FALAR, SE LEMBRA DA MINHA DUVIDA DO E-MAIL COM ANEXO? É ESSE MESMO QUE você PODE ME AJUDAR. JÁ COLOQUEI O tópico ALI E PENSEI QUE você FOSSE ME AJUDAR...

    ESTE DE FORMULARO JÁ ESTA RESOLVIDO...

    AGRARDO RESPOSTA!

    VLW tongue.giftongue.giftongue.gif

  25. Asp E Bd

    em ASP

    Postado

    Bom, o probelam é o seguinte:

    Fiz um formulario, onde os dados são garavados(ou pelo menos deveriam ser) no BD que fica no mesmo diretorio.

    Cadastra os dados neste BD, mais isso por algumas horas, do nada somem estes dados registrados.

    Já fiz cadastros e logo depois olhava no BD e lá estavam os dados REGISTRADOS corretamente.

    Algumas horas depois olho no BD e aqueles dados cadastrados já não estam mais lá!

    Vou mostra o me código pra vc's e me digam se ah algo de errado ou se vc's tem algum tipo de solução.

    logado.asp :

    <%
'################################################
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("banco.mdb")
Conn.open

Dim nome, SQL, RS, conexao, asp

'################################################

If Request.Form("titulo") <> "" and Request.Form("cliente") <> "" and Request.Form("data_chamada") <> "" and Request.Form("data_atendimento") <> "" and Request.Form("hora_chamada") <> "" and Request.Form("hora_chegada") <> "" and Request.Form("hora_saida") <> "" and Request.Form("motivo_chamado") <> "" and Request.Form("servico_realizado") <> "" and Request.Form("atendido_por") <> "" then
        titulo = request.Form ("titulo")
        cliente = request.Form ("cliente")
  	data_chamada = request.Form ("data_chamada")
  	data_atendimento = request.Form ("data_atendimento")
  	hora_chamada = request.Form ("hora_chamada")
  	hora_chegada = request.Form ("hora_chegada")
  	hora_saida = request.Form ("hora_saida")
  	motivo_chamado = request.Form ("motivo_chamado")
  	servico_realizado = request.Form ("servico_realizado")
        atendido_por = request.Form ("atendido_por")
'############inicio código sql###################

	SQL = "insert into tb_atendimento"
	SQL= SQL & "(titulo,cliente,data_chamada,data_atendimento,hora_chamada,hora_chegada,hora_saida,motivo_chamado,servico_realizado,atendido_por)"
	SQL= SQL & "VALUES"
	SQL= SQL & "('"& titulo &"',"
	SQL= SQL & " '"& cliente &"',"
	SQL= SQL & " '"& data_chamada &"',"
	SQL= SQL & " '"& data_atendimento &"',"
	SQL= SQL & " '"& hora_chamada &"',"
	SQL= SQL & " '"& hora_chegada &"',"
	SQL= SQL & " '"& hora_saida &"',"
	SQL= SQL & " '"& motivo_chamado &"',"
	SQL= SQL & " '"& servico_realizado &"',"
	SQL= SQL & " '"& atendido_por &"')"

'################################################

  Set Rs = Conn.Execute(SQL)
  End If
%>

    Pra mim esta "perfeito", mais agora vai fazer o que?!?!

    Espero que me ajudem.

×
×
  • Criar Novo...