:: 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%>