Gravar no banco e disparar e-mail!

Vagner Nunes · Novembro 24, 2008

Prezados,

Boa tarde, preciso da ajuda dos senhores mais uma vez.

Tenho um formulário de cadastro que grava em um banco access, até aí tudo bem, porém meu superior me solicitou que além de gravar no banco, ele quer que este mesmo formulário, além de gravar no banco, envie um e-mail para um e-mail cadastrado no campo de e-mail cadastradol

formulário - gravar no banco

- enviar e-mail.

Como posso fazer isso, não tenho nem idéia de como começar, alias tive, porém grava no banco grava direito, mas o e-mail que é bom mesmo não aparece.

Seria muito grato se alguém pode me ajudar nesta missão.

Sds,

Vagner Nunes

bareta · Novembro 24, 2008

após a rotina de cadastro adicione uma nova para enviar o email...

se não sabe como faze-lo ... digite no google

enviar e-mail em asp, e você ira encontrar mta coisa...

crie seu código e se tiver problemas post aqui...

Vagner Nunes · Novembro 24, 2008

Pesquisei no Google e testei alguns códigos, mas sem sucesso.

Eu tenho um formulário que envia e-mail e tenho formulários de cadastro em banco, mas quando junto os dois não funciona de jeito nenhum.

Valeu.....

Sds,

Vagner Nunes

Vagner Nunes · Novembro 24, 2008

Prezados,

Alguém poderia me ajudar, o código abaixo sozinho em meu servidor funciona perfeitamente:

