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

dim int_folio, str_proceso
dim STR_CONSULTA, RES_DATOS, Cnn, resultado(20), 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 20
	int_numero=0
	for j=1 to 4
		if Request.Form("r"&i&"-"&j)="on" then
			int_numero =J	
		end if
	next
	resultado(i)=int_numero
next



if str_proceso="alta" then ' si es una alta
	STR_CONSULTA = "SELECT * FROM dat_terman 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_terman (soli_folio, RG1, RG2, RG3, RG4, RG5, RG6, RG7, RG8, RG9, RG10, RG11, RG12, RG13, RG14, RG15, RG16, RG17, RG18, RG19, RG20)"_ 
		&" VALUES(" & int_folio & "," &  resultado(1) & "," &  resultado(2) & "," &  resultado(3) & "," &  resultado(4) & ","_
		&" " &  resultado(5) & "," &  resultado(6) & "," &  resultado(7) & "," &  resultado(8) & ", "_
		&" " &  resultado(9) & "," &  resultado(10) & "," &  resultado(11) & "," &  resultado(12) & ", "_
		&" " &  resultado(13) & "," &  resultado(14) & "," &  resultado(15) & "," &  resultado(16) & "," &  resultado(17) & "," &  resultado(18) & "," &  resultado(19) & "," &  resultado(20) & ")"
		Cnn.Execute STR_CONSULTA,,1
		Cnn.CommitTrans
	END IF
	RES_DATOS.Close
elseif str_proceso="cambio" then  ' si es un cambio
	Cnn.BeginTrans
	STR_CONSULTA = "SELECT * FROM dat_terman WHERE soli_folio =" & int_folio
	RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
	IF RES_DATOS.EOF = false then
		STR_CONSULTA = "UPDATE dat_terman SET RG1 =" & resultado(1) & ", RG2 =" & resultado(2) & ", RG3 =" & resultado(3) & ", RG4 =" & resultado(4) & ","_
		& " RG5 =" & resultado(5) & ", RG6 =" & resultado(6) & ", RG7 =" & resultado(7) & ", RG8 =" & resultado(8) & ","_
		& " RG9 =" & resultado(9) & ", RG10 =" & resultado(10) & ", RG11 =" & resultado(11) & ", RG12 =" & resultado(12) & ","_
		& " RG13 =" & resultado(13) & ", RG14 =" & resultado(14) & ", RG15 =" & resultado(15) & ", RG16 =" & resultado(16) & ","_
		& " RG17 =" & resultado(17) & ", RG18 =" & resultado(18) & ", RG19 =" & resultado(19) & ", RG20 =" & resultado(20) & " WHERE soli_folio =" & int_folio
		Cnn.Execute STR_CONSULTA,,1
	END IF
	RES_DATOS.Close
	Cnn.CommitTrans
end if
Cnn.Close
IF STR_SALIR ="SALIR" then
	Response.Redirect("aplicacion_termina.asp")
else
	Response.Redirect("term8_instruccion.asp")
end if
%>
