<% HOJA0=request.QueryString("ID") '--------------------------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 tarjetas where ID=" & HOJA0 rsAdminss.Open strSQLcliente, objConncliente, adOpenForwardOnly, adLockOptimistic, adCmdText '------------------------------Fin de seccion de RS----------------------------------------------- %>
:: Actualizacion de Tarjetas
Cerrar[x]
Volver a listado
<% if Not rsAdminss.EOF then %>
Tipo
" readonly="true"/>
Equipo
"/>
Jugador
" size="30"/>
Cantidad
" size="30"/>
<% end if %>
<% case "N" %>
:: Registro de Tarjetas
Cerrar[x]
Volver a listado
Tipo
Seleccione
Amarilla
Roja
Equipo
Seleccione
Corona FC
Carisma
Asahi Futsal
Aikawa Futsal
Lat Riveralta
Latino FC
Super Foods
Merc Latino
La Victoria
Cruces
Jugador
Cantidad
<% case "D" valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "DELETE * FROM tarjetas WHERE ID =" & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_tarjetas.asp") %> <% case "U" valor1 = request.form("txt_tipob") valor2 = request.form("txt_equipob") valor3 = request.form("txt_jugadorb") valor4 = request.form("txt_cantidadb") valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "UPDATE tarjetas SET tipo = '" & valor1 & "', equipo = '" & valor2 & "', jugador = '" & valor3 & "', cantidad = '" & valor4 & "' WHERE ID = " & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_tarjetas.asp") %> <% case "C" valor1 = request.form("txt_tipo") valor2 = request.form("txt_equipo") valor3 = request.form("txt_jugador") valor4 = request.form("txt_cantidad") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "INSERT INTO tarjetas (tipo,equipo,jugador,cantidad) VALUES ('" & valor1 & "', '" & valor2 & "', '" & valor3 & "', '" & valor4 & "')" Set rscode= objConncliente.execute(strcode) response.Redirect("update_tarjetas.asp") %> <% end select %>