<%
if session("editor") = "" then
response.Redirect("index.asp")
end if
%>
<%
id = request.QueryString("id")
inserta = Trim(Request.QueryString("inserta"))
if inserta = "si" then
Dim Upload
Dim FileName
Dim Folder
Dim Ext
Dim FileOK
Set Upload = New clsUpload
Ext = Upload.Fields("imagen").FileExt
Select Case Ext
Case "GIF", "BMP", "PNG", "JPG"
FileOK = True
Case Else
FileOK = False
End Select
If Not FileOK Then
Msg = "Extension Inválida!!!."
else
Set DB = Server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.recordset")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\" & DB_)
SQL = "SELECT * FROM atletas WHERE id = " & id
rs.open SQL, DB, 3, 3
carpeta = rs.fields("carpeta")
rs.close
FileName = Upload.Fields("imagen").FileName
Folder = "C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\web\imagenes\" & carpeta & "\"
Upload("imagen").SaveAs Folder & "\" & FileName
Set Upload = Nothing
SQL = "UPDATE noticiasAtletas SET "
SQL = SQL & "foto = '" & Trim(FileName) & "' "
SQL = SQL & "WHERE id = " & id
set rs = DB.execute(SQL)
response.Redirect("menu.asp")
End If
end if
%>
Agregar Imagen de Noticia - sportstime.com.mx