Dúvida Sobre Insert Into

[Guest guilhermezd]

Gostaria de saber se posso inserir variáveis atribuidas a recordset no insert into

dim condnome, condtel, condend, condcidade, condemail

if codzero = 0 then

condnome = rstlogin("nome")

condtel = rstlogin("telefone")

condend = ""

condcidade = ""

condemail = rstlogin("email")

else

condnome = rstCadastro.Fields("nome")

condtel = rstcadastro("telefone")

condend = rstcadastro("endereco")

condcidade = rstcadastro("cidade")

condemail = rstcadastro("email")

end if

'ssql = "Insert into Mensagem (nome,fones,endereco,cidade,uf,email,assunto,Mensagem,data,assinante) select '" & condnome & "' as nome, '" &_

condtel & " - " & rstCadastro("Telefone2") & "' as fones," & "'" & condend & " - " & rstCadastro("CEP") & "' as endereco, '" & condcidade & "' as cidade, '" & rstCadastro("uf") & "' as uf, '" & condemail & "' as email," &_

"'Oportunidade de Negocio' as assunto, '" & Mensagem & "' as Mensagem, '" & day(date) & "/" & month(date) & "/" & year(date) & "' as data, " &_

" codigo as assinante from assina where ativo = -1;"-------

[dark0]

você pode fazer isso sim, mas antes, você precisa criar o select, você fez isso?

sem fazer o select no banco, não vai funcionar...