<%@ 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 %>