<%
if session("editor") = "" then
response.Redirect("index.asp")
end if
tipo = cint(Request.QueryString("tipo"))
if not verifica(tipo) then
response.Redirect("menu.asp")
end if
%>
<%
id = request.QueryString("id")
response.Write(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
FileName = Upload.Fields("imagen").FileName
Folder = "C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\web\imagenes\" & tipos(tipo)
Upload("imagen").SaveAs Folder & "\" & FileName
Set Upload = Nothing
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 = "UPDATE " & tipos(tipo) & " 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 - <%= titulos(tipo) %> - sportstime.com.mx