asp 高手来救急

asp 编写一个程序，要求输入起始数据与终止数据（输入数据为整数）。然后计算出输入数据范围中所有的素数，用列表显示

<form action="" method="post">
<input type="text" name="nSta" /> 到 <input type="text" name="nEnd" /> 之间的素数 <input type="hidden" name="m" value="prime" /><input type="submit" value=" 查 询 " />
<%
If request.Form("m")="prime" Then
nSta = request.Form("nSta")
nEnd = request.Form("nEnd")
response.write "<dl><dt>"& nSta & " 与 "& nEnd &" 之间的素数是：</dt>"
For i = nSta To nEnd
If prime(i) Then response.write "<dd>"& i & "</dd>"
Next
response.write "</dl>"
End If
Function prime(n)
For j=2 To n/2-1
If (n Mod j) = 0 Then
prime = False
Exit For
End If
prime = True
Next
End Function
%>

不好意思，函数部分错了－ －
下面是修改过的
VB code

Function prime(n)
    For j=2 To Int(sqr(n))+1
        If (n Mod j) = 0 Then
            prime = False
            Exit Function
        End If
        prime = True
    Next
End Function