<%
if session("editor") = "" then
response.Redirect("index.asp")
end if
%>
<%
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
Msg = ""
If Not FileOK Then
Msg = "Extension Inválida!!!."
else
FileName = Upload.Fields("imagen").FileName
Folder = "C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\web\imagenes\fotoGal\" & nombre
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\_galeria.mdb")
SQL = "INSERT INTO fotos (nombre) VALUES ('" & FileName & "')"
set rs = DB.execute(SQL)
Msg = "Foto Agregada."
End If
end if
%>
Fotogalería - sportstime.com.mx