¿por qué falla esto?

[selu]

Hola a tod@s. A ver si alguien me puede decir por qué falla esto. Tengo un página de borrado de registros con el siguiente código:

<% Dim objConn, objRs, usuario, pase, objSql
usuario = Trim(Request.Form("correo"))
if usuario = "" then
response.write "Debe introducir un e-mail. <BR> <BR><a href='borrar.asp'>Vuelva a intentarlo</a>"
else
set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\Casa\correo.mdb"
objConn.Open
objSql = "SELECT * FROM lista WHERE Email= '" & usuario & "'"
Set objRS = objConn.Execute(objSql)
if not objRs.EOF then
objSql = "DELETE FROM lista WHERE Email= '" & usuario & "'"
Set objRS = objConn.Execute(objSql)
Response.Write "Su correo ha sido borrado de nuestra lista de correo."
else....
....

Si pongo la ruta absoluta "DBQ=C:\Casa\correo.mdb" me borrar el registro bien, pero al cambiarla por "DBQ=" & Server.Mappath("correo.mdb") no me borra el registro. ¿Por qué?.

Un saludo.