Problemas con una consulta

[canela2]

Hola a tod@s.
Vereis tengo que hacer algo como esto:
Alava
pueblo1
pueblo2....
Albacete
pueblo1
pueblo2 ...
.......

Tanto las provincias como los pueblos los saco de una base de datos.
Tengo este codigo, pero no me funciona, me da el siguiente erro:

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

/es/provincia_pueblo.asp, línea 61

El codigo es el siguiente:
<%
'/***********************/'listado provincias de España
sql = "select id_region,region from data_regiones where id_pais=201 order by region"
o_rs1.Open sql
do while not (o_rs1.EoF or o_rs1.BoF)
region = o_rs1("region")%>
<%=region%><br>


<%'/********************************************** %>

<%
sql = "select id_pueblo,poblacion from data_poblaciones inner join data_regiones on data_poblaciones.id_provincia=data_regiones.id_reg ion where id_pais = 201 and id_region LIKE '"&id_region&"'"
o_rs.Open SQL, o_conn
do while not (o_rs.EoF or o_rs.BoF)
poblacion= o_rs.Fields("poblacion")%>
<%=poblacion%>
<%o_rs.moveNext
Loop
o_rs.close

%>
<%'/***********************************************%>


<%
o_rs1.moveNext
Loop
o_rs1.Close %>


Alguien me puede ayudar? Gracias por adelantado.