vi tu pagina y el error es por que no encuentra la bd prueba cambiando estas lineas
tu code
Código:
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla=Server.CreateObject("ADODB.Recordset")
Conexion.Open "farmacia"
nuevo
Código:
set conexion=Server.CreateObject("ADODB.Connection")
set tabla=Server.CreateObject("ADODB.Recordset")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("farmacia.mdb")&";"