<% 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 tabla where ID=" & HOJA0 rsAdminss.Open strSQLcliente, objConncliente, adOpenForwardOnly, adLockOptimistic, adCmdText '------------------------------Fin de seccion de RS----------------------------------------------- %>
<% if Not rsAdminss.EOF then %> <% end if %>
:: Actualizacion de tabla
Cerrar[x]
     
EQUIPO PUNTOS "/>
PJ "/> PG "/> PP "/> PE "/> GF value="<%= rsAdminss("GF") %>"/> GC "/>
     
<% case "N" %>
:: Registro de tabla
Cerrar[x]
     
EQUIPO PUNTOS
PJ PG PP PE GF GC
     
<% case "D" valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "DELETE * FROM tabla WHERE ID =" & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_tabla.asp") %> <% case "U" valor1 = request.form("txt_equipob") valor2 = request.form("txt_puntosb") valor3 = request.form("txt_pjb") valor4 = request.form("txt_pgb") valor5 = request.form("txt_ppb") valor6 = request.form("txt_peb") valor7 = request.form("txt_gfb") valor8 = request.form("txt_gcb") valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "UPDATE tabla SET equipo = '" & valor1 & "', puntos = '" & valor2 & "', pj = '" & valor3 & "', pg = '" & valor4 & "', pp = '" & valor5 & "', pe = '" & valor6 & "', gf = '" & valor7 & "', gc = '" & valor8 & "' WHERE ID = " & valti Set rscode= objConncliente.execute(strcode) response.Redirect("update_tabla.asp") %> <% case "C" valor1 = request.form("txt_equipo") valor2 = request.form("txt_puntos") valor3 = request.form("txt_pj") valor4 = request.form("txt_pg") valor5 = request.form("txt_pp") valor6 = request.form("txt_pe") valor7 = request.form("txt_gf") valor8 = request.form("txt_gc") valti= request.QueryString("ID") Set rscode = Server.CreateObject("ADODB.Recordset") strcode = "INSERT INTO tabla (equipo,puntos,pj,pg,pp,pe,gf,gc) VALUES ('" & valor1 & "', '" & valor2 & "', '" & valor3 & "', '"& valor4 & "', '" & valor5 & "', '" & valor6 & "', '" & valor7 & "', '" & valor8 & "')" Set rscode= objConncliente.execute(strcode) response.Redirect("update_tabla.asp") %> <% end select %> <% objConncliente.Close Set objConncliente = Nothing %>