|
<%
Dim conDB
Dim rsDados
Dim sPath
Set conDB = Server.CreateObject("ADODB.Connection")
conDB.open "Provider=Microsoft.Jet.OleDB.4.0; Data Source=c:\inetpub\vhosts\secretariando.com.br\private\dados.mdb;"
'sPath = Server.MapPath("dados/dados.mdb")
'response.write("")
'set condb = server.createobject("adodb.connection")
'condb.Open "DBQ=" & sPath & ";Driver={Microsoft Access Driver (*.mdb)}"
set tb = Server.CreateObject("ADODB.Recordset")
str_nome = Request.form("NomeSacado")
str_cpf = Request.form("CNPJCPFSacado")
str_from = Request.Form("EmailSacado")
str_empresa = Request.Form("Empresa")
str_cargo = Request.Form("Cargo")
str_endereco = Request.Form("EnderecoSacado")
str_cep = Request.Form("CepSacado")
str_bairro = Request.Form("BairroSacado")
str_cidade = Request.Form("CidadeSacado")
str_estado = Request.Form("EstadoSacado")
str_datanascimento = request.form ("Datanascimento")
str_formacao = request.form ("Formacao")
str_telefone = request.form ("telefone")
str_fax = request.form ("fax")
str_login = request.form ("Login")
str_senha = request.form ("Senha")
str_to = Request.Form("to")
str_redirect = Request.Form("redirect")
set rsDados=conDB.execute("insert into curso (Data,Nome,Email,CPF,Empresa,Cargo,Endereco,Bairro,CEP,Cidade,Estado,Datanascimento,Formacao,Telefone,Fax,Login,Senha,Curso,Pagou) values(Date(),'"&str_nome&"','"&str_from&"','"&str_cpf&"','"&str_empresa&"','"&str_cargo&"','"&str_endereco&"','"&str_bairro&"','"&str_cep&"','"&str_cidade&"','"&str_estado&"','"&str_datanascimento&"','"&str_formacao&"','"&str_telefone&"','"&str_fax&"','"&str_login&"','"&str_senha&"','marketp','N')")
%>
32 soluções para seus problemas com dinheiro
Planejamento e disciplina são as palavras certas para você ter sucesso na
vida financeira
Roseli Loturco e Erica Martin - Revista
Você/SA
|
|