Ir para conteúdo
Fórum Script Brasil
  • 0

Formulario, e-mail e Banco de Dados

Guest A. Metallica

Perguntado por Guest A. Metallica,

 Share

Pergunta

Guest A. Metallica

Guest A. Metallica

Postado
Postado

Tenho um formulário no endereço

http://crbasso.com.br/index.asp?link=63&inc=GE05

Que hoje envia os dados do formulário por e-mail, este formulário envia via post para um arquivo envia_email.asp que recebe os dados, monta o HTML e envia o e-mail via ObjSendMail mas gostaria que alem de enviar por e-mail, incluísse em um banco de dados.

Como posso fazer isso sem mudar muito o que já tenho

Abaixo segue o que eu fiz (Mas que esta retornado do erro)

Aguardo e espero que possam me ajudar

<!--#INCLUDE file="conexao.asp"-->
<!--#INCLUDE file="OS.asp"-->
<%
Dim ObjSendMail

    'Se for um envio do formulário in-company
if request.QueryString("inc") <> "" then

    'Listando o curso para aparecer no e-mail
curCod = request.QueryString("inc")
Call abre_conexao
strCURSO = "select * from TABCUR where CURCOD = '"&curCod&"' "
Set rsCURSO = Conexao.Execute(strCURSO)

    'incluindo no bando de dados
    Call abre_OS
    strINCLUIR = "insert into TABOS (AREAATUACAO, SOLICITACAO, DATA, EMPRESA, CONTATO, CARGO, TELEFONE, EMAIL, SITE, ATENDENTE, NUMPARTI) values ('"&varAREAATUACAO&"', '"&varSOLICITACAO&"', '"&varDATA&"', '"&empresa&"', '"&contato&"', '"&cargo&"', '"&telefone&"', '"&email&"', '"&site&"', '"&atendente&"', '"&aparticipantes&"')"
    set rsINCLUIR = Conexao.Execute(strINCLUIR)
    Call fecha_OS
    
'Montando a mensagem
varDATA = day(now())&"/"&month(now())&"/"&Year(now())
varAREAATUACAO = "Treinamentos In Company"
varSOLICITACAO =  curCod

empresa = Ucase(cstr(request.form("txt_empresa")))
contato = Ucase(cstr(request.form("txt_contato")))
cargo = Ucase(cstr(request.Form("txt_cargo")))
email = Lcase(cstr(request.form("txt_email")))
telefone = cstr(request.form("txt_telefone"))
site = cstr(request.form("txt_site"))
proposito = cstr(request.form("txt_proposito"))
mudancas = cstr(request.form("txt_mudancas"))
participantes = cstr(request.form("txt_participantes"))
publico = cstr(request.form("txt_publico"))
normas = cstr(request.form("txt_normas"))
necessidades = cint(request.form("txt_necessidades"))
atendente = cstr(request.form("txt_preenchido"))

if necessidades = 1 then
    necessidades = "Solicitação da Chefia"
elseif necessidades = 2 then
    necessidades = "Solicitação dos Participantes"
elseif necessidades = 3 then
    necessidades = "Levantamento de necessidades por parte do RH"
elseif necessidades = 4 then
    necessidades = "Carência identificada na avaliação por competencia"
elseif necessidades = 5 then
    necessidades = "Carência identificada na avaliação por desempenho"
elseif necessidades = 6 then
    necessidades = "Outros"
end if
    
texto = "<font face='Verdana' size = '2'>A/C Departamento de In Company,<p>Você esta recebendo um contato do site CR BASSO sobre o treinamento de "& rsCURSO("CURCOD") &" - "& rsCURSO("CURNOME") &" a ser realizado na seguinte empresa:<p><b>Empresa:</b> "&empresa&"<br><b>Contato:</b> "&contato&"<br><b>Cargo:</b> "&cargo&"<br><b>Telefone:</b> "&telefone&"<br><b>E-mail:</b> "&email&"<br><b>Site:</b> "&site&"<br><b>Atendente:</b> "&atendente&"<br></p><p><b>Propósito deste treinamento na empresa:</b> "&proposito&"</p><p><b>Expectativas das principais mudanças obtidas pós-treinamento:</b> "&mudancas&"</p><p><b>Número de participantes:</b> "&participantes&"</p><p><b>Público que irá participar do treinamento:</b> "&publico&"</p><p><b>Normas de Qualidade da empresa:</b> "&normas&"</p><p><b>A necessidade deste treinamento partiu de:</b> "&necessidades&"</p></font>"
    
