<% HOJA0=request.QueryString("ID") FEC0=request.QueryString("FEC") '--------------------------SECCION DE CONEXION DE BD A BASE CLIENTE-------- strclienteDBPath = "Db/" & "cms.mdb" Set objConncliente = Server.CreateObject("ADODB.Connection") objConncliente.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source = " & Server.MapPath(strclienteDBPath) & ";" & _ "User Id=Admin;" & _ "Password=" 'fin conexion a cliente 'inicia base y retorna la data de listas '-------------------------fin de CONEXION BD ----------------------------- %> <%estado =request.QueryString("ACT") select case estado case "E" '---------------------------- Seccion de rs--------------------------- Set rsAdminss = Server.CreateObject("ADODB.Recordset") strSQLcliente = "SELECT * FROM eventos where ID=" & HOJA0 rsAdminss.Open strSQLcliente, objConncliente, adOpenForwardOnly, adLockOptimistic, adCmdText '------------------------------Fin de seccion de RS----------------------------------------------- %>
:: Mantenimiento de Eventos
[Volver al listado]
Cerrar[x]
Fecha
Dia
Lugar
Volver a listado
<% if Not rsAdminss.EOF then valores=rsAdminss("ID") %>
Nombre
" size="50"/>
FECHA
"/>
LUGAR
" size="40"/>
<% end if %>
<% case "N" %>
:: Creacion de Eventos
[Volver al listado]
Cerrar[x]
Fecha
Dia
Lugar
Volver a listado
Nombre
FECHA
LUGAR
<% case "D" valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "DELETE * FROM eventos WHERE ID =" & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_eventos.asp") %> <% case "U" valor1 = request.form("txt_cam") valor2 = request.form("txt_fecha") valor4 = request.form("txt_dia") valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "UPDATE eventos SET nombre = '" & valor1 & "', fecha = '" & valor2 & "', lugar = '" & valor4 & "' WHERE ID = " & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_eventos.asp") %> <% case "C" valor1 = request.form("txt_camb") valor2 = request.form("txt_fechab") valor4 = request.form("txt_diab") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "INSERT INTO eventos (nombre, fecha, lugar) VALUES ('" & valor1 & "', '" & valor2 & "', '" & valor4 & "')" Set rscode= objConncliente.execute(strcode) response.Redirect("update_eventos.asp") %> <% end select %>