Foros del Web » Programando para Internet » ASP Clásico »

Renombrar archivo al Subir

Estas en el tema de Renombrar archivo al Subir en el foro de ASP Clásico en Foros del Web. Hola a todos Necesito vuestra ayuda. Tengo un codigo hecho para noticias. El código guarda los textos de las noticias y ademas sube una imagen. ...
  #1 (permalink)  
Antiguo 27/03/2007, 12:31
 
Fecha de Ingreso: octubre-2003
Mensajes: 364
Antigüedad: 20 años, 8 meses
Puntos: 1
Renombrar archivo al Subir

Hola a todos
Necesito vuestra ayuda. Tengo un codigo hecho para noticias. El código guarda los textos de las noticias y ademas sube una imagen. Hasta aquí todo correcto. Pero lo que quiero es que renombre esas imágenes y mire a ver si tiene la extension gif o jpg.

El codigo que tengo es el siguiente. ¿Que le tengo que añadir para que renombre las imágenes?
Código:
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open ConString
	
	Set Upload = Server.CreateObject("Persits.Upload.1")
	Count =	Upload.Save(Server.MapPath("noticias/"))
        
Fecha = Date
	For Each File in Upload.Files
		If File.Name = "foto" then
			Foto = File.Filename
		end if
	Next

	Set File = Upload.Files("foto")
	
	if Foto <> "" then
		Foto = File.ExtractFileName
	else
		Foto = ""
	end if
	
	Set rsNoticias = Server.CreateObject("ADODB.Recordset")
	SQLQuery = " SELECT * FROM Noticias "
	
	rsNoticias.Open SQLQuery,Conn,1,2
	
	rsNoticias.AddNew
	
	rsNoticias("Titulo") = Titulo
	rsNoticias("Desarrollo") = Desarrollo
	rsNoticias("Fecha") = Fecha
	rsNoticias("Foto") = Foto
	rsNoticias("Tipo") = Tipo

	rsNoticias.Update
	
	rsNoticias.Close
	set rsNoticias = nothing

	Conn.Close
	Set Conn = nothing
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:27.