'CDOSYS
'smtpserver = "mail.crbasso.com.br"
'youremail = "crbasso@crbasso.com.br"
'yourpassword = "123456"

smtpserver = "200.234.205.145"
youremail = "crbasso@crbasso.com.br"
yourpassword = "crbs1011"
Set ObjSendMail = CreateObject("CDO.Message") 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "andreferreira@crbasso.com.br"
ObjSendMail.Subject = "Solicitação de proposta In Company efetuada pelo site"
ObjSendMail.From = "crbasso@crbasso.com.br"
ObjSendMail.HTMLBody = texto
ObjSendMail.Send
Set ObjSendMail = Nothing
Call fecha_conexao
set rsCURSO = Nothing
<%
dim Conexao

sub abre_OS
    Set conexao = Server.CreateObject ("ADODB.Connection")
    Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\crbasso\banco\controlesolicitacao.mdb"
end sub

sub fecha_OS
    Conexao.close
    Set Conexao = Nothing
End sub
%>

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0
jow

jow

Postado
Postado

Opá depois do email manda ele gravar no banco se dados :: abaixo está o código q eu uso !!!

sql = "insert into agenda (titulo, data, hora, obs, convidar)"'sql = sql & " values ('"&titulo&"', '"&data&"', '"&hora&"', '"&obs&"', '"&convidar&"')"

set tab = cnn.execute(sql)

Link para o comentário
Compartilhar em outros sites
  • 0
A Metallica

A Metallica

Postado
Postado
Opá depois do email manda ele gravar no banco se dados :: abaixo está o código q eu uso !!!

Agora estou dando erro no arquivo de conexão

Fala que a Variavel declarada " dim Conexao " não é compativel.

Uso este mesmo metodo para conectar outros bancos e não tenho problemas.

O que seria isso ?

sql = "insert into agenda (titulo, data, hora, obs, convidar)"'sql = sql & " values ('"&titulo&"', '"&data&"', '"&hora&"', '"&obs&"', '"&convidar&"')"

set tab = cnn.execute(sql)

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

Ok entendi ... provavelmente é porque a variável q você usa no insert dessa página não é igual ao da sua conexão ...

tipo essa linha 

set tab = cnn.execute(sql)
funciona no meu insert pois SET e CNN são as minhas variáveis de conexão ... Qualquer Dúvida posta o seu INSERT com a sua variável de conexão ...
Você quer diser depois de montar o HTML ou depois "set rsCURSO = Nothing" configuração do ObjSendMail?
Então depende onde eu estou usando conexão. Se eu não tiver conexão ainda na página eu tenho q criar uma conexão e mandar o meu INSERT ... Nesse caso POSTADO ele já usa conexão, então tenho q fazer um INSERT antes de fecha-lo, ou seja antes do 
Call fecha_conexao
set rsCURSO = Nothing

Link para o comentário
Compartilhar em outros sites
  • 0
A Metallica

A Metallica

Postado
Postado

E ai jow, Obrigado pela ajuda, mas continuo com problemas.

segue o codigo

O arquivo envia_email.asp recebe os valores do formulario trata os dados e envia por e-mail estou usando <!--#INCLUDE file="OS.asp"--> para a conexão com o banco

Abaixo segue os dois codigos:

envia_email.asp

<!--#INCLUDE file="conexao.asp"-->
<!--#INCLUDE file="OS.asp"-->
<%
Dim ObjSendMail

    'Se for um envio do formulário in-company
if request.QueryString("inc") <> "" then

    'Listando o curso para aparecer no e-mail
