<%if request("sex")="" then%>
        <script>
        alert("성별은 반드시 입력을 해야합니다");
        history.back();
        </script>
<% else %>
<%
dim a
a=1
check(1)
Function check(x)
        Select Case x
        case 1
                sql="select * from default where userid='" & request("userid") &"'"
                Set rs =Server.CreateObject("ADODB.RecordSet")
                rs.Open sql,db

                        if rs.eof then
                %>
                        <script>
                        alert("이미 사용되고 있는 아이디입니다 ^^");
                        history.back();
                        </script>
                <%
                        else
                                a=a+1
                                rs.close
                                Set rs=nothing
                                check(a)
                        end if
        case 2
                sql="select * from default where nick='" & request("nick") &"'"
                Set rs =Server.CreateObject("ADODB.RecordSet")
                rs.Open sql,db

                        if rs.eof then
                %>
                        <script>
                        alert("이미 사용되고 있는 닉네임입니다 ^^");
                        history.back();
                        </script>
                <%
                        else
                                a=a+1
                                rs.close
                                Set rs=nothing
                                check(a)
                        end if
        case 3
                sql="select * from default where email='" & request("email") &"'"
                Set rs =Server.CreateObject("ADODB.RecordSet")
                rs.Open sql,db

                        if rs.eof then
                %>
                        <script>
                        alert("이미 사용되고 있는 메일주소입니다 ^^");
                        history.back();
                        </script>
                <%
                        else
                                a=a+1
                                rs.close
                                Set rs=nothing
                                check(a)
                        end if
        case 4
                sql="select * from default where msn='" & request("msn") &"'"
                Set rs =Server.CreateObject("ADODB.RecordSet")
                rs.Open sql,db

                        if rs.eof then
                %>
                        <script>
                        alert("이미 사용되고 있는 MSN주소 입니다 ^^");
                        history.back();
                        </script>
                <%
                        else
                                a=a+1
                                rs.close
                                Set rs=nothing
                                check(a)
                        end if
        case 5
                sql="select * from default where nate='" & request("nate") &"'"
                Set rs =Server.CreateObject("ADODB.RecordSet")
                rs.Open sql,db

                        if rs.eof then
                %>
                        <script>
                        alert("이미 사용되고 있는 Nate주소 입니다 ^^");
                        history.back();
                        </script>
                <%
                        else
                                a=a+1
                                rs.close
                                Set rs=nothing
                                check(a)
                        end if
        case 6
                join()        
        End Select
End Function
%>

<%
Function join()
%>
        <script>
        alert("가입이 완료되었습니다 ^^");
        </script>
        <%
End Function        
<% end if %>  


맨 마지막줄에서
Microsoft VBScript 컴파일 오류 error '800a0400'
문장이 필요합니다.
<% end if
^

위와 같은 오류가 발생합니다..
어떤 문장이 필요한건지원 -,.ㅡ;;;
고수님들의 지적 부탁합니다

제가 의도 싶은건 중복체크다하고 등록하는거에요 ㅡ,.ㅡ