EVERQUEEN - Italian Queen Tribute Band , Rome - Tributo Italiano ai Queen, Roma

<% '------------------------------------------------------------------------------------ 'Copyright (C) 2004 Demetrio Milea ' 'This program is free software; you can redistribute it and/or 'modify it under the terms of the GNU General Public License 'as published by the Free Software Foundation; either version 2 'of the License, or (at your option) any later version. ' 'This program is distributed in the hope that it will be useful, 'but WITHOUT ANY WARRANTY; without even the implied warranty of 'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 'GNU General Public License for more details. ' 'A copy of the license may be found at www.fsf.org (Free Software Foundation) 'or inside the folder blocca_ip '------------------------------------------------------------------------------------ %> <% ip_utente = Request.ServerVariables("REMOTE_ADDR") userhost = Request.ServerVariables("REMOTE_HOST") 'controllo se il tuo ip è inserito all'interno del db servf = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/blocca_ip.mdb") set rec = server.createobject("ADODB.Recordset") sql = "select ip from tbl_ip_lista where ip ='" & ip_utente & "'" rec.Open sql, servf if rec.eof then ipin = "Y" end if rec.close %> <% 'se l'ip è nel database allora: if ipin <> "Y" then Response.Status ="Http 403= Accesso Negato : Questo Web Site è temporaneamente OFF LINE" Response.Write Response.Status Response.End End If %> EVERQUEEN - Italian Queen Tribute Band , Rome - Tributo Italiano ai Queen, Roma