curCod = request.QueryString("inc")
Call abre_conexao
strCURSO = "select * from TABCUR where CURCOD = '"&curCod&"' "
Set rsCURSO = Conexao.Execute(strCURSO)
    
'Montando a mensagem
varDATA = day(now())&"/"&month(now())&"/"&Year(now())
varAREAATUACAO = "Treinamentos In Company"
varSOLICITACAO =  curCod

empresa = Ucase(cstr(request.form("txt_empresa")))
contato = Ucase(cstr(request.form("txt_contato")))
cargo = Ucase(cstr(request.Form("txt_cargo")))
email = Lcase(cstr(request.form("txt_email")))
telefone = cstr(request.form("txt_telefone"))
site = cstr(request.form("txt_site"))
proposito = cstr(request.form("txt_proposito"))
mudancas = cstr(request.form("txt_mudancas"))
participantes = cstr(request.form("txt_participantes"))
publico = cstr(request.form("txt_publico"))
normas = cstr(request.form("txt_normas"))
necessidades = cint(request.form("txt_necessidades"))
atendente = cstr(request.form("txt_preenchido"))

if necessidades = 1 then
    necessidades = "Solicitação da Chefia"
elseif necessidades = 2 then
    necessidades = "Solicitação dos Participantes"
elseif necessidades = 3 then
    necessidades = "Levantamento de necessidades por parte do RH"
elseif necessidades = 4 then
    necessidades = "Carência identificada na avaliação por competencia"
elseif necessidades = 5 then
    necessidades = "Carência identificada na avaliação por desempenho"
elseif necessidades = 6 then
    necessidades = "Outros"
end if
    
texto = "<font face='Verdana' size = '2'>A/C Departamento de In Company,<p>Você esta recebendo um contato do site CR BASSO sobre o treinamento de "& rsCURSO("CURCOD") &" - "& rsCURSO("CURNOME") &" a ser realizado na seguinte empresa:<p><b>Empresa:</b> "&empresa&"<br><b>Contato:</b> "&contato&"<br><b>Cargo:</b> "&cargo&"<br><b>Telefone:</b> "&telefone&"<br><b>E-mail:</b> "&email&"<br><b>Site:</b> "&site&"<br><b>Atendente:</b> "&atendente&"<br></p><p><b>Propósito deste treinamento na empresa:</b> "&proposito&"</p><p><b>Expectativas das principais mudanças obtidas pós-treinamento:</b> "&mudancas&"</p><p><b>Número de participantes:</b> "&participantes&"</p><p><b>Público que irá participar do treinamento:</b> "&publico&"</p><p><b>Normas de Qualidade da empresa:</b> "&normas&"</p><p><b>A necessidade deste treinamento partiu de:</b> "&necessidades&"</p></font>"
    
'CDOSYS
'smtpserver = "mail.crbasso.com.br"
'youremail = "crbasso@crbasso.com.br"
'yourpassword = "crbfalcao24"

'Incluindo no bando de dados
    Call abre_OS
    strINCLUIR = "insert into TABOS (AREAATUACAO, SOLICITACAO, DATA, EMPRESA, CONTATO, CARGO, TELEFONE, EMAIL, SITE, ATENDENTE, NUMPARTI) values ('"&varAREAATUACAO&"', '"&varSOLICITACAO&"', '"&varDATA&"', '"&empresa&"', '"&contato&"', '"&cargo&"', '"&telefone&"', '"&email&"', '"&site&"', '"&atendente&"', '"&aparticipantes&"')"
    set rsINCLUIR = cnn.Execute(strINCLUIR)
    Call fecha_OS
'Fim Incluindo no bando de dados

smtpserver = "200.234.205.145"
youremail = "crbasso@crbasso.com.br"
yourpassword = "crbs1011"
Set ObjSendMail = CreateObject("CDO.Message") 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "andreferreira@crbasso.com.br"
ObjSendMail.Subject = "Solicitação de proposta In Company efetuada pelo site"
ObjSendMail.From = "crbasso@crbasso.com.br"
ObjSendMail.HTMLBody = texto
ObjSendMail.Send
Set ObjSendMail = Nothing
Call fecha_conexao
set rsCURSO = Nothing
OS.asp 
<%
dim cnn

