一个连动的下拉选项问题

有两个数据库,分别为A和B

A数据库字段:AID InfoType(类别)
B数据库字段:BID typename(分类)

页面代码现在无法在选项里选择,望高手帮忙修正,页面代码如下:
<%
Dim MyTitle, SubTitle, BID, ChannelID
MyTitle = "反馈"
ChannelID = 0
BID = PE_Clng(Trim(Request("InfoType")))
If BID = 0 Then BID = 5
If CheckUserLogined = False Then UserName = "会员"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title><%=SiteName%> >> <%=MyTitle%></title>
</head>
<body>
<% Call ExtTop() %>
<%
Call ExtBottom()
Dim Sql, Rs
Action = ReplaceBadChar(Request.Form("Action"))
If Action="MakeSave" Then
Sql = "select * from A"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql, Conn, 1, 3
Rs.AddNew
Rs("AID") = GetNewID("A","AID")
Rs("InfoType") = PE_Clng(Trim(Request.Form("InfoType")))
Rs("UserDate") = Now()
Rs("Passed") = False
Rs.Update
Rs.Close
Set Rs=Nothing
Response.Write "<Script>window.alert('您的发表的意见我已经已经收到，谢谢您的支持！');location.replace('MZFb_Index.asp');</Script>"
End If
%>
</body>
</html>
<%
Sub ShowMain()
%>
<script language = 'JavaScript'>
function CheckForm(){
  if (document.form1.UserTitle.value==''){
    alert('标题不能为空！');
    document.form1.UserTitle.focus();
    return false;
  }
  return true;
}
</script>
<table border="0" cellpadding="0" align="center" cellspacing="1" width="100%" class="main_tdbg_575">
<Form name='form1' method='Post' onSubmit="return CheckForm();" action='#'>
<tr class="tdbg"><td>
<table border="0" cellpadding="2" align="center" cellspacing="0" width="100%">
<tr><td height="12"></td><td></td></tr>
<tr class="tdbg">
<td width="80" align="right">类　别：</td>
<td style="color: #58595B;">
<select name="InfoType" size="1">
option value="" >不属于任何分类</option>
<%
Dim arrType, i
arrType = Split("typename",",")
For i = 0 To Ubound(arrType)
Response.Write "<option value='" & i + 1 & "' "
Response.Write ">" & arrType(i) & "</option>"
Next
%>
</select>
</td>
</tr>
<tr><td height="10" colspan="2"></td></tr>
<tr><td align=center colspan="2"><input type='hidden' name='Action' value='MakeSave'><input type='submit' name='Submit'  value=' 提交 '></td></tr>
<tr><td height="10" colspan="2"></td></tr>
</table>
</td>
</tr>
</Form>
</table>
<%
End Sub
%>

希望在页面以下选项代码里可以做到可以选择数据库B字段typename(分类),即A和B数据库互动;
<select name="InfoType" size="1">
option value="" >不属于任何分类</option>
<%
Dim arrType, i
arrType = Split("typename",",")
For i = 0 To Ubound(arrType)
Response.Write "<option value='" & i + 1 & "' "
Response.Write ">" & arrType(i) & "</option>"
Next
%>
</select> --------------------编程问答-------------------- e 真心不喜欢看vb代码。。费劲啊

补充：.NET技术 ,  ASP.NET