hvad er der galt her ?

Scripten skulle lægge et cookies på computer, også skulle den vise brugernavnet, men det virker ik, og den meddeler ingen fejl.

Håber du er med på hvad jeg mener !

Scripten:
<%

id = Request.QueryString(\"id\")

    dim strDSN, Conn
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open strDSN

Set RS = conn.Execute(\"select * from bruger where ID =\" & id)

if cdate(request.cookies(\"hit\")(cstr(download))) < DateAdd(\"d\",-6,now()) then
    downloads=cInt(rs(\"downloads\"))+1
    Set RS2 = conn.Execute(\"UPDATE bruger SET hits = \" & hits & \" Where ID =\" & id)
    response.cookies(\"hits\").expires=DateAdd(\"m\",1,now())
    response.cookies(\"hits\").domain = \"www.web-zone.dk\"
    response.cookies(\"hits\")(cstr(download))= now()
End If

%>

<% = rs(\"brugernavn\") %>

<%
RS.Close
set rs= nothing
conn.Close
set conn = nothing

%>