Evitar Error al abrir un MDB

[hugui]

Hola amigos,

Necesitaría saber como evitar visualizar un error cuando quiero abrir y procesar un archivo de access...

En mi caso estoy viendo el error siguiente...

"Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Not enough space on disk"


pero quisiera saber como evitar visualizar este error...

El código es el siguiente:

Código:

<%

sub contador()
	On Error Resume Next
	
	set cn_count=Server.CreateObject("ADODB.Connection")
	cn_count.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("hits.mdb") 
	
	if session("start") = "no" then
		set rs_contador=Server.CreateObject("ADODB.Recordset")
		
		sql_contador="select * from contador;"
		rs_contador.Open sql_contador,cn_count,1,2
		
		rs_contador.AddNew
		rs_contador("fecha") = cstr(date())
		rs_contador("hora") = cstr(time())
		rs_contador("pais") = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
		rs_contador("HTTP_HOST") = Request.ServerVariables("HTTP_REFERER")
		rs_contador("REMOTE_ADDR") = Request.ServerVariables("REMOTE_ADDR")
		rs_contador("REMOTE_HOST") = Request.ServerVariables("REMOTE_HOST")
	
		rs_contador.update
		rs_contador.close
		set rs_contador = Nothing
		
		session("start") = "si"
	
	end if
	
	sql_contador="SELECT Max(contador.ID) AS MáxDeID FROM contador;"
	set rs_contador=cn_count.execute(sql_contador)
	
	Response.Write rs_contador("MáxDeID")
	
	cn_count.close
	set cn_count = Nothing

end sub
%>

Ya se que el error es sobre el espacio en disco... pero quiero saber como es para evitar visualizar este error y cualquier otro...

GRACIASSSS!!!!

[Myakire]

quieres evitar visualizar este error o cualquier otro ... la respuesta obvia sería evitar que estos ocurran, pero ya no se si quieres en realidad resolverlos o quieres un simple manejador que haga que tu programa "no truene", no hará nada, no funcionará, pero tampoco "le tronará" al usuario.

Si quisieras hacer esa aberración vas por buen camino, con un On Error Resume Next, pero te falta decirle que no haga nada:

If Err.Number <> 0 then
Err.Clear()
End If

saludos

[hugui]

Excelente gracias...

[gnzsoloyo]

Después no te quejes si el programa se te bloquea, no hace lo que crees que le indicas o simplemente se queda esperando infinitamente una solución que jamás llegará...