<%
if Request("id")="" then
response.write "아이디를 써 주십시요!"
%>
<% else
id=Request("id")
Set DbCon=Server.CreateObject("adodb.Connection")
DbCon.Open "ch71","gajanet","0202"
sql="select uid from ch71_mem where UID='" & id & "';"
Set rs=Server.CreateObject("adodb.RecordSet")
rs.Open sql, DbCon,1,1
if rs.EOF then
%>
idcheckfile
사용이 가능한 아이디입니다.!
<% else %>
idchk
사용중인 아이디입니다.!
<% end if
rs.Close
Set rs= nothing
DbCon.Close
Set DbCon=nothing
%>
<% end IF%>