Adler y a todo el que le interese, resolvi el problema cargando nuevamente todo el select dependiente, no se si es la forma correcta pero funciona.
La pagina es
http://www.traddies.com/listas.asp
y el ultimo listaproc.asp es:
<%
BdPrueba = "../Private/Prueba.mdb"
'Ejemplo para las listas desplegables'
if request.querystring("IdCat") <> "" then
str = "select Id_Tipo, Nombre FROM Tipos where IdCat = " & int(request.querystring("IdCat"))
Filas=GetFilas(BdPrueba, str)
if(isarray(Filas)) then
response.write("<Select Name=""IdTipo"" Id=""Tip"">") '
<-- AQUI
for j = 0 to UBound(Filas,2)
response.write("<option value=""" & Filas(0,j) & """>" & Filas(1,j) & "</option>")
next
response.write("</Select>")
end if
end if
''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetFilas(BdActual, SQL)
Set oConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(BdActual))
Set objRS = oConn.Execute(SQL)
if not (objRS.EOF and objRS.BOF) then
GetFilas = objRS.GetRows()
end if
oConn.Close
set objRS = nothing
set oConn = nothing
end function
''''''''''''''''''''''''''''''''''''''''''''''''''
if request.querystring("Ver") <> "" then
response.write("estas viendo el mensaje de prueba")
end if
%>