<% id = request.QueryString("id") %>

<% if id = "" then response.Write "ERROR!!!, Imagen no existente." else set rs = server.CreateObject("ADODB.Recordset") set DB = server.CreateObject("ADODB.connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\_galeria.mdb") SQL = "SELECT * FROM fotos WHERE id = " & id rs.open SQL, DB, 3, 3 if rs.recordcount = 0 then response.Write "ERROR!!!, Imagen no existente." else response.Write "" end if end if %>