Sistema

Seguinte galera eu toh fazendo um sistema de ponto para minha empresa mais nao toh conseguindo salvar os dados no banco de dados eu uso Access vamo lah minha pagina inicial index.asp ``` <%@ Language=VBScript %><% session.abandon%>Sistema

Quando vai em logar vai para pagina login.asp inde <% set db = server.createobject("adodb.connection") set rs = server.createobject("adodb.recordset") db.open "driver={microsoft access driver (*.mdb)};dbq=" & _ Server.MapPath("banco.mdb") Dim usuario, ip, periodo ip = Request.ServerVariables("REMOTE_ADDR") usuario=request("usuario") usuario= Request.Form("usuario") periodo= Request.Form("periodo") senha = Request.Form("senha") data = now() SQL="INSERT INTO ponto (usuario) VALUES("& usuario &"')" db.execute sql rs.open "select * from usuario where " & _ "usuario='" & Replace(request.form("usuario"), "'", "''") & _ "' and senha='" & Replace(request.form("senha"), "'", "''") & "'",db if not rs.eof then session("status") = "ok" response.redirect("principal.asp") else response.redirect("index.asp?erro=negado") end if set rs = nothing rs.close %> por ultimo vai mostar os dados para o usuario principal.asp

Foi inserido no banco de dados:

<%@ Language=VBScript %> <% dim cn set cn = server.CreateObject ("adodb.connection") cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") Dim iporigem, usuarioiporigem = Request.ServerVariables("REMOTE_ADDR")data = now()usuario = session("usuario") %> <% response.write "

Ip da maquina

" & iporigem &""& usuario &"

Data e Hora

"& data response.Write periodo %>

Agora minha duvida como fazer para salvar o nome de usuario a hora e o ip no banco Access por favor me ajuda galera ESPERO AJUDA PRECISO ENTREGAR SEGUNDA TOH LOUKO JAH ```

Gustavo ( Cidao)

Inserir no banco de dados