PK

<!--#include file="includes/openconn.asp" -->

<!--#include file="includes/checkadmin.asp" -->

<%server.ScriptTimeout=600

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(imagedir & "\Documentos\archivos\" & session("idDocumento")) then
	response.Write(imagedir & "\Documentos\archivos\" & session("idDocumento"))
	Set f = fso.CreateFolder(imagedir & "\Documentos\archivos\" & session("idDocumento"))
	Set f = nothing
end if
Set fso = nothing

dim fff,nfile

if request("URLin") <> "" then

	dim hdLocation,fileURL,xmlHTTP,sadsa,oStream
	
	fileURL = request("URLin")
	fff = fileURL
	nfile = mid(fff,instrrev(fff,"/")+1)
	nfile = replace(nfile,"%20"," ")
	
	hdLocation = imagedir & "\Documentos\archivos\" & session("idDocumento") & "\" & nfile 
	
	set FSO = Createobject("Scripting.FileSystemObject")
	
	if fso.Fileexists(hdLocation) then
		Fso.DeleteFile hdLocation
	end if
	
	Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP")
	
	xmlHTTP.open "GET", fileURL , false
	xmlHTTP.send()
	
	sadsa = xmlHTTP.ResponseBody 
	
	set oStream =  Createobject("ADODB.Stream")
	oStream.type = 1
	oStream.open()
	oStream.write(sadsa)
	oStream.savetoFile(hdLocation)
	oStream.close()
	
	Set xmlHTTP = Nothing

else

	Dim Upload
	
	Set Upload = Server.CreateObject("Persits.Upload" ) 
	Upload.SetMaxSize 10000000 ' Maksimum dosya büyüklügü Byte cinsinden 
	Upload.OverwriteFiles = True 
	Upload.SaveVirtual "/database/documentos/archivos/" & session("idDocumento") & "/"
	
	nfile = Upload.Files(1).FileName

end if

'----------------------------CONTAR IMAGENES

dim cant
rs.open "SELECT * FROM Documentos WHERE idDocumento = " & session("idDocumento"),conn,2,2
rs.movefirst
if rs("doc_archivo") = "" or isnull(rs("doc_archivo")) then 
	 rs("doc_archivo") = nfile
	rs.update
end if
rs.close

conn.close

response.redirect("Documento_edit.asp?idDocumento=" & session("idDocumento"))
%>

PK 99