<%@ LANGUAGE="VBSCRIPT" %>
<%
dim urlempty
urlempty="http://www.cementerioparque.com"
dim url
url=""
url=trim(Request.querystring("url"))
if url="" then
response.redirect urlempty
else
call addnew()
end if
%>
acceso
<%
sub addnew()
set db_fecha=server.CreateObject("adodb.recordset")
db_sql = "SELECT * FROM fechas"
db_fecha.cursortype= 2
db_fecha.locktype=3
e="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("dbfechascontrol.mdb")
db_fecha.open db_sql, e
db_fecha.AddNew
db_fecha("fecha")=date()
db_fecha("nombre")=url
db_fecha.Update
db_fecha.Close()
set db_fecha=nothing
response.redirect "http://" & url
end sub
%>