fullscreen         normal screen

 

 

<%else Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open"Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\InetPub\www.keloflipas.com\gestion\BDregistros.mdb;Uid=Admin;Pwd=;" set rs=createobject("ADODB.Recordset") rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.open "datos",conn rs.addnew rs("nombre")=nombre rs("email")=email rs("cp")=cp rs.update rs.close response.redirect "registro_exito.htm" end if%>