묻고답하기
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
^
위와 같은 오류가 발생합니다..
어떤 문장이 필요한건지원 -,.ㅡ;;;
고수님들의 지적 부탁합니다
제가 의도 싶은건 중복체크다하고 등록하는거에요 ㅡ,.ㅡ
<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
^
위와 같은 오류가 발생합니다..
어떤 문장이 필요한건지원 -,.ㅡ;;;
고수님들의 지적 부탁합니다
제가 의도 싶은건 중복체크다하고 등록하는거에요 ㅡ,.ㅡ
댓글 2
-
BelldandY
2003.07.11 16:09
-
BelldandY
2003.07.11 16:13
그리고.. case 문에.. break; 가 들어가야 그 나머지 것들이 실행 안되는 걸로 알고 있는데 맞는지.. 모르겠네요.. ^^
alert("가입이 완료되었습니다 ^^");
</script>
<%
End Function
<% end if %>
마지막부분인데요.. <% 가 두번 들어갔죠?? 하나 지우면 되지 않을까여?