Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/12/2010, 11:08
hugui
Invitado
 
Mensajes: n/a
Puntos:
Pregunta Evitar Error al abrir un MDB

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!!!!