묻고답하기

  2. Support
  3. 묻고답하기

asp인데 어떤문법이 잘못되었는지 고수님들의 지적부탁합니다

2003.07.04 19:22

초리

<%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
^

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

제가 의도 싶은건 중복체크다하고 등록하는거에요 ㅡ,.ㅡ
이 게시물을
좋아요
목록
글쓴이 제목 최종 글
XE 공지 글 쓰기,삭제 운영방식 변경 공지 [16] 2019.03.05 by 남기남
jirannn 최근게시물 출력시 공지사항을 맨위로... [5] file 2014.10.31 by jirannn
리즈므 글 작성자의 IP를 특정 그룹만 보이게 하는 방법..?  
건방진고양이 이미지 리사이즈 에러 문제 [2] 2014.10.31 by 건방진고양이
jake 게시판(게시글) 등록 연동  
풍운비 기본 default 화면 슬라이드 사진 갯수 추가 [1] 2014.10.31 by 부산민지아빠
쌉사리 회원들간에 이메일 주고받기 막는법좀 알려주세요.  
리키한 파일첨부 버튼이 반응이 없네요..ㅜ.ㅜ [5] 2014.10.31 by HSJI
죽방망이 1.7.6 버젼 신디케이션 v2인가요? [1] 2014.10.31 by Define
꿈꾸는사람114 신디연동 웹문서 사라지는 이유? [1] 2014.10.31 by Define
mook5412 위젯 모듈 코드 생성시 모든 이름은 영문만 가능합니다 라고..... [1] file 2014.10.31 by Define
간지횽 스케치북 게시판 웹진형을 위젯으로... [1] 2014.10.31 by Define
김너무씨 작성글보기에 나타나는 목록 색깔 [1] file 2014.10.31 by Define
Snow[K] 로그인이 되지 않습니다.. [2] 2014.10.31 by Snow[K]
lidia10 레이어 팝업 애드온을 쓰고있습니다. [3] 2014.10.31 by lifeto
sapjoy 크롬에서 로그인 2번해야 로그인이 됩니다. [5] 2014.10.31 by sapjoy
두발자유 Syndication 4.0 업그레이드 후 노출이 되지 않아요~ file  
컴돌이~ 언제나 졸졸...  
mook5412 스케치북 게시판 썸네일에 관해서.. [4] file 2014.10.31 by mook5412
lifeto 검색창 폼에서 검색버튼 내부포함시키기 [1] 2014.10.31 by 숭숭군
@pple 게시판 카테고리별로 목록을 따로 출력하는 법? [4] 2014.10.31 by @pple
보고 댓글 50개 넘어가면 그전페이지 클릭하면 들어가지나요?  
dhrgusdn 파일 업로드 오류 문제 [2] file 2014.11.01 by dhrgusdn
여유와함께 스마트폰 첨부파일 다운로드 문제. [2] 2014.11.01 by 여유와함께
singsinggardening 모든 게시물이 사라졌습니다. [4] 2014.11.01 by Luatic™
대가리차삐까 php curl 어떤 용도에 사용하죠?? [1] 2014.11.01 by Luatic™
xe질문용 403 Forbidden 수정방법 - 급해서 현금으로 사례 드립니다. [6] 2014.11.01 by Luatic™
컴돌이~ 메인에 메일폼을.. [1] file 2014.11.01 by Luatic™
lita 첨부파일 사라짐... 예전 게시글의 파일도 전부 삭제됨 [4] 2014.11.01 by Double'U'
아나까떼 XE 서적은 언제쯤 나오나요 [4] 2014.11.01 by lifeto
코롱코롱코코코 본문에 삽입한적이없는 ?(물음표)가 생깁니다. file  
태그 쓰기