<% 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 action
a=request.form("a")
'get fields from form
x_id = Request.Form("x_id")
x_Usuario = Request.Form("x_Usuario")
x_Password = Request.Form("x_Password")
x_nombre = Request.Form("x_nombre")
x_empresa = Request.Form("x_empresa")
x_logo = Request.Form("x_logo")
' 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 "A": ' Add
' Open record
strsql = "SELECT * FROM [Usuarios]"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
rs.AddNew
tmpFld = Trim(x_Usuario)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
srchFld = replace(tmpFld,"'","''")
srchFld = replace(srchFld,"[","[[]")
srchFld = "'" & srchFld & "'"
strsql = "SELECT * FROM [Usuarios] WHERE [Usuario] = " & srchFld
Set rschk = conn.Execute(strsql)
If NOT rschk.eof Then
Response.write "Duplicate key for Usuario, value = " & tmpFld & "
"
Response.write "Press [Previous Page] key to continue!"
Response.end
End If
rschk.close
rs("Usuario") = tmpFld
tmpFld = Trim(x_Password)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
srchFld = replace(tmpFld,"'","''")
srchFld = replace(srchFld,"[","[[]")
srchFld = "'" & srchFld & "'"
strsql = "SELECT * FROM [Usuarios] WHERE [Password] = " & srchFld
Set rschk = conn.Execute(strsql)
If NOT rschk.eof Then
Response.write "Duplicate key for Password, value = " & tmpFld & "
"
Response.write "Press [Previous Page] key to continue!"
Response.end
End If
rschk.close
rs("Password") = tmpFld
tmpFld = Trim(x_nombre)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
srchFld = replace(tmpFld,"'","''")
srchFld = replace(srchFld,"[","[[]")
srchFld = "'" & srchFld & "'"
strsql = "SELECT * FROM [Usuarios] WHERE [nombre] = " & srchFld
Set rschk = conn.Execute(strsql)
If NOT rschk.eof Then
Response.write "Duplicate key for nombre, value = " & tmpFld & "
"
Response.write "Press [Previous Page] key to continue!"
Response.end
End If
rschk.close
rs("nombre") = tmpFld
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Response.Clear
Response.Redirect "Usuarioslist.asp"
End Select
%>
Agregar registros a la tabla: Usuarios
<< Volver a la lista