<%@  language="VBScript" %>
<% Option Explicit
   Response.Expires = 0
   Server.ScriptTimeout = 600

   ' define variables y COM objects
   dim ado_stream
   dim xml_dom
   dim fso
   dim dir_servidor
   dim dir_real
   dim archivo_real

   ' Parametros que vienen en el xml_dom
   dim xml_nombre
   dim xml_directorio
   dim xml_tipo
   dim xml_archivo
   dim xml_ctrlnum

   ' Creacion de objetos
   set ado_stream 	= Server.CreateObject("ADODB.Stream")
   set xml_dom 		= Server.CreateObject("MSXML2.DOMDocument")
   Set fso 			= CreateObject("Scripting.FileSystemObject")

   ' Recupera nodos del XML
   xml_dom.load(request)
   set xml_nombre 		= xml_dom.selectSingleNode("root/nombre")
   set xml_directorio 	= xml_dom.selectSingleNode("root/directorio")
   set xml_tipo 		= xml_dom.selectSingleNode("root/tipo")
   set xml_archivo 		= xml_dom.selectSingleNode("root/archivo")
   set xml_ctrlnum 		= xml_dom.selectSingleNode("root/controlnum")

   ' Toma desde la raiz del servidor. El Upload esta en webvisor_bin
   dir_servidor		= "D:\JbossServer\archivoswv"
   ' "c:\dsigner"
   ' Server.MapPath("..\")

   Response.Write "WEBVisor UPLOAD" & vbCrLf & vbCrLf
   Response.Write "Parametros procesados:        " & vbCrLf
   Response.Write "Nombre del archivo a guardar: " & xml_nombre.nodeTypedValue & vbCrLf
   Response.Write "Directorio de descarga:       " & dir_servidor & xml_directorio.nodeTypedValue & vbCrLf
   Response.Write "Tipo de archivo:              " & xml_tipo.nodeTypedValue & vbCrLf
   Response.Write "Control numerico:             " & xml_ctrlnum.nodeTypedValue & vbCrLf
   Response.Write "Directorio raiz de descarga:  " & dir_servidor & vbCrLf & vbCrLf

   Response.Write "Resultado del proceso:       " & vbCrLf

   if Right(dir_servidor, 1) <> "\" then dir_servidor = dir_servidor & "\"
   dir_real			= dir_servidor & xml_directorio.nodeTypedValue
   if Right(dir_real, 1) <> "\" then dir_real = dir_real & "\"

	if fso.FolderExists(dir_real) Then
	   archivo_real		= dir_real & xml_nombre.nodeTypedValue
	   ' Lee los datos del archivo
	   if xml_tipo.nodeTypedValue <> "BINARIO"  then
	   	   ' ado_stream.Type = 2
		   ' ado_stream.open
		   ' ado_stream.Writetext		xml_archivo.nodeTypedValue
	   else
		   ado_stream.Type = 1  													' 1=adTypeBinary
		   ado_stream.open
		   ado_stream.Write 		xml_archivo.nodeTypedValue
	   end if

	   ado_stream.SaveToFile  	archivo_real , 2    							' ,2   Sobre escrive
	   ado_stream.close
	   Response.Write "@WV0VW@ - Descarga exitosa" & vbCrLf

    else
	   Response.Write "@WV1VW@ - Error en descarga - Directorio no existe o no tiene permisos" & vbCrLf
	End If

   Response.Write vbCrLf & "Proceso terminado" & vbCrLf

   set ado_stream = Nothing
   set xml_dom = Nothing
   Set fso = Nothing

%>