请大家帮我看看代码，我不太会写，写完后也运行不出来，请大家帮忙看看。
<%
dim Rs
dim Sql
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * from MemberList"
Rs.Open Sql,conn,3,2
%>
<script language="javascript">
function Tjonvalue()
{
aa=document.all.UserName.value
alert(aa)
if (aa=="")
{
alert("请填写用户名。");
return false;
}
else
{
<%
Do While Rs.Eof=False
%>
if (<%=Rs("UserName")%>=aa)
{
alert("对不起，该用户名已经有人使用。");
return false;
}
else
{
alert("该用户名可以使用。");
return false;
}
<%
Rs.MoveNext
Loop
%>
}
</script>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
%>
以上这段代码是放在<head></head>之间
<input name="Tjon" type="button" id="Tjon2" value="检验用户名是否重复" onClick="return Tjonvalue()">
