<%
set conn = server.createobject ("adodb.connection")
conn.open "EmpDir", "sa", "twoje_haslo"
conn.execute "insert into Referrals (ReferredTo) values ('" _
   & Request.QueryString("url") & "')"
response.redirect(Request.QueryString("url"))
%>
