Segundo combobox

Preciso de um help, estou tentando alimentar um segundo combox a partir de um select inicial

Minha tabela contem as seguintes colunas: DAT_ID, DAT_CATEGORY, DATE_NAME, DAT_PICTURE.

O que estou querendo com a função: Quero selecionar um nome cadastrado na coluna DAT_NAME e o segundo combobox trazer o nome da imagem cadastrada na coluna DAT_PICTURE automaticamente.

O que eu consegui até agora:

<!--#include file="../Connections/conn.asp" -->

<%

Dim rsTypeListing__MMColParam

rsTypeListing__MMColParam = "0"

If (Request.QueryString("iChannel") <> "") Then

rsTypeListing__MMColParam = Request.QueryString("iChannel")

End If

%>

<%

Dim rsTypeListing

Dim rsTypeListing_numRows

Set rsTypeListing = Server.CreateObject("ADODB.Recordset")

rsTypeListing.ActiveConnection = MM_connDUportal_STRING

rsTypeListing.Source = "SELECT * FROM DATAS WHERE DAT_ID ORDER BY DAT_DATED ASC"

rsTypeListing.CursorType = 0

rsTypeListing.CursorLocation = 2

rsTypeListing.LockType = 1

rsTypeListing.Open()

rsTypeListing_numRows = 0

%>

<%

Dim rsChannelListing

Dim rsChannelListing_numRows

Set rsChannelListing = Server.CreateObject("ADODB.Recordset")

rsChannelListing.ActiveConnection = MM_connDUportal_STRING

rsChannelListing.Source = "SELECT * FROM DATAS WHERE DAT_CATEGORY = 301 ORDER BY DAT_DATED ASC"

rsChannelListing.CursorType = 0

rsChannelListing.CursorLocation = 2

rsChannelListing.LockType = 1

rsChannelListing.Open()

rsChannelListing_numRows = 0

%>

<script language="javascript" src="../ScriptLibrary/incPureUpload.js"></script>

<table class="table">

<tbody>

<tr>

<td >CANAL:</td>

<td><select name="iChannel" class="input-text" id="iChannel" onChange="MM_jumpMenu('parent',this,0)">

<%

While (NOT rsChannelListing.EOF)

%>

<option value="submit.asp?iChannel=<%=(rsChannelListing.Fields.Item("DAT_ID").Value)%>&nChannel=<%=(rsChannelListing.Fields.Item("DAT_NAME").Value)%>" <%if (CStr(rsChannelListing.Fields.Item("DAT_ID").Value) = CStr(Request.QueryString("iChannel"))) then Response.Write("SELECTED") : Response.Write("")%>><%=(rsChannelListing.Fields.Item("DAT_NAME").Value)%></option>

<%

rsChannelListing.MoveNext()

Wend

If (rsChannelListing.CursorType > 0) Then

rsChannelListing.MoveFirst

Else

rsChannelListing.Requery

End If

%>

</select> </td>

</tr>

<% If Not rsTypeListing.EOF Or Not rsTypeListing.BOF Then %>

<tr>

<td align="right" nowrap>CATEGORIA:</td>

<td>

<select name="TYPE" class="input-text" id="TYPE">

<%

While (NOT rsTypeListing.EOF)

%>

<option value="<%=(rsTypeListing.Fields.Item("DAT_NAME").Value)%>"><%=(rsTypeListing.Fields.Item("DAT_PICTURE").Value)%></option>

<%

rsTypeListing.MoveNext()

Wend

If (rsTypeListing.CursorType > 0) Then

rsTypeListing.MoveFirst

Else

rsTypeListing.Requery

End If

%>

</select> </td></tr>

<% End If ' end Not rsTypeListing.EOF Or NOT rsTypeListing.BOF %>

<%

rsTypeListing.Close()

Set rsTypeListing = Nothing

%><%

rsChannelListing.Close()

Set rsChannelListing = Nothing

%>

Esta funcionando o primeiro Combobox, mas o segundo não carrega a informação de acordo com a primeira seleção, ele apenas carrega toda coluna.