Não Grava no Banco Access

Galera Boa Tarde !

Estou tendo um probleminha no meu script. E o seguinte, se eu digitar as informacoes diretamente no meu BD e enviar ao meu servidor, ele exibe todas as informacoes que preciso, so que quando envio via ASP ele nao esta gravando. O Script emite a mensagem de que foi gravado, mas não exibe os dados.

Podem verificar por favor.

Obrigado. :D

<%@ Language=VBScript %> <%Option Explicit %> <% Dim oConn Dim Path Dim cnpath Dim oRs Dim oRsFotos Dim oRsFestaSet oConn = Server.CreateObject("ADODB.Connection")cnpath=server.mappath("/")cnpath=left(cnpath, len(cnpath)-3) & "MeuMDB.mdb"oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath %> <%'Declara variaveis Dim nome Dim Local Dim data Dim disponivel Dim detalhes Dim status Dim ID'Coloca nas variaveis o que vou digitando nos campos ID = Request.QueryString("id") nome = Request.Form("nome") Local = Request.Form("Local") data = Request.Form("data") disponivel = Request.Form("disponivel") detalhes = Request.Form("detalhes") status = Request.QueryString("status")'De acordo com que esta na Querry status ele faz o CaseSelect Case Request.QueryString("status")'Se o case for igual a Cadastrado ele efetua o cadastroCase "Cadastrado"'Grava os dados no Banco Set oRs = oConn.Execute("INSERT INTO festas(nome, Local, data, detalhes, disponivel)" & "VALUES('" & nome & "','" & Local & "','" & data & "','" & detalhes & "','" & disponivel & "')") 'Se o case for igual a Editado ele efetua a ediçãoCase "Editado"'Altera dados no banco Set oRs = oConn.Execute("UPDATE festas SET nome = '" & nome & "',Local = '" & Local & "',data = '" & data & "',detalhes = '" & detalhes & "',disponivel = '" & disponivel & "' WHERE id_festa = " & ID & " ")'Se o case for igual a Excluido ele deleta o dadoCase "Excluido"'Deleta dados no bancoSet oRs = oConn.Execute("SELECT * FROM festas WHERE id_festa = "& ID &" ")Set oRs = oConn.Execute("DELETE * FROM festas WHERE id_festa = "& ID &" ")'Finaliza o Select CaseEnd Select%><br><br><p></p><p align="center"><b><font face="Verdana" size="2" color="#FF0000">SUCESSO!</font></b></p><p align="center"><b><font face="Verdana" size="2" color="#006699">A Festa foi <%=Request.QueryString("status")%> com Sucesso!</font></b></p><p align="center"><a href="menu.asp"><font face="Verdana" size="2" color="#006699">Voltar ao Menu</font></a></p><p align="center"> </p></td></tr></table>