<%=request.cookies("nr")%> <% Dim id,NR,sql,rs,db,conn set conn=server.createobject("ADODB.CONNECTION") db="WebDb/mygjg2010.mdb" connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(db)&";Persist Security Info=False;" conn.open connstr ID=Trim(Request("ID")) If ID <>"" Then sql="select nr from T_XX where id="&ID 'response.Write(sql) set rs=conn.execute(sql) If not rs.Eof Then NR=rs("nr") End If Response.Write(NR) set rs=nothing End If set conn=nothing %>