我制作一个比较小的查询程序，我不知道为什么，在服务器上不能显示，而提示网页有错误。我检查好几次都没有检查出来错误在哪里？
下面是代码：
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim Recordset1__MM_username
Recordset1__MM_username = "%"
If (Trim(Request.Form("search1")) <> "") Then
Recordset1__MM_username = Trim(Request.Form("search1"))
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_wz_STRING
Recordset1.Source = "SELECT * FROM addnew WHERE username LIKE '%MM_username%'"
Recordset1.CursorType = 1
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>











<% =(Recordset1.Source) %>











<% If Not recordset1.EOF Or Not recordset1.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>










<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<% end if %>

编号	网站名称	网址	邮件信箱	网站内容简介	类别	点击次数
<%=(Recordset1.Fields.Item("ID").value)%>	<%=(Recordset1.Fields.Item("username").value)%>	<%=(Recordset1.Fields.Item("homepage").value)%>	<%=(Recordset1.Fields.Item("E_mail").value)%>	<%=(Recordset1.Fields.Item("note").value)%>	<%=(Recordset1.Fields.Item("leibie").value)%>	<%=(Recordset1.Fields.Item("hits").value)%>	">

<% If Recordset1.EOF And Recordset1.BOF Then %>
对不起，没有你需要的记录！
<% End If ' end Recordset1.EOF And Recordset1.BOF %>

请输入查找关键字

 

 

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

重做一个