ayuda con listas anidadas ASP NO "JAVASCRIPT"

[Epunamun]

wolas, junto con saludarlos y gracias a todos por las respuestas, pero nesecito hacer unas listas anidadas de dos y no me resulta que tendré mal en el codigo .

gracias.

Código:

<select id="Region" name="Region"  tabindex="5" onchange ="location.href('selects_dependientes.asp?Region=' + form.Region.options[form.Region.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access DRIVER (*.mdb)};DBQ=\\servidor\bd.mdb"
region_Sql = "Select id_region, nom_region from region"
set rs = CreateObject("ADODB.Recordset")
rs.Open region_Sql, Conn
				
Dim id_region
Dim nombre_region
		
Do while not rs.eof 
  id_region = rs("id_region")
  nombre_region = rs("nom_region")
  p = request.querystring("region")
  if p <> "" then
    if p = region then 
      response.write "<option value="&id_region&"&region="&region&"    selected>"&region&"</option>" 
	elseif p <> region then 
	response.write "<option value="&id_region&"&region="&region&">"&region&"</option>" 
	end if 
     else 
	response.write "<option   value="&id_region&"&region="&region&">"&region&"</option>" 
     end if 
     RS.movenext 
     loop 
     rs.close
%> 
</select>

<% if request.querystring("id_region") <> "" then %> 
<select name=comuna> 
<option selected><%=Nombrecomuna%></option>
<% 
SQL_com="select * from comuna where region="&request.querystring("id_region")&"" 
set RS_com=createobject("ADODB.Recordset") 
rs_com.open SQL_com, Conn
do while not RS_com.eof 
  region = request.querystring("region") 
  comuna = RS_com("comuna") 
%> 
<option value="<%=comuna%>, <%=region%>"><%=comuna%></option> 
<% 
RS_com.movenext 
loop 
RS_com.close 
%> 
</select><% end if %>

GRacias por ayudarme. ayuda porfis