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

dim int_folio, str_proceso
dim STR_CONSULTA, RES_DATOS, Cnn, resultado(22), 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
	resultado((i*2)-1)=replace(replace(Request.Form("r"&i&"-1"),"'"," "),chr(34)," ")
	resultado(i*2)=replace(replace(Request.Form("r"&i&"-2"),"'"," "),chr(34)," ")
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, RJ1, RJ2, RJ3, RJ4, RJ5, RJ6, RJ7, RJ8, RJ9, RJ10, RJ11, RJ12, RJ13, RJ14, RJ15, RJ16, RJ17, RJ18, RJ19, RJ20, RJ21, RJ22)"_ 
		&" 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) & "',"_
		&" '" &  resultado(21) & "','" &  resultado(22) & "')" 
		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 = "UPDATE dat_terman SET RJ1 ='" & resultado(1) & "', RJ2 ='" & resultado(2) & "', RJ3 ='" & resultado(3) & "', RJ4 ='" & resultado(4) & "',"_
	& " RJ5 ='" & resultado(5) & "', RJ6 ='" & resultado(6) & "', RJ7 ='" & resultado(7) & "', RJ8 ='" & resultado(8) & "',"_
	& " RJ9 ='" & resultado(9) & "', RJ10 ='" & resultado(10) & "', RJ11 ='" & resultado(11) & "', RJ12 ='" & resultado(12) & "'" _ 
	& ", RJ13 ='" & resultado(13) & "', RJ14 ='" & resultado(14) & "', RJ15 ='" & resultado(15) & "', RJ16 ='" & resultado(16) & "'" _ 
	& ", RJ17 ='" & resultado(17) & "', RJ18 ='" & resultado(18) & "', RJ19 ='" & resultado(19) & "', RJ20 ='" & resultado(20) & "'" _ 
	& ", RJ21 ='" & resultado(21) & "', RJ22 ='" & resultado(22) & "' WHERE soli_folio =" & int_folio
	Cnn.Execute STR_CONSULTA,,1
	Cnn.CommitTrans
end if
Cnn.Close
IF STR_SALIR ="SALIR" then
	Response.Redirect("aplicacion_termina.asp")
else
	Response.Redirect("uti_siguiente.asp")
end if 

%>
