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

dim int_folio, str_proceso
dim STR_CONSULTA, RES_DATOS, Cnn, resultado(16), 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 11
	int_numero=0
	for j=1 to 3
		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, RB1, RB2, RB3, RB4, RB5, RB6, RB7, RB8, RB9, RB10, RB11)"_ 
		&" 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) & ")"
		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 RB1 =" & resultado(1) & ", RB2 =" & resultado(2) & ", RB3 =" & resultado(3) & ", RB4 =" & resultado(4) & ","_
		& " RB5 =" & resultado(5) & ", RB6 =" & resultado(6) & ", RB7 =" & resultado(7) & ", RB8 =" & resultado(8) & ","_
		& " RB9 =" & resultado(9) & ", RB10 =" & resultado(10) & ", RB11 =" & resultado(11) & " 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("term3_instruccion.asp")
end if
%>
