error ASP

[jesus.jes]

<%


dim x
dim DBName
dim ccn
dim rs
dim sql
x=0
DBName = "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(foro.mdb)
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open DBName '****esta es la linea 22
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
SQL = "Select * from password"
rs.open SQL 'ejecutamos la cadena SQL

while not RS.EOF

response.Write(RS("password"))

if request.Form("txtNombre")=RS("usuario") and request.Form("txtPassword")=RS("password") then

x=1
end if


RS.MoveNext()

wend
rs.close
cnn.close

Set RS = Nothing
Set cnn = Nothing


if x=1 then
'server.Execute("tema.asp")
server.Transfer("tema.asp")
else
' server.Transfer("validaPassword.asp")
Response.Write("USUARIO DESCONOCIDO ... debe registrarse")

end if

%>


ese es el codigo que tengo , ahi indico que linea es la 22

mi pc funciona como servidor y no tiene ningun problema todo funciona muy bien, pero cuando lo subo a la pagina del internet me marca ese errror