alguien me puede explicar este error?

[onviruz]

Bueno pues aquí te pongo el codigo ke yo supongo ke sera una "cagada" porke aun estoy empezando con estoy y me kise poner a probar aver si conseguia acer algo:

<%
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
IdMensaje = Request.QueryString("IdMEnsaje")
email = RS("email")
titulo = Trim(Request.Form("titulo"))
juego = Trim(Request.Form("juego"))
mensaje = Request.Form("noticia")

If usuario = "" OR password = "" OR titulo = "" OR juego = "" OR noticia = "" then
Response.Write "<BR><BR>Faltan datos en el formulario vuelva atras y recuerda rellenar los campos marcados con un *."
ELse
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("\3dgames\db\ba sedatos.mdb")
Set RS = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM usuarios WHERE usuario='"&usuario&"'"
RS.Open sql, oConn,1,1
If RS.EOF = True then
Response.Write "Ese usuario no existe"
ElseIF RS.Fields("password") = password then
If IdMensaje = "" then
oConn.Execute "INSERT INTO noticias (usuario, email, titulo, juego, mensaje, fecha) VALUES ('"&usuario&"', '"&email&"', '"&titulo&"', '"&juego&"', '"&mensaje&"', '"& Now()&"')"
Else
oConn.Execute "INSERT INTO noticias (nombre, email, titulo, juego, mensaje, fecha, IdCabeza) VALUES ('"&usuario&"', '"&email&"', '"&titulo&"', '"&juego&"', '"&mensaje&"', '"& Now()&"', "&IdMensaje&")"
Set RS2 = Server.CreateObject("ADODB.RecordSet")
sql2 = "SELECT respuestas FROM noticias WHERE IdMensaje="&IdMensaje&""
RS2.Open sql2, oConn, 2 ,2
oConn.Execute "UPDATE noticias SET Respuestas=("&RS("Respuestas")+ 1&") WHERE IdMensaje="&IdMensaje&" "
RS2.Close
Set RS2 = Nothing
End If
Else
Response.Write "Escribiste mal la contraseña vuelva a escribirla"
End IF
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
End IF
%>