<% if Session("status") <> "login" then response.redirect "login.asp" %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<%
response.buffer = true
'get key
key = request.querystring("key")
if key="" or isnull(key) then
key=request.form("key")
end if
if key="" or isnull(key) then response.redirect "Usuarioslist.asp"
'get action
a=request.form("a")
if a="" or isnull(a) then
a="I" 'display with input box
end if
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../db/edificios.mdb") & ";"
Select Case a
Case "I": ' Get a record to display
tkey = key
strsql = "SELECT * FROM [Usuarios] WHERE [id]=" & tkey
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
If rs.EOF Then
Response.Clear
Response.Redirect "Usuarioslist.asp"
Else
rs.MoveFirst
End If
' Get the field contents
x_id = rs("id")
x_Usuario = rs("Usuario")
x_Password = rs("Password")
x_nombre = rs("nombre")
x_logo = rs("logo")
rs.Close
Set rs = Nothing
Case "D": ' Delete
' Open record
tkey = key
strsql = "SELECT * FROM [Usuarios] WHERE [id]=" & tkey
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
If rs.EOF Then
Response.Clear
Response.Redirect "Usuarioslist.asp"
Else
rs.delete
rs.close
End If
conn.Close
Set conn = Nothing
Response.Clear
Response.Redirect "Usuarioslist.asp"
End Select
%>
Borrar registros de la tabla:
Usuarios
<< Volver a la lista