<%
if session("autorizado") = "" 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 = server.MapPath("..\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=" + Server.MapPath("../../db/_galeria.mdb"))
SQL = "INSERT INTO fotos (nombre) VALUES ('" & FileName & "')"
set rs = DB.execute(SQL)
Msg = "Foto Agregada."
End If
end if
%>
Agregar Foto .:||:. Editor .:||:. Federación Mexicana de Ciclismo