<% a=Trim(Request("a")) Set con=Server.CreateObject("ADODB.Connection") con.Open("DSN=gaja;UID=gajanet;PWD=0202") Set DbRec=Server.CreateObject("ADODB.Recordset") DbRec.Open "select * from zipcode where set3 like '%"&a&"%'",con if dbrec.eof or dbrec.bof then %> 없음 <% else %> 우편번호검색결과
우편번호 검색 결과

검색어 '<%=a%>'의 검색결과 입니다
<% Do while not dbrec.eof %> <% dbrec.Movenext Loop %>
<% zipcode=dbrec("zipcode") zipcode1=left(zipcode,3) zipcode2=mid(zipcode,4,3) %><%=zipcode1%> - <%=zipcode2%> <%addr=dbrec("set1")&" "&dbrec("set2") & " " & dbrec("set3")%><%=addr%>
<% end if %>