Hola, estoy probando el código que anexo pero tengo problemas para guardar el archivo en el repositorio, alguien podría ayudarme? se los agradecería mucho. el código que estoy usando, es el siguiente:
en la base de datos de SQL si me guarda pero no en el repositorio
<!--#include file="loader.asp" -->
<!--#include file="Conexion/conexion.asp" -->
<%
server.ScriptTimeout = 100000000
'Set Master = Server.CreateObject("ADODB.Connection")
' Master.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../base/cybernetsc.mdb"))
path = "./uploaded/"
Dim Uploader, File
Set Uploader = New FileUploader
Uploader.Upload()
If Uploader.Files.Count <> 0 Then
titulo = Uploader.form("txttitulo")
Comentarios = Uploader.form("txtnoticia")
archivo = Uploader.form("txtarchivo")
archivo = replace(archivo, "/", "\")
archivo = right(archivo, len(archivo) - instrrev(archivo, "\"))
archivo = lcase(archivo)
archivo = replace(archivo, " ", "_")
For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath(path), archivo
Next
response.Write(path)
sSQL = "insert into Archivos(Titulo,Archivo,Comentarios) values ('" & Titulo & "', '" & archivo & "', '" & Comentarios & "')"
dbconn.execute(sSQL)
'response.Redirect("confirma.htm")
end if
%>
