<%@ Language=VBScript %>
<!--#INCLUDE file="ADOVBS.inc"-->
<%

dim int_folio, str_proceso
dim STR_CONSULTA, RES_DATOS, Cnn, str_res_1, str_res_2, str_res_3, STR_SALIR


str_bd= application("bd_sieps")

set Cnn = server.CreateObject ("ADODB.Connection")
set RES_DATOS = server.CreateObject ("ADODB.Recordset")

Cnn.Open str_bd
   
int_folio = Request.QueryString("folio")
str_proceso = Request.QueryString("proceso")
STR_SALIR= Request.Form("SALIR")

for i=1 to 478
	int_numero=0
	for j=1 to 2
		if Request.Form("r"&i&"-"&j)="on" then
			int_numero =J	
		end if
	next
	if i<=250 then
		str_res_1=str_res_1 & int_numero
	ElseIf i > 250 And i<= 478 Then
		str_res_2=str_res_2 & int_numero
	end if
next


if str_proceso="alta" then ' si es una alta
	STR_CONSULTA = "SELECT * FROM dat_mmpia WHERE soli_folio =" & int_folio
	RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
	IF RES_DATOS.EOF = true then ' si no existe
		Cnn.BeginTrans
		STR_CONSULTA = "INSERT INTO dat_mmpia (soli_folio, r1, r2)"_
		&" VALUES(" & int_folio & ",'" &  str_res_1 & "','" &  str_res_2 & "')"
		Cnn.Execute STR_CONSULTA,,1
		Cnn.CommitTrans
	END IF
	RES_DATOS.Close

elseif str_proceso="cambio" then  ' si es un cambio
	STR_CONSULTA = "SELECT * FROM dat_mmpia WHERE soli_folio =" & int_folio
	RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
	IF RES_DATOS.EOF = false then
		Cnn.BeginTrans
		STR_CONSULTA = "UPDATE dat_mmpia SET r1 ='" & str_res_1 & "', r2 ='" & str_res_2 & "' WHERE soli_folio =" & int_folio
		Cnn.Execute STR_CONSULTA,,1
		Cnn.CommitTrans
	END IF
	RES_DATOS.Close
end if
Cnn.Close
IF STR_SALIR ="SALIR" then
	Response.Redirect("aplicacion_termina.asp")
else
	Response.Redirect("uti_siguiente.asp")
end if
%>
