Agenda em asp

Ae galera tudo bem?...É o seguinte estou montando uma agenda para empresa do meu pai só que ta f* pq faz muito tempo que num mecho com ASP. A minha duvida é quanto a esta pagina:

<%Option ExplicitResponse.Expires = 0Dim objConn, objRs, strQuery, strConnection, v_dia, V_mes, v_ano Set objConn = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("xxx.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}", "username", "password"v_Dia = Request.Form("vPg_dia")v_Mes = Request.Form("vPg_Mes")v_Ano = Request.Form("vPg_Ano")strQuery = " SELECT DB_Dia,DB_Mes,DB_Ano,DB_empresa1,DB_empresa2,DB_empresa3,DB_info FROM Agenda where DB_Dia = '"&v_Dia&"' and DB_Mes = '"&v_Mes&"' and DB_Ano = '"&v_Ano&"' "On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Then	response.Write("ok" & "<BR>")end if%>

na ver dade é um pequeno teste que estava fazendo com a Query, essa pagina deveria apenas dar um Ok se não houvesse erro nenhum. E esse é o problema aparentemente não há erro nenhum mas tbm não tem "Ok" nenhum! Alguem sabe onde está o erro?

o endereço do sistema uqe estou montando é esse aki : http://www.santannaconsultoria.com.br/novo...nda_inicial.asp

Essa pagina inicial do sistema é a que o cara escolhe a data para ver se tem algum compromisso, e obviamente o botão adicionar compromisso é pro cara adicionar um novo compromisso, o botão logout é pro futuro sistema de login que fará parte da agenda...O problema é quando eu vou procurar um compromisso, que é quando entra essa pagina....deu pra vcs entenderem?........bem axo que sim, se precisarem de outras infomações e só pedir.

Grato

Vinicius Sant'Anna