<% SET objconexao = Server.CreateObject("adodb.connection") objconexao.open "Provider = Microsoft.JET.oledb.4.0;data source="& server.mappath("../dados/dados.mdb")& ";Jet OLEDB:Database Password=wsbalaminut" tipo2 = request.form("1") tipo2 = request.form("2") data_insercao = date data = request.form("data") nomecertificado = request.form("crt_nome") '*** Faz a inclusão do Serviço servicoinc_sql = "Insert INTO tab_certificado_usuario_log(crt_usu_id_cod,crt_usu_tipo,crt_usu_data, crt_nome) values ('"&tipo2&"','"&data_insercao&"','"&nomecertificado&"')" SET servicoinc_rs = Server.CreateObject("ADODB.Recordset") response.write servicoinc_sql servicoinc_rs.Open servicoinc_sql, ObjConexao response.redirect "http://www.tbrweb.com.br/site/birigui/certificado_associados" %>