<% function quote(txt) quote=join(array("'",replace(txt,"'","''"),"'"),"") End Function ip=request.ServerVariables("REMOTE_ADDR") jour=left(now,10) release="Press_Release_December_2011" strsql="insert into press (IP,xdate,release) values (" dim crit(2) crit(0)=quote(ip) crit(1)=quote(jour) crit(2)=quote(release) strsql=strsql&join(crit,",")&")" bddconnect cheminbdd,strsql response.redirect "Press_Release_December_2011.pdf" %>