<%@ LANGUAGE="VBSCRIPT" %> :: INFOAMEC :: <% Dim Login, Password Dim Opcion Login = trim(Request.Form("Login")) Password = trim(Request.Form("Password")) meseleg = Request.Form ("meseleg") ano = Request.Form ("ano") mes_nuevo = Request.Form ("mes_nuevo") ano_nuevo = Request.Form ("ano_nuevo") num = Request.Form("num") profesional = Request.Form("profesional") san_miguel = Request.Form("san_miguel") san_martin = Request.Form("san_martin") hurlingham = Request.Form("hurlingham") escobar = Request.Form("escobar") vprof = Request.Form("vprofesional") opcion = Request.Form ("Opcion") g_profesional = Request.Form("g_profesional") mes = month(date()) anio = year(date()) g_san_miguel = Request.Form("g_san_miguel") If g_san_miguel = "" Then g_san_miguel = "0" End If g_san_martin = Request.Form("g_san_martin") If g_san_martin = "" Then g_san_martin = "0" End If g_hurlingham = Request.Form("g_hurlingham") If g_hurlingham = "" Then g_hurlingham = "0" End If g_escobar = Request.Form("g_escobar") If g_escobar = "" Then g_escobar = "0" End If %> <% 'CONEXION A BASE DE DATOS Dim ruta, conecto ruta = Server.MapPath("base_infoamec/infoamec.mdb") set conecto = server.createobject("ADODB.connection") conecto.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&ruta&";Persist Security Info = False" %> <%Select Case Opcion%> <%Case "actualizar_medico"%> <%If vprof <> "" Then set actualizar_medico = conecto.execute("UPDATE liqmens SET smartin = "&san_martin&", smiguel= "&san_miguel&", hurli= "&Hurlingham&", escobar= "&escobar&" WHERE NProfesional = "&vprof&" AND mes ="&meseleg&" AND anio = "&ano&"")%> Se han actualizado los datos del médico. Gracias. <%End If%> <%Case "insertar_medico"%> <%set medico = conecto.execute("INSERT INTO profesionales (profesional) VALUES ('"&g_profesional&"')") set sacar_medico = conecto.execute("SELECT id FROM profesionales WHERE profesional = '"&g_profesional&"'") with sacar_medico if not .eof and not .bof then .movefirst set medicoliqmens = conecto.execute("INSERT INTO liqmens(NProfesional, mes, anio, smartin, smiguel, hurli, escobar) VALUES ("&sacar_medico("id")&","&mes&","&anio&","&g_san_martin&","&g_san_miguel&","&g_hurlingham&","&g_escobar&")") .movenext end if end with Response.Redirect(liquidacion.asp?Opcion=mostrar_tabla&Mensaje=medico_insertado) %> <%Case "nuevo_mes"%> <%set nuevo = conecto.execute("SELECT id FROM profesionales ORDER BY id") with nuevo if not .eof and not .bof then .movefirst do while not .eof set agregar_mes = conecto.execute("INSERT INTO liqmens (NProfesional, mes, anio, smartin, smiguel, hurli, escobar) VALUES ("&nuevo("id")&", "&mes_nuevo&", "&ano_nuevo&", 0,0,0,0)") .movenext loop end if end with End Select%>