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