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

dim int_folio, str_proceso
dim STR_CONSULTA, RES_DATOS, Cnn, resultado(18), 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 18
	int_numero=""
	for j=1 to 5
		if Request.Form("r"&i&"-"&j)="on" then
			int_numero = int_numero & J	
		end if
	next
	if int_numero="" then
		int_numero=0
	end if
	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, RD1, RD2, RD3, RD4, RD5, RD6, RD7, RD8, RD9, RD10, RD11, RD12, RD13, RD14, RD15, RD16, RD17, RD18)"_ 
		&" 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) & ")"
		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 RD1 =" & resultado(1) & ", RD2 =" & resultado(2) & ", RD3 =" & resultado(3) & ", RD4 =" & resultado(4) & ","_
		& " RD5 =" & resultado(5) & ", RD6 =" & resultado(6) & ", RD7 =" & resultado(7) & ", RD8 =" & resultado(8) & ","_
		& " RD9 =" & resultado(9) & ", RD10 =" & resultado(10) & ", RD11 =" & resultado(11) & ", RD12 =" & resultado(12) & ","_
		& " RD13 =" & resultado(13) & ", RD14 =" & resultado(14) & ", RD15 =" & resultado(15) & ", RD16 =" & resultado(16) & ", RD17 =" & resultado(17) & ", RD18 =" & resultado(18) & " 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("term5_instruccion.asp")
end if
%>
