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