Radio = request.form("rInformativo")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=e:/www/grafipel.com.br/db/cadastros.mdb;Driver={Microsoft Access Driver (*.mdb)};"
if radio = "1" then
strQuery = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
strQuery = "INSERT INTO emails(nome,email) VALUES('"&Nome&"','"&Email&"')"
else
strQuery = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
end if
Edição feita por: ashburner, 10/11/2004, 14:42.