<%
Dim ZC_SG, r_cnt
Dim sql, rs1
Dim seq, zipcode, sido, gugun, dong, ri, st_bunji, ed_bunji
Dim addr_t1
ZC_SG = inputValue( Request.Form("ZC_SG") )
r_cnt = inputValue( Request.Form("r_cnt") )
%>
<%
if ZC_SG <> "" then
sql = "select * from zipcode where dong LIKE '%" & ZC_SG & "%'"
Set rs1 = dbcon.execute( sql )
If rs1.bof Or rs1.eof Then
%>
등록된 데이터가 없습니다.
<%
Else
Do Until rs1.eof
seq = rs1("SEQ")
zipcode = trim(rs1("ZIPCODE"))
sido = trim(rs1("SIDO"))
gugun = trim(rs1("GUGUN"))
dong = trim(rs1("DONG"))
ri = trim(rs1("RI"))
st_bunji = trim(rs1("ST_BUNJI"))
ed_bunji = trim(rs1("ED_BUNJI"))
addr_t1 = sido & " " & gugun & " " & dong & " " & ri
if st_bunji <> "" <> ed_bunji <> "" then
addr_t2 = st_bunji & " ~ " & ed_bunji & "동"
else
addr_t2 = ""
End If
addr_t = addr_t1 & addr_t2
%>
[<%=left(zipcode,3)%>-<%=right(zipcode,3)%>]
<%=addr_t%>
![]()
<%
rs1.movenext
loop
End if
End if
%>