<%@ 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 12
	resultado(i)=replace(replace(Request.Form("r"&i),"'"," "),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, RE1, RE2, RE3, RE4, RE5, RE6, RE7, RE8, RE9, RE10, RE11, RE12)"_ 
		&" 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) & "')"
		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 RE1 ='" & resultado(1) & "', RE2 ='" & resultado(2) & "', RE3 ='" & resultado(3) & "', RE4 ='" & resultado(4) & "',"_
		& " RE5 ='" & resultado(5) & "', RE6 ='" & resultado(6) & "', RE7 ='" & resultado(7) & "', RE8 ='" & resultado(8) & "',"_
		& " RE9 ='" & resultado(9) & "', RE10 ='" & resultado(10) & "', RE11 ='" & resultado(11) & "', RE12 ='" & resultado(12) & "' 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("term6_instruccion.asp")
end if
%>
