<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="../Includes/validacookie.asp"-->
<!--#include file="../Includes/FuncionIdioma.asp"-->
<%Response.Buffer = True%>
<%

'************************
' Variables
'************************

Dim Upload
Dim file, fso
        
'  Object creation
'  ***************
'Set Upload = Server.CreateObject("Persits.Upload")
Set Upload = Server.CreateObject("SoftArtisans.FileUp")
'  Upload
'  ******
'Upload.MaxTotalSize=500000

Id_Usuario = Request.Cookies("Id_Usuario")

Code = Upload.Form("Code")
Id_Empresa = Upload.Form("Id_Empresa")
wTxtId_TipoProblema = Upload.Form("TxtId_TipoProblema")

wTxtNombreProducto = Upload.Form("TxtNombreProducto")
wTxtDescripcionCorta = Upload.Form("TxtDescripcionCorta")
wTxtDescripcionDetalle = Upload.Form("TxtDescripcionDetalle")

if Code = "" then
	Code = -1
end if

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Application("ConnectionString")
set wRs = Server.CreateObject("ADODB.Recordset")			

wFoto = ""
wFotos = ""
wCatalogo = ""
 
if Code > 0 then 'Actualiza
	wSQL = "pr_GS_Producto2_Get " & Code
	Set wRs = ObjConn.Execute(wSQL)	
	wFoto = wRS("ArchivoFoto")	
	wFotoS = wRS("ArchivoProducto")
	wCatalogo = wRS("ArchivoCatalogo")

	if IsNull(wFotoS) then wFotoS = ""
	if IsNull(wFoto) then wFoto = ""	
	if IsNull(wCatalogo) then wCatalogo = ""

    wSQL = "pr_GS_Producto_Upd " & Code & "," & wTxtId_TipoProblema & ",'" & wTxtNombreProducto & "'" & "," & "'" & wTxtDescripcionCorta & "'" & "," & "'" & wTxtDescripcionDetalle & "'" & "," & Id_Usuario & "," & Id_Empresa
	objConn.Execute(wSQL)
else  'Nuevo

	wSQL = "pr_GS_Producto_Ins " & wTxtId_TipoProblema & ",'" & wTxtNombreProducto & "'" & "," & "'" & wTxtDescripcionCorta & "'" & "," & "'" & wTxtDescripcionDetalle & "'" & "," & Id_Usuario & "," & Id_Empresa
	objConn.Execute(wSQL)

	wSQL = "Select top 1 Id_Producto from GS_Producto Order by Id_Producto Desc"
	Set wRs = ObjConn.Execute(wSQL)
	Code = wRS(0)
end if

'  Select each file
'  ****************
set fso = CreateObject("Scripting.FileSystemObject")


'Elimina los archivos que estuviesen creados anteriormente
	Response.Write IsObject(Upload.Form("txtEtiquetaProducto"))
	Response.end
	if IsObject(Upload.Form("txtEtiquetaProducto")) then	
		if Not Upload.Form("txtEtiquetaProducto").IsEmpty then	
		   if wFotoS <> "" then 				
				fso.DeleteFile Request.ServerVariables("APPL_PHYSICAL_PATH")& "ArchivosProducto\" & wFotoS
			end if	
			strShortFileName = Upload.Form("txtEtiquetaProducto").ShortFileName
			strExtension = Mid(strShortFileName, InStrRev(strShortFileName, "."))
			wFotoS = "E_" & "PV_" & Code & "." & strExtension  	 						
			Upload.Form("txtEtiquetaProducto").SaveAs Request.ServerVariables("APPL_PHYSICAL_PATH")& "ArchivosProducto\" & wFotoS
		    wSQL = "pr_GS_Producto_UpdProducto " & Code & "," & "'" & wFotoS & "'" 
			objConn.Execute(wSQL) 	
		end if	
	End if	
	
	If IsObject(Upload.Form("Archivo2")) then
		if Not Upload.Form("Archivo2").IsEmpty then
			if wFoto <> "" then				
				fso.DeleteFile Request.ServerVariables("APPL_PHYSICAL_PATH")& "ArchivosProducto\" & wFoto
			end if	
			wFoto = "F_" & "PV_" & Code & "." & Upload.Files(1).Ext  	
			Upload.Form("Archivo2").SaveAs Request.ServerVariables("APPL_PHYSICAL_PATH")& "ArchivosProducto\" & wFoto
		    wSQL = "pr_GS_Producto_UpdFoto " & Code & "," & "'" & wFoto & "'" 
			objConn.Execute(wSQL)
		end if	
	End if
		
	If IsObject(Upload.Form("Archivo3")) then
		if Not Upload.Form("Archivo3").IsEmpty then
				if wCatalogo <> "" then				
					fso.DeleteFile Request.ServerVariables("APPL_PHYSICAL_PATH")& "ArchivosProducto\" & wCatalogo		
				end if	
				wCatalogo = "C_" & "PV_" & Code & "." & Upload.Files(1).Ext  	
				Upload.Form("Archivo3").SaveAs Request.ServerVariables("APPL_PHYSICAL_PATH")& "ArchivosProducto\" & wCatalogo
			    wSQL = "pr_GS_Producto_UpdCatalogo " & Code & "," & "'" & wCatalogo & "'" 
				objConn.Execute(wSQL)
		end if		
	end if

wRs.Close
Set wRs = Nothing
Set objConn = Nothing
Set fso = Nothing

 Response.Redirect "GS_Producto_Edit.asp?Acc=Edit&Code=" & Code
%>