abaixo está o codigo:
<% If IsEmpty(Session("login")) Then Response.redirect("index.asp") End if constr=server.mappath("bd1.mdb") banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}" set conexao=server.createobject("adodb.connection") conexao.open banco set ri = conexao.execute("INSERT INTO controle_acesso (usuario, data, hora, pagina) VALUES ('"&request.QueryString("nome")&"', '"&date&"', '"&time&"', 'cod_abrecliente.asp')") rs2 = conexao.execute("SELECT max(num_pedido) +1 AS cod FROM pedidos") %>
Edição feita por: Renan L. Queiroz, 18/11/2009, 09:06.