<% 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 ----------------------------- '---------------------------- Seccion de rs--------------------------- Set rsAdminss = Server.CreateObject("ADODB.Recordset") %> <% estado = request.QueryString("ACT") select case estado case "E" strSQLcliente = "SELECT * FROM fechas where ID=" & HOJA0 rsAdminss.Open strSQLcliente, objConncliente, adOpenForwardOnly, adLockOptimistic, adCmdText '------------------------------Fin de seccion de RS----------------------------------------------- %>
:: Mantenimiento de Encuentros
Cerrar[x]
ID
<%= rsAdminss("ID") %>
Volver a listado
<% if Not rsAdminss.EOF then %>
Fecha
" readonly="true"/>
Hora
"/>
Equipo 1
" size="30"/>
Gol1
" size="30"/>
Equipo 2
" size="30"/>
Gol2
" size="30"/>
<% end if %>
<% case "N" %>
:: Creacion de Encuentros
Cerrar[x]
Volver a listado
Fecha
"/>
Hora
Equipo 1
Gol 1
Equipo 2
Gol 2
<% case "D" valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "DELETE * FROM fechas WHERE ID =" & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_fixture_h.asp?FEC=" & FEC0) %> <% case "U" valor1 = request.form("txt_fechab") valor2 = request.form("txt_horab") valor3 = request.form("txt_equipo1b") valor4 = request.form("txt_equipo2b") valor5 = request.form("txt_gol1b") valor6 = request.form("txt_gol2b") valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "UPDATE fechas SET fecha = '" & valor1 & "', hora = '" & valor2 & "', equipo1 = '" & valor3 & "', equipo2 = '" & valor4 & "', gol1 = '" & valor5 & "', gol2 = '" & valor6 & "' WHERE ID = " & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_fixture_h.asp?FEC=" & valor1) %> <% case "C" valor1 = request.form("txt_fecha") valor2 = request.form("txt_hora") valor3 = request.form("txt_equipo1") valor4 = request.form("txt_equipo2") valor5 = request.form("txt_gol1") valor6 = request.form("txt_gol2") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "INSERT INTO fechas (fecha,hora,equipo1,equipo2,gol1,gol2) VALUES ('" & valor1 & "', '" & valor2 & "', '" & valor3 & "', '" & valor4 & "', '" & valor5 & "', '" & valor6 & "')" Set rscode= objConncliente.execute(strcode) response.Redirect("update_fixture_h.asp?FEC=" & valor1) %> <% end select %>