ASP não inclui registro no BD

Estou com problemas para adicionar um novo registro com o dia atual, se puderem me ajudar, pois preciso disso :D segue o código-----<%diadb = Day(now) mes = Month(now)anodb = Year(now)id = Day(now)Select case mes case 1 mesdb = "Janeiro" case 2 mesdb = "Fevereiro" case 3 mesdb = "Março" case 4 mesdb = "Abril" case 5 mesdb = "Maio" case 6 mesdb = "Junho" case 7 mesdb = "Julho" case 8 mesdb = "Agosto" case 9 mesdb = "Setembro" case 10 mesdb = "Outubro" case 11 mesdb = "Novembro" case 12 mesdb = "Dezembro"End Select'-------------------------------------------------------------------------------------------------if diadb = "" then diadb = diadb end if 'Conectando com o banco de dados... set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../contador/contador_acessos.mdb") set rs = conn.execute("select diadb = diadb from acessos where mesdb = '" & mesdb & "'") if rs.eof then v = 1 conn.execute("INSERT INTO acessos(id, diadb, mesdb, anodb, hits) VALUES ('"&id&"','"&diadb&"','"&mesdb&"','"&anodb&"',"&v&")") else conn.execute("UPDATE acessos SET hits = hits +1 WHERE id =" &id )end if 'Fecha as conexões rs.close conn.close set rs = nothing set conn = nothing%>-----