sub abre_OS
    Set cnn = Server.CreateObject ("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\crbasso\banco\controlesolicitacao.mdb"
end sub

sub fecha_OS
    cnn.close
    Set cnn = Nothing
End sub
%>

Teria como você adapitar o seu codigo no meu por favor Aguardo obrigado

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

cara você tem q mandar ele gravar depois q termina o SCRIPT de envio de email ... Dei uma adaptada no seu Script, copia e cola ai e vê se funciona ... Pois no meu eu uso eu faço assim ...

envia_email.asp

<!--#INCLUDE file="conexao.asp"-->
<%
Dim ObjSendMail

    'Se for um envio do formulário in-company
if request.QueryString("inc") <> "" then

    'Listando o curso para aparecer no e-mail
curCod = request.QueryString("inc")
Call abre_conexao
strCURSO = "select * from TABCUR where CURCOD = '"&curCod&"' "
Set rsCURSO = Conexao.Execute(strCURSO)
    
'Montando a mensagem
varDATA = day(now())&"/"&month(now())&"/"&Year(now())
varAREAATUACAO = "Treinamentos In Company"
varSOLICITACAO =  curCod

empresa = Ucase(cstr(request.form("txt_empresa")))
contato = Ucase(cstr(request.form("txt_contato")))
cargo = Ucase(cstr(request.Form("txt_cargo")))
email = Lcase(cstr(request.form("txt_email")))
telefone = cstr(request.form("txt_telefone"))
site = cstr(request.form("txt_site"))
proposito = cstr(request.form("txt_proposito"))
mudancas = cstr(request.form("txt_mudancas"))
participantes = cstr(request.form("txt_participantes"))
publico = cstr(request.form("txt_publico"))
normas = cstr(request.form("txt_normas"))
necessidades = cint(request.form("txt_necessidades"))
atendente = cstr(request.form("txt_preenchido"))

if necessidades = 1 then
    necessidades = "Solicitação da Chefia"
elseif necessidades = 2 then
    necessidades = "Solicitação dos Participantes"
elseif necessidades = 3 then
    necessidades = "Levantamento de necessidades por parte do RH"
elseif necessidades = 4 then
    necessidades = "Carência identificada na avaliação por competencia"
elseif necessidades = 5 then
    necessidades = "Carência identificada na avaliação por desempenho"
elseif necessidades = 6 then
    necessidades = "Outros"
end if
    
texto = "<font face='Verdana' size = '2'>A/C Departamento de In Company,<p>Você esta recebendo um contato do site CR BASSO sobre o treinamento de "& rsCURSO("CURCOD") &" - "& rsCURSO("CURNOME") &" a ser realizado na seguinte empresa:<p><b>Empresa:</b> "&empresa&"<br><b>Contato:</b> "&contato&"<br><b>Cargo:</b> "&cargo&"<br><b>Telefone:</b> "&telefone&"<br><b>E-mail:</b> "&email&"<br><b>Site:</b> "&site&"<br><b>Atendente:</b> "&atendente&"<br></p><p><b>Propósito deste treinamento na empresa:</b> "&proposito&"</p><p><b>Expectativas das principais mudanças obtidas pós-treinamento:</b> "&mudancas&"</p><p><b>Número de participantes:</b> "&participantes&"</p><p><b>Público que irá participar do treinamento:</b> "&publico&"</p><p><b>Normas de Qualidade da empresa:</b> "&normas&"</p><p><b>A necessidade deste treinamento partiu de:</b> "&necessidades&"</p></font>"
    
'CDOSYS
'smtpserver = "mail.crbasso.com.br"
'youremail = "crbasso@crbasso.com.br"
'yourpassword = "crbfalcao24"



smtpserver = "200.234.205.145"
youremail = "crbasso@crbasso.com.br"
yourpassword = "crbs1011"
Set ObjSendMail = CreateObject("CDO.Message") 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "andreferreira@crbasso.com.br"
ObjSendMail.Subject = "Solicitação de proposta In Company efetuada pelo site"
ObjSendMail.From = "crbasso@crbasso.com.br"
ObjSendMail.HTMLBody = texto
ObjSendMail.Send
Set ObjSendMail = Nothing
Call fecha_conexao
set rsCURSO = Nothing

<!--#INCLUDE file="OS.asp"-->

<% 'Incluindo no bando de dados
    Call abre_OS
    strINCLUIR = "insert into TABOS (AREAATUACAO, SOLICITACAO, DATA, EMPRESA, CONTATO, CARGO, TELEFONE, EMAIL, SITE, ATENDENTE, NUMPARTI) values ('"&varAREAATUACAO&"', '"&varSOLICITACAO&"', '"&varDATA&"', '"&empresa&"', '"&contato&"', '"&cargo&"', '"&telefone&"', '"&email&"', '"&site&"', '"&atendente&"', '"&aparticipantes&"')"
    set rsINCLUIR = cnn.Execute(strINCLUIR)
    Call fecha_OS
    Set cnn = Nothing    
'Fim Incluindo no bando de dados
 %>

Link para o comentário
Compartilhar em outros sites
  • 0
A Metallica

A Metallica

Postado
Postado

E ai Jow,

Cara peguei o seu modelo fiz um modelo simples e funcionou porem quando passei para o modelo que preciso não esta dando certo.

Esta dando erro na linha do Execute "set rsINCLUIR = Conexao.Execute(strINCLUIR)"

Este é o Modelo que esta dando certo

<!--#INCLUDE file="conexao.asp"-->
<%
Call abre_conexao

If Request.QueryString("envio") = "ok" then
end if

    'Declarando as variáveis
    varNOME = Request.Form("nome")
    varNOMEAMIGO = Request.Form("amigo")
    varEMAILAMIGO = Request.Form("emailamigo")
    varDATA = day(now())&"/"&month(now())&"/"&Year(now())
    
    'Aqui vai Incluir no Bando de dados    
    strINCLUIR = "insert into MODELO (NOME, AMIGO, EMAIL, DATAINC) values ('"&varNOME&"', '"&varNOMEAMIGO&"', '"&varEMAILAMIGO&"', '"&varDATA&"') "
    set rsINCLUIR = Conexao.Execute(strINCLUIR)
    
    'o e-mail chegara com esta formatação
    texto = "<font face='Verdana' size = '2'>Você esta fazendo um teste de Formulario Granvando e enviando por e-mail, <p>Este é um teste pra ver se grava e envia por e-mail</p> <b>Data:</b> "&varDATA&"<br><b>Seu Nome :</b> "&varNOME&"<br><b>Nome do Amigo:</b> "&varNOMEAMIGO&"<br><b>e-mail do Amigo:</b> "&varEMAILAMIGO&"</font>"
    
'CDOSYS configuração para enviar o e-mail
smtpserver = "200.234.205.145"
youremail = "crbasso@crbasso.com.br"
yourpassword = "crbs1011"
Set ObjSendMail = CreateObject("CDO.Message") 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "andreferreira@crbasso.com.br"
ObjSendMail.Subject = "teste do site"
ObjSendMail.From = "crbasso@crbasso.com.br"
ObjSendMail.HTMLBody = texto
ObjSendMail.Send
Set ObjSendMail = Nothing
Call fecha_conexao
set rsCURSO = Nothing
%>
Este é o Modelo que esta dando erro! 
<!--#INCLUDE file="conexao.asp"-->
<%
Call abre_conexao

If Request.QueryString("envio") = "ok" then
end if

'Declarando as variáveis
varDATA = day(now())&"/"&month(now())&"/"&Year(now())
varAREAATUACAO = "Treinamentos In Company"
varSOLICITACAO =  "Determinado Treinamento"

empresa = Ucase(cstr(request.form("txt_empresa")))
contato = Ucase(cstr(request.form("txt_contato")))
cargo = Ucase(cstr(request.Form("txt_cargo")))
email = Lcase(cstr(request.form("txt_email")))
telefone = cstr(request.form("txt_telefone"))
site = cstr(request.form("txt_site"))
proposito = cstr(request.form("txt_proposito"))
mudancas = cstr(request.form("txt_mudancas"))
participantes = cstr(request.form("txt_participantes"))
publico = cstr(request.form("txt_publico"))
normas = cstr(request.form("txt_normas"))
necessidades = cint(request.form("txt_necessidades"))
atendente = cstr(request.form("txt_preenchido"))

'Escolhe a quem decidil pelo treinamento 
if necessidades = 1 then
    necessidades = "Solicitação da Chefia"
elseif necessidades = 2 then
    necessidades = "Solicitação dos Participantes"
elseif necessidades = 3 then
    necessidades = "Levantamento de necessidades por parte do RH"
elseif necessidades = 4 then
    necessidades = "Carência identificada na avaliação por competencia"
elseif necessidades = 5 then
    necessidades = "Carência identificada na avaliação por desempenho"
elseif necessidades = 6 then
    necessidades = "Outros"
end if
    
    'Aqui vai Incluir no Bando de dados    
     strINCLUIR = "insert into TABOS (AREAATUACAO, SOLICITACAO, DATA, EMPRESA, CONTATO, CARGO, TELEFONE, EMAIL, SITE, ATENDENTE, NUMPARTI) values ('"&varAREAATUACAO&"', '"&varSOLICITACAO&"', '"&varDATA&"', '"&empresa&"', '"&contato&"', '"&cargo&"', '"&telefone&"', '"&email&"', '"&site&"', '"&atendente&"', '"&aparticipantes&"')"
    set rsINCLUIR = Conexao.Execute(strINCLUIR)
    
    'o e-mail chegara com esta formatação
    texto = "<font face='Verdana' size = '2'>A/C Departamento de In Company,<p>Você esta recebendo um contato do site CR BASSO sobre o treinamento de "& rsCURSO("CURCOD") &" - "& rsCURSO("CURNOME") &" a ser realizado na seguinte empresa:<p><b>Empresa:</b> "&empresa&"<br><b>Contato:</b> "&contato&"<br><b>Cargo:</b> "&cargo&"<br><b>Telefone:</b> "&telefone&"<br><b>E-mail:</b> "&email&"<br><b>Site:</b> "&site&"<br><b>Atendente:</b> "&atendente&"</p><p><b>Propósito deste treinamento na empresa:</b> "&proposito&"</p><p><b>Expectativas das principais mudanças obtidas pós-treinamento:</b> "&mudancas&"</p><p><b>Número de participantes:</b>"&participantes&"</p><p><b>Público que irá participar do treinamento:</b> "&publico&"</p><p><b>Normas de Qualidade da empresa:</b> "&normas&"</p><p><b>A necessidade deste treinamento partiu de:</b> "&necessidades&"</p></font>"

'CDOSYS configuração para enviar o e-mail
smtpserver = "200.234.205.145"
youremail = "crbasso@crbasso.com.br"
yourpassword = "crbs1011"
Set ObjSendMail = CreateObject("CDO.Message") 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "andreferreira@crbasso.com.br"
ObjSendMail.Subject = "teste do site"
ObjSendMail.From = "crbasso@crbasso.com.br"
ObjSendMail.HTMLBody = texto
ObjSendMail.Send
Set ObjSendMail = Nothing
Call fecha_conexao
set rsCURSO = Nothing
%>

não entendo porque em um formulario não dá erros e em outro dá mais erros sendo que a sintaxce são as mesmas

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

Perfeito essa é a sua linha q está adando erro 

set rsINCLUIR = Conexao.Execute(strINCLUIR)

então diz ai, você usa Conexão ou Cnn ... Dá uma olhada na sua página de conexão com o BANCO, pois pelo q você disse tá funcionando com CNN !!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...