<%
If request.querystring("op") = 1 then
   Set mail = CreateObject("CDONTS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = "biblioteca@cesat.br" ' e-mail de quem vai receber a mensagem 
   mail.CC = "ogoulart@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "CONTATOS[SITE] - " & request.form("assunto")
   mail.Body = "Nome: " & request.form("nome") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Assunto: " & request.form("assunto") & vbCrLf & "Mensagem: " & request.form("mens")
   mail.Send 
   Set mail = Nothing 
else

end if
%>

Porém tentei jogar este código na página de cadastro, porém o envio para o banco é feito, mas o e-mail não chega.

Obrigado..

Sds,

Vagner Nunes

jow · Novembro 24, 2008

testa ai ...

<%
vnome= request.form("nome") 
vemail= request.form("email") 

sql=INSERT INTO tabela (nome, email) values ('"&vnome&"', '"&vemail&"')
Set rs = conexao.execute(sql)

If request.querystring("op") = 1 then
   Set mail = CreateObject("CDONTS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = "biblioteca@cesat.br" ' e-mail de quem vai receber a mensagem 
   mail.CC = "ogoulart@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "CONTATOS[SITE] - " & request.form("assunto")
   mail.Body = "Nome: " & request.form("nome") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Assunto: " & request.form("assunto") & vbCrLf & "Mensagem: " & request.form("mens")
   mail.Send 
   Set mail = Nothing 
else

end if
%>

bareta · Novembro 24, 2008

troque o cdonts por cdosys e poste seu código completo.

Vagner Nunes · Novembro 25, 2008

Prezados,

a página está apresentando o seguinte erro:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/biblioteca/solicitacoes/solicitacao.asp, line 335

sql=INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"')

-----------^

Segue o código da página completo:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Conectar.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_Conectar_STRING
  MM_editTable = "solicitacoes"
  MM_editRedirectUrl = "sucess_solicitacao_coordenacao.asp"
  MM_fieldsStr  = "solicitante|value|curso|value|disciplina|value|email|value|titulo|value|autor|value|bibliografia|value|edicao|value|editora|value|nbiblioteca|value|nsolicitados|value|emailcoord|value|aprovado|value"
  MM_columnsStr = "solicitante|',none,''|curso|',none,''|disciplina|',none,''|email|',none,''|titulo|',none,''|autor|',none,''|bibliografia|',none,''|edicao|',none,''|editora|',none,''|nbiblioteca|',none,''|nsolicitados|',none,''|emailcoord|',none,''|aprovado|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim Solicitante__MMColParam
Solicitante__MMColParam = "1"
If (Request.QueryString("identificacao") <> "") Then 
  Solicitante__MMColParam = Request.QueryString("identificacao")
End If
%>
<%
Dim Solicitante
Dim Solicitante_numRows

Set Solicitante = Server.CreateObject("ADODB.Recordset")
Solicitante.ActiveConnection = MM_Conectar_STRING
Solicitante.Source = "SELECT * FROM solicitantes WHERE identificacao = '" + Replace(Solicitante__MMColParam, "'", "''") + "'"
Solicitante.CursorType = 0
Solicitante.CursorLocation = 2
Solicitante.LockType = 1
Solicitante.Open()

Solicitante_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Biblioteca Cesat</title>
<style type="text/css">
<!--
body,td,th {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #000000;
}
body {
    background-color: #F4F4F4;
}
a {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #000000;
}
a:link {
    text-decoration: none;
}
a:visited {
    text-decoration: none;
    color: #999999;
}
a:hover {
    text-decoration: none;
    color: #666666;
}
a:active {
    text-decoration: none;
    color: #999999;
}
.style2 {font-size: 10px}
.style8 {font-size: 5px}
-->
</style>
</head>

<body>
<table width="760" border="0" align="center" bgcolor="#FFFFFF">
  <tr>
    <td><table width="760" border="0">
      <tr>
        <td colspan="4"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="760" height="100">
          <param name="movie" value="imagens/topo.swf" />
          <param name="quality" value="high" />
          <embed src="imagens/topo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="760" height="100"></embed>
        </object></td>
        </tr>
      <tr>
        <td width="18"><img src="imagens/registration1_(edit)_16x16.gif" width="16" height="16" /></td>
        <td width="280">Solicita&ccedil;&otilde;es:</td>
        <td width="368">Seja bem vindo:<span class="style2"><%=(Solicitante.Fields.Item("solicitante").Value)%> </span></td>
        <td width="82">ID: <span class="style2"><%=(Solicitante.Fields.Item("ID").Value)%></span></td>
      </tr>
      <tr>
        <td colspan="4" bgcolor="#FFFFFF"><div align="center">
          <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
            <table width="756" align="center">

              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Solicitante:</div></td>
                <td bgcolor="#666666">                    <div align="left">
                  <input name="solicitante" type="text" value="<%=(Solicitante.Fields.Item("solicitante").Value)%>" size="75" />                
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Curso:</div></td>
                <td bgcolor="#666666"><div align="left">
                    <input name="curso" type="text" value="<%=(Solicitante.Fields.Item("curso").Value)%>" size="55" />
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Disciplina:</div></td>
                <td bgcolor="#666666"><div align="left">
                    <input name="disciplina" type="text" value="<%=(Solicitante.Fields.Item("disciplina").Value)%>" size="65" />
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Email:</div></td>
                <td bgcolor="#666666">
                      <div align="left">
                        <input name="email" type="text" value="<%=(Solicitante.Fields.Item("email").Value)%>" size="45" />
                      </div></td></tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td>
                <td bgcolor="#666666">&nbsp;</td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td>
                <td bgcolor="#666666"><div align="left"></div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Titulo:</div></td>
                <td bgcolor="#666666"><div align="left">
                    <input type="text" name="titulo" value="" size="75" />
                </div></td>
              </tr>
              <tr valign="baseline">
                <td width="104" align="right" nowrap bgcolor="#EFEFEF"><p align="left">Autor:</p></td>
                <td width="640" bgcolor="#666666">
                  <div align="left">
                    <input type="text" name="autor" value="" size="40">                
                    </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Bibliografia:</div></td>
                <td bgcolor="#666666">
                  <div align="left">
                    <label>
                    <select name="bibliografia" id="bibliografia">
                      <option value="Basica">B&aacute;sica</option>
                      <option value="Complementar">Complementar</option>
                    </select>
                    </label>
</div></td>
              </tr>

              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Edicao:</div></td>
                <td bgcolor="#666666">
                  <div align="left">
                    <input type="text" name="edicao" value="" size="10">
                    Editora:                
                    <input type="text" name="editora" value="" size="32" />
                  </div></td>
              </tr>



              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">N. Biblioteca:</div></td>
                <td bgcolor="#666666">
                  <div align="left">
                    <input type="text" name="nbiblioteca" value="" size="10" />
                  N. Solicitados:
                  <input type="text" name="nsolicitados" value="" size="10" />
</div></td>
              </tr>


              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td>
                <td bgcolor="#666666">&nbsp;</td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">E-mail do Coord.: </div></td>
                <td bgcolor="#666666"><div align="left">
                  <input name="emailcoord" type="text" id="emailcoord" value="<%=(Solicitante.Fields.Item("emailcord").Value)%>" size="55" />
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td>
                <td bgcolor="#666666"><div align="left">
                  <input type="submit" value="Enviar">                
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="right"></div></td>
                <td bgcolor="#666666">
                  <div align="left">
                    <input name="aprovado" type="hidden" id="aprovado" value="não" />
                  </div></td></tr>
            </table>
          
            
          
            <input type="hidden" name="MM_insert" value="form1">
          </form>
          </div></td>
      </tr>
      <tr>
        <td colspan="4" bgcolor="#F7EF08"><div align="right"><a href="index.asp">Voltar</a></div></td>
        </tr>
      
    </table></td>
  </tr>
</table>
<%
vsolicitante= request.form("solicitante") 
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo") 
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

sql=INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"')
Set rs = conexao.execute(sql)

If request.querystring("form1") = 1 then
   Set mail = CreateObject("CDOSYS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = request.form("emailcoord")  ' e-mail de quem vai receber a mensagem 
   mail.CC = "biblioteca@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante")
   mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados")
   mail.Send 
   Set mail = Nothing 
else

end if
%>
</body>
</html>
<%
Solicitante.Close()
Set Solicitante = Nothing
%>

jow · Novembro 25, 2008

Veja como você está recebendo do formulário :::

vsolicitante= request.form("solicitante") 
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo") 
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

agora veja os values do seu insert ::

('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"')

está correto ???

Rafael Spilki · Novembro 25, 2008

A sintaxe correta é assim:

sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"')"

ou seja, " (aspas) abrindo e fechando a instrução sql...

[]'s Rafael Spilki

jow · Novembro 25, 2008

Com base nas duas informações, ficaria assim :::

vsolicitante= request.form("solicitante") 
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo") 
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')"

Rafael Spilki · Novembro 25, 2008

Não entendi Jow... onde você viu erro em:

vsolicitante= request.form("solicitante")
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo")
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

Tem algo que eu não vi?

[]'s Rafael Spilki

jow · Novembro 25, 2008

Não entendi Jow... onde você viu erro em:
vsolicitante= request.form("solicitante")
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo")
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")
Tem algo que eu não vi?
[]'s Rafael Spilki

Então Rafael aki não há erro tá tranquilo .... O erro q eu me referi era exatamente na instrução sql ele tava passando os values com os nomes errado ... olha só vemailcord, vautore. O corrteo seria vemailcoord, vautor.

Tava assim a sql dele ..

sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"')"

Rafael Spilki · Novembro 25, 2008

Boa! que olho... não tinha visto essa parada!

Vagner Nunes · Novembro 25, 2008

Prezados,

Fiz as modificações, porem aparece o seguinte erro:

Script error detected at line 368.

Source line: Set rs = conexao.execute(sql)

Description: Objeto necessário: 'conexao'

Segue abaixo o trecho que está sendo modificado:

<%
vsolicitante= request.form("solicitante") 
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo") 
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')"

Set rs = conexao.execute(sql)

If request.querystring("form1") = 1 then
   Set mail = CreateObject("CDOSYS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = request.form("emailcoord")  ' e-mail de quem vai receber a mensagem 
   mail.CC = "biblioteca@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante")
   mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados")
   mail.Send 
   Set mail = Nothing 
else

end if
%>

Onde estou errando?

Sds,

Vagner Nunes

Jonathan Queiroz · Novembro 25, 2008

Cara, isso ocorre porque você não criou a conexão... Antes disso, teria que criar a conexao !

Exemplo:

conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\dados.mdb"

Qualquer coisa, posta aí !

Vagner Nunes · Novembro 25, 2008

Prezados,

Está correto a linha de conexão?

Porque está apresentando o mesmo erro!!!

<%
vsolicitante= request.form("solicitante") 
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo") 
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')"

Set rs = conexao.execute(sql)

conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb"

If request.querystring("form1") = 1 then
   Set mail = CreateObject("CDOSYS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = request.form("emailcoord")  ' e-mail de quem vai receber a mensagem 
   mail.CC = "biblioteca@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante")
   mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados")
   mail.Send 
   Set mail = Nothing 
else

end if
%>

Sds,

Vagner Nunes

jow · Novembro 25, 2008

A conexão tem q estar antes ... testa aí ...

conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb"

vsolicitante= request.form("solicitante") 
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo") 
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')"

Set rs = conexao.execute(sql)


If request.querystring("form1") = 1 then
   Set mail = CreateObject("CDOSYS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = request.form("emailcoord")  ' e-mail de quem vai receber a mensagem 
   mail.CC = "biblioteca@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante")
   mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados")
   mail.Send 
   Set mail = Nothing 
else

end if
%>

Vagner Nunes · Novembro 25, 2008

Prezado,

O erro continua aparecendo:

Script error detected at line 360.

Source line: conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb"

Description: Objeto necessário: 'conexao'

Segue abaixo código:

<%
conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb"

vsolicitante= request.form("solicitante") 
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo") 
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')"

Set rs = conexao.execute(sql)


If request.querystring("form1") = 1 then
   Set mail = CreateObject("CDOSYS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = request.form("emailcoord")  ' e-mail de quem vai receber a mensagem 
   mail.CC = "biblioteca@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante")
   mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados")
   mail.Send 
   Set mail = Nothing 
else

end if

%>

Tentei localizar o erro, mas não obtive sucesso.

Jonathan Queiroz · Novembro 25, 2008

Tenta fazer o seguinte:

set conexao = Server.CreateObject("ADODB.Connection")

Qualquer coisa, posta aí !

jow · Novembro 25, 2008

Como o Jonathan Queiroz faltou set conexao = Server.CreateObject("ADODB.Connection")

sua conexão ficará ...

set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb"

Vagner Nunes · Novembro 26, 2008

Prezados,

Agora aparece o erro que o campo solicitante não pode ser de comprimento null.

Mas, valeu mesmo pela ajuda!!!

Sds,

Vagner Nunes

jow · Novembro 26, 2008

O campo do seu banco de dados não pode ser null posta os campos do seu bd !!

Rafael Spilki · Novembro 26, 2008

que tipo de campo estamos lidando? campo data?

Alguns tipos de campos realmente não aceitam comprimento null... a não ser que sejam ignorados na instrução insert...

pra tudo tem solução... posta aí mais detalhes que te ajudamos!

[]'s Rafael Spilki

Vagner Nunes · Novembro 26, 2008

Prezados,

Segue a página completa: solicitacao.asp, está página recupera um solicitante, onde aparece os dados dele, daí

O solicitante abre está página daí digita os dados solicitadosindex.asp, etnão abre a página do link abaixo:

Página solicitacao.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Conectar.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_Conectar_STRING
  MM_editTable = "solicitacoes"
  MM_editRedirectUrl = "sucess_solicitacao_coordenacao.asp"
  MM_fieldsStr  = "solicitante|value|curso|value|disciplina|value|email|value|titulo|value|autor|value|bibliografia|value|edicao|value|editora|value|nbiblioteca|value|nsolicitados|value|emailcoord|value|aprovado|value"
  MM_columnsStr = "solicitante|',none,''|curso|',none,''|disciplina|',none,''|email|',none,''|titulo|',none,''|autor|',none,''|bibliografia|',none,''|edicao|',none,''|editora|',none,''|nbiblioteca|',none,''|nsolicitados|',none,''|emailcoord|',none,''|aprovado|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim Solicitante__MMColParam
Solicitante__MMColParam = "1"
If (Request.QueryString("identificacao") <> "") Then 
  Solicitante__MMColParam = Request.QueryString("identificacao")
End If
%>
<%
Dim Solicitante
Dim Solicitante_numRows

Set Solicitante = Server.CreateObject("ADODB.Recordset")
Solicitante.ActiveConnection = MM_Conectar_STRING
Solicitante.Source = "SELECT * FROM solicitantes WHERE identificacao = '" + Replace(Solicitante__MMColParam, "'", "''") + "'"
Solicitante.CursorType = 0
Solicitante.CursorLocation = 2
Solicitante.LockType = 1
Solicitante.Open()

Solicitante_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Biblioteca Cesat</title>
<style type="text/css">
<!--
body,td,th {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #000000;
}
body {
    background-color: #F4F4F4;
}
a {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #000000;
}
a:link {
    text-decoration: none;
}
a:visited {
    text-decoration: none;
    color: #999999;
}
a:hover {
    text-decoration: none;
    color: #666666;
}
a:active {
    text-decoration: none;
    color: #999999;
}
.style2 {font-size: 10px}
.style8 {font-size: 5px}
-->
</style>
</head>

<body>
<table width="760" border="0" align="center" bgcolor="#FFFFFF">
  <tr>
    <td><table width="760" border="0">
      <tr>
        <td colspan="4"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="760" height="100">
          <param name="movie" value="imagens/topo.swf" />
          <param name="quality" value="high" />
          <embed src="imagens/topo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="760" height="100"></embed>
        </object></td>
        </tr>
      <tr>
        <td width="18"><img src="imagens/registration1_(edit)_16x16.gif" width="16" height="16" /></td>
        <td width="280">Solicita&ccedil;&otilde;es:</td>
        <td width="368">Seja bem vindo:<span class="style2"><%=(Solicitante.Fields.Item("solicitante").Value)%> </span></td>
        <td width="82">ID: <span class="style2"><%=(Solicitante.Fields.Item("ID").Value)%></span></td>
      </tr>
      <tr>
        <td colspan="4" bgcolor="#FFFFFF"><div align="center">
          <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
            <table width="756" align="center">

              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Solicitante:</div></td>
                <td bgcolor="#666666">                    <div align="left">
                  <input name="solicitante" type="text" value="<%=(Solicitante.Fields.Item("solicitante").Value)%>" size="75" />                
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Curso:</div></td>
                <td bgcolor="#666666"><div align="left">
                    <input name="curso" type="text" value="<%=(Solicitante.Fields.Item("curso").Value)%>" size="55" />
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Disciplina:</div></td>
                <td bgcolor="#666666"><div align="left">
                    <input name="disciplina" type="text" value="<%=(Solicitante.Fields.Item("disciplina").Value)%>" size="65" />
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Email:</div></td>
                <td bgcolor="#666666">
                      <div align="left">
                        <input name="email" type="text" value="<%=(Solicitante.Fields.Item("email").Value)%>" size="45" />
                      </div></td></tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td>
                <td bgcolor="#666666">&nbsp;</td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td>
                <td bgcolor="#666666"><div align="left"></div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Titulo:</div></td>
                <td bgcolor="#666666"><div align="left">
                    <input type="text" name="titulo" value="Descreva o t&iacute;tulo" size="75" />
                </div></td>
              </tr>
              <tr valign="baseline">
                <td width="104" align="right" nowrap bgcolor="#EFEFEF"><p align="left">Autor:</p></td>
                <td width="640" bgcolor="#666666">
                  <div align="left">
                    <input type="text" name="autor" value="Descreva o autor" size="40">                
                    </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Bibliografia:</div></td>
                <td bgcolor="#666666">
                  <div align="left">
                    <label>
                    <select name="bibliografia" id="bibliografia">
                      <option value="Basica">B&aacute;sica</option>
                      <option value="Complementar">Complementar</option>
                    </select>
                    </label>
</div></td>
              </tr>

              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Edicao:</div></td>
                <td bgcolor="#666666">
                  <div align="left">
                    <input type="text" name="edicao" value="10 ed." size="10">
                    Editora:                
                    <input type="text" name="editora" value="Saraiva" size="32" />
                  </div></td>
              </tr>



              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">N. Biblioteca:</div></td>
                <td bgcolor="#666666">
                  <div align="left">
                    <input type="text" name="nbiblioteca" value="00" size="10" />
                  N. Solicitados:
                  <input type="text" name="nsolicitados" value="00" size="10" />
</div></td>
              </tr>


              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td>
                <td bgcolor="#666666">&nbsp;</td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">E-mail do Coord.: </div></td>
                <td bgcolor="#666666"><div align="left">
                  <input name="emailcoord" type="text" id="emailcoord" value="<%=(Solicitante.Fields.Item("emailcord").Value)%>" size="55" />
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td>
                <td bgcolor="#666666"><div align="left">
                  <input type="submit" value="Enviar">                
                </div></td>
              </tr>
              <tr valign="baseline">
                <td align="right" nowrap bgcolor="#EFEFEF"><div align="right"></div></td>
                <td bgcolor="#666666">
                  <div align="left">
                    <input name="aprovado" type="hidden" id="aprovado" value="não" />
                  </div></td></tr>
            </table>
          
            
          
            <input type="hidden" name="MM_insert" value="form1">
          </form>
          </div></td>
      </tr>
      <tr>
        <td colspan="4" bgcolor="#F7EF08"><div align="right"><a href="index.asp">Voltar</a></div></td>
        </tr>
      
    </table></td>
  </tr>
</table>
<%
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento 2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb"

vsolicitante= request.form("solicitante") 
vemail= request.form("email")
vemailcoord= request.form("emailcoord")
vtitulo= request.form("titulo") 
vautor= request.form("autor")
vnsolicitados= request.form("nsolicitados")

Set rs = conexao.execute(sql)


If request.querystring("form1") = 1 then
   Set mail = CreateObject("CDOSYS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = request.form("emailcoord")  ' e-mail de quem vai receber a mensagem 
   mail.CC = "biblioteca@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante")
   mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados")
   mail.Send 
   Set mail = Nothing 
else

end if

%>
</body>
</html>
<%
Solicitante.Close()
Set Solicitante = Nothing
%>

Obrigado pela ajuda,

Sds,

Vagner Nunes

Rafael Spilki · Novembro 26, 2008

Muito bom Vagner... parabéns... e muito legal você ter voltado e postado o código pronto... todos deveriam se espelhar em ti e fazer o mesmo...

Mais uma vez, parabéns!

[]'s Rafael Spilki

Vagner Nunes · Novembro 26, 2008

Ok!

Entrar

Gravar no banco e disparar e-mail!

Pergunta

Link para o comentário

Compartilhar em outros sites

38 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns