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

	dim str_accion,str_proceso, str_usuario, str_fecha_captura
	dim lon_folio, str_nombre, int_edad, int_sexo, str_sexo,str_departamento, str_puesto,str_perfil
	dim int_dia_apl, int_mes_apl, int_ano_apl, str_fecha_aplica,str_hora, str_empresa1, str_empresa2, str_empresa3
	dim str_puesto1, str_puesto2, str_puesto3, str_inicio1, str_inicio2, str_inicio3, str_fin1, str_fin2, str_fin3
	dim int_experiencia, str_escolar1, str_escolar2, str_escolar3, str_institucion1,str_institucion2,str_institucion3
	dim str_titulo1,str_titulo2,str_titulo3, str_promedio1,str_promedio2,str_promedio3, str_ortografia, str_ingles
	dim str_comunicacion,str_comentarios, str_estatus, int_turno

	dim STR_CONSULTA, rs, conn , str_empresa

	str_empresa=Request.Cookies("sieps")("empresa")
	str_usuario=Request.Cookies("sieps")("usuario_clave")


	str_bd= application("bd_sieps")

	set conn = server.CreateObject ("ADODB.Connection")
	set rs = server.CreateObject ("ADODB.Recordset")

	conn.Open str_bd


	lon_folio= Request.Cookies("sieps")("folio") 

	str_nombre = replace(replace(Request.Form("TXT_NOMBRE"),"'"," "),chr(34)," ")
	int_edad = replace(replace(Request.Form("TXT_EDAD"),"'"," "),chr(34)," ")
	int_sexo = request.Form("RDO_SEXO")
	if int_sexo = "2" then
		str_sexo="Mujer"
	else
		str_sexo="Hombre"
	end if
	str_empresa1 = replace(replace(Request.Form("TXT_EMPRESA1"),"'"," "),chr(34)," ")
	str_empresa2 = replace(replace(Request.Form("TXT_EMPRESA2"),"'"," "),chr(34)," ")
	str_empresa3 = replace(replace(Request.Form("TXT_EMPRESA3"),"'"," "),chr(34)," ")
	str_puesto1 = replace(replace(Request.Form("TXT_PUESTO1"),"'"," "),chr(34)," ")
	str_puesto2 = replace(replace(Request.Form("TXT_PUESTO2"),"'"," "),chr(34)," ")
	str_puesto3 = replace(replace(Request.Form("TXT_PUESTO3"),"'"," "),chr(34)," ")
	str_inicio1 = replace(replace(Request.Form("TXT_INICIO1"),"'"," "),chr(34)," ")
	str_inicio2 = replace(replace(Request.Form("TXT_INICIO2"),"'"," "),chr(34)," ")
	str_inicio3 = replace(replace(Request.Form("TXT_INICIO3"),"'"," "),chr(34)," ")
	str_fin1 = replace(replace(Request.Form("TXT_FIN1"),"'"," "),chr(34)," ")
	str_fin2 = replace(replace(Request.Form("TXT_FIN2"),"'"," "),chr(34)," ")
	str_fin3 = replace(replace(Request.Form("TXT_FIN3"),"'"," "),chr(34)," ")
	int_experiencia = replace(replace(Request.Form("TXT_EXPERIENCIA"),"'"," "),chr(34)," ")
	if not isnumeric(int_experiencia) then
		int_experiencia=0
	end if
	str_escolar1 = replace(replace(Request.Form("TXT_ESCOLAR1"),"'"," "),chr(34)," ")
	str_escolar2 = replace(replace(Request.Form("TXT_ESCOLAR2"),"'"," "),chr(34)," ")
	str_escolar3 = replace(replace(Request.Form("TXT_ESCOLAR3"),"'"," "),chr(34)," ")
	str_institucion1 = replace(replace(Request.Form("TXT_INSTITUCION1"),"'"," "),chr(34)," ")
	str_institucion2 = replace(replace(Request.Form("TXT_INSTITUCION2"),"'"," "),chr(34)," ")
	str_institucion3 = replace(replace(Request.Form("TXT_INSTITUCION3"),"'"," "),chr(34)," ")
	str_titulo1 = replace(replace(Request.Form("TXT_TITULO1"),"'"," "),chr(34)," ")
	str_titulo2 = replace(replace(Request.Form("TXT_TITULO2"),"'"," "),chr(34)," ")
	str_titulo3 = replace(replace(Request.Form("TXT_TITULO3"),"'"," "),chr(34)," ")
	str_promedio1 = replace(replace(Request.Form("TXT_PROMEDIO1"),"'"," "),chr(34)," ")
	str_promedio2 = replace(replace(Request.Form("TXT_PROMEDIO2"),"'"," "),chr(34)," ")
	str_promedio3 = replace(replace(Request.Form("TXT_PROMEDIO3"),"'"," "),chr(34)," ")
	str_ingles = replace(replace(Request.Form("TXT_INGLES"),"'"," "),chr(34)," ")
		
	str_fecha_captura= month(now)&"/" & day(now)&"/"&year(now) & " " & hour(now)& ":" & minute(now)

	conn.BeginTrans	
	STR_CONSULTA = "UPDATE solicitud SET soli_nombre ='" & str_nombre & "', soli_edad =" & int_edad & ", soli_sexo ='" & str_sexo & "', soli_anos_experiencia=" & int_experiencia & ", soli_empresa_1='" & str_empresa1 & "', soli_empresa_2='" & str_empresa2 & "', soli_empresa_3='" & str_empresa3 & "', soli_puesto_1='" & str_puesto1 & "', soli_puesto_2='" & str_puesto2 & "', soli_puesto_3='" & str_puesto3 & "', soli_ano_inicial_1='" & str_inicio1 & "', soli_ano_inicial_2='" & str_inicio2 & "', soli_ano_inicial_3='" & str_inicio3 & "', soli_ano_final_1='" & str_fin1 & "', soli_ano_final_2='" & str_fin2 & "', soli_ano_final_3='" & str_fin3 & "', soli_escolar_1='" & str_escolar1 & "', soli_escolar_2='" & str_escolar2 & "', soli_escolar_3='" & str_escolar3 & "', soli_fecha_titulo_1='" & str_titulo1 & "', soli_fecha_titulo_2='" & str_titulo2 & "', soli_fecha_titulo_3='" & str_titulo3 & "', soli_instituto_1='" & str_institucion1 & "', soli_instituto_2='" & str_institucion2 & "', soli_instituto_3='" & str_institucion3 & "', soli_promedio_1='" & str_promedio1 & "', soli_promedio_2='" & str_promedio2 & "', soli_promedio_3='" & str_promedio3 & "', soli_toefl='" & str_ingles & "', usua_clave='" & str_usuario & "', fecha_captura='" & str_fecha_captura & "' WHERE soli_folio =" & lon_folio
	On Error Resume Next
	conn.Execute STR_CONSULTA,,1
	handleError(conn)
	conn.CommitTrans
	Response.Redirect("http://manemployee.com/captura_fotografia/snap.html")

		'clean up
	If rs.State = adStateOpen then
		rs.Close
	End If
	If conn.State = adStateOpen then
		conn.Close
	End If
	Set rs = Nothing
	Set conn = Nothing
	
sub handleError(connectionRef)
	dim objErr
	dim str_c
	dim strrr, flag
	flag = 0

	if connectionRef.Errors.Count <> 0 Then
		str_c = str_c & "Count: " 
		str_c = str_c & connectionRef.Errors.Count
		for each objErr in connectionRef.Errors
			if objErr.Number <> 0 then ' Number = 0 el error es meramente informativo
				str_c = str_c & " Number: "
				str_c = str_c & objErr.Number			
				
				str_c = str_c & " Description: "
				str_c = str_c & objErr.Description  
			  
				str_c=str_c&" Native error: "
				str_c=str_c&objErr.NativeError 
				  
				str_c=str_c&" SQL state: "
				str_c=str_c&objErr.SQLState
				flag = 1
			end if
		next		
		if flag <> 0 then
			' clean up		
			if conn.State = adStateOpen then
				conn.Close
			end if
			
			set rs = Nothing
			set conn = Nothing
			set connectionRef = nothing
			
			strrr = "uti_console.asp?mensaje=" & "Error: " & str_c 
			Response.Redirect(strrr)
		end if		
	end if	
end sub	
	
sub sendMensajeToConsole(mensaje)
	dim strrr
	strrr="uti_console.asp?mensaje=" & mensaje
	Response.Redirect(strrr)
end sub
%>