<% dim departa departa =request.QueryString("dep") dim consulta dim cn dim rs sub creaobjetos Set cn = server.CreateObject("ADODB.Connection") cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\data\aytovalverde\dataweb.mdb;Persist Security Info=False" Set rs = server.CreateObject("ADODB.Recordset") end sub sub eliminaobjetos Set rs = nothing Set cn = nothing end sub %>