Ir para conteúdo
Fórum Script Brasil

EDSONET

Membros
  • Total de itens

    106
  • Registro em

  • Última visita

Tudo que EDSONET postou

  1. EDSONET

    Email Com Envio De Anexo

    OUTRA HORA EU COLOCO LÁ! AGORA EU TO TRAMPANDO, PODE FECHAR O tópico! TÉ +
  2. EDSONET

    Email Com Envio De Anexo

    MERDA! EU não QUERIA COLOCAR AQUI, EU TENTEI COLOCAR NO tópico ONDE TEM AS FUNCÕES, MAIS VEIO PARAR AQUI... DROGA!
  3. 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
  4. 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!!!
  5. EDSONET

    Email Com Anexo

    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.
  6. EDSONET

    Aspupload

    alguém me ajudaaaaaaaaaaaaa???
  7. EDSONET

    Aspupload

    Socorrroooooo !!!!!!!
  8. EDSONET

    Aspupload

    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.
  9. EDSONET

    Aspupload

    Valeu eu vou fazer alguns testes!
  10. EDSONET

    Aspupload

    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!!!
  11. EDSONET

    Aspupload

    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 %>
  12. EDSONET

    Aspupload

    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?
  13. EDSONET

    Aspmail Anexo

    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...
  14. EDSONET

    Aspmail Anexo

    Dark0, como eu faço pra capturar o nome do arquivo que eu to fazendo upload???
  15. EDSONET

    Aspmail Anexo

    beleza valeu!
  16. EDSONET

    Aspmail Anexo

    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?
  17. EDSONET

    Aspmail Anexo

    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
  18. EDSONET

    Aspmail Anexo

    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!
  19. EDSONET

    Aspmail Anexo

    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...
  20. EDSONET

    Aspmail Anexo

    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 %>
  21. EDSONET

    Anexo No Email - Codonts

    E já testei assim e não deu certo! Mais veleu pela força!
  22. 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!
  23. EDSONET

    Asp E Bd

    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
  24. EDSONET

    Asp E Bd

    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...