<% 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 goleadores where ID=" & HOJA0 rsAdminss.Open strSQLcliente, objConncliente, adOpenForwardOnly, adLockOptimistic, adCmdText '------------------------------Fin de seccion de RS----------------------------------------------- %>
:: Actualizacion de goleadores
Cerrar[x]
Volver a listado
<% if Not rsAdminss.EOF then %>
ID
<%= rsAdminss("ID") %>
Equipo
"/>
Jugador
" size="30"/>
Cantidad
" size="30"/>
<% end if %>
<% case "N" %>
:: Registro de goleadores
Cerrar[x]
Volver a listado
ID
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 goleadores WHERE ID =" & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_goleadores.asp") %> <% case "U" 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 goleadores SET equipo = '" & valor2 & "', jugador = '" & valor3 & "', cantidad = '" & valor4 & "' WHERE ID = " & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_goleadores.asp") %> <% case "C" valor2 = request.form("txt_equipo") valor3 = request.form("txt_jugador") valor4 = request.form("txt_cantidad") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "INSERT INTO goleadores (equipo,jugador,cantidad) VALUES ('" & valor2 & "', '" & valor3 & "', '" & valor4 & "')" Set rscode= objConncliente.execute(strcode) response.Redirect("update_goleadores.asp") %> <% end select %>