ayuda con SELECT en asp

[kyu24]

asi es como lo he intentado pero sin resultado, me da error en la linea 137

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/kyu21/selects_dependientes01.asp, line 137


os pongo el codigo modificado para que lo veais

Código:

<form name=formulario>



COMUNIDAD AUT&Oacute;NOMA: 







<select name=id_com onChange="location.href('selects_dependientes.asp?id_comunidad=' + formulario.id_comunidad.options[formulario.id_comunidad.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kyu21/db/peluqueria1.mdb"))

SQL_comunidad="select * from comunidades order by comunidad asc"
set RS_comunidad=createobject("ADODB.connection")
RS_comunidad.open SQL_comunidad,conn
do while not RS_comunidad.eof
comunidad = RS_comunidad("comunidad")
id_com = RS_comunidad("id_com")
id_pro = RS_provincia("id_pro")
id_loc = RS_localidad("id_loc")
p = request.querystring("comunidad")
if p <> "" then

	if p = comunidad then
	response.write "<option value="&id_com&"&comunidad="&comunidad&" selected>"&comunidad&"</option>"
	elseif p <> comunidad then
	response.write "<option value="&id_com&"&comunidad="&comunidad&">"&comunidad&"</option>"
	end if
else
response.write "<option value="&id_com&"&comunidad="&comunidad&">"&comunidad&"</option>"
end if

RS_pais.movenext
	loop
RS_pais.close
%>
</select>

<%
if request.querystring("id_com") <> "" then 
%>
PROVINCIA:

<select name=id_pro onChange="location.href('selects_dependientes.asp?id_provincia=' + formulario.id_provincia.options[formulario.id_provincia.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kyu21/db/peluqueria1.mdb"))

SQL_comunidad="select * from provincias order by provincia asc"
set RS_comunidad=createobject("ADODB.connection")
RS_provincia.open SQL_provincia,conn
do while not RS_comunidad.eof
provincia = RS_provincia("provincia")
id_com = RS_comunidad("id_com")
id_pro = RS_provincia("id_pro")
id_loc = RS_localidad("id_loc")
pr = request.querystring("provincia")
if pr <> "" then

	if pr = provincia then
	response.write "<option value="&id_pro&"&provincia="&provincia&" selected>"&provincia&"</option>"
	elseif pr <> localidad then
	response.write "<option value="&id_pro&"&provincia="&provincia&">"&provincia&"</option>"
	end if
else
response.write "<option value="&id_pro&"&provincia="&provincia&">"&provincia&"</option>"
end if

RS_provincia.movenext
	loop
RS_pais.close
%>
</select>




<%
if request.querystring("id_pro") <> "" then 
%>
LOCALIDAD:

<select name=id_loc onChange="location.href('selects_dependientes.asp?id_localidad=' + formulario.id_localidad.options[formulario.id_localidad.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kyu21/db/peluqueria1.mdb"))

SQL_comunidad="select * from localidades order by localidad asc"
set RS_comunidad=createobject("ADODB.connection")
RS_provincia.open SQL_provincia,conn
do while not RS_localidad.eof
localidad = RS_localidad("localidad")
id_com = RS_comunidad("id_com")
id_pro = RS_provincia("id_pro")
id_loc = RS_localidad("id_loc")
lo = request.querystring("localidad")
if lo <> "" then

	if lo = localidad then
	response.write "<option value="&id_loc&"&localidad="&localidad&" selected>"&localidad&"</option>"
	elseif lo <> localidad then
	response.write "<option value="&id_loc&"&localidad="&localidad&">"&localidad&"</option>"
	end if
else
response.write "<option value="&id_pro&"&provincia="&provincia&">"&provincia&"</option>"
end if

RS_provincia.movenext
	loop
RS_pais.close
%>
</select>

<%
if request.querystring("id_loc") <> "" then %>
CENTRO: <select name=centro>
<%
SQL_cen="select * from datos where localidad="&request.querystring("id_loc")&" order by nombre asc"
set RS_cen=createobject("ADODB.Recordset")
RS_cen.open SQL_cen,conn
do while not RS_cen.eof

localidad = request.querystring("provincia")
nombre = RS_cen("nombre")
%>
<option value="<%=nombre%>, <%=localidad%>"><%=nombre%></option>
<%
RS_cen.movenext
	loop
RS_cen.close
%>
<% end if %></select>

</form>

gracias