<% Dim v_addrstr, sql1, rs1 Dim seq, zipcode, sido, gugun , dong , ri, st_bunji, ed_bunji, addr_t1 v_addrstr = InputValue(request("p_addrstr")) %>

	<%If popup_logo_image_url <> ""%> <%End if%>
찾고자 하는 지역의 '동이름'을 입력해주세요. 예) 서울시 강남구 삼성1동이라면 '삼성1'만 입력하시면됩니다.  이름 입력 동(읍/면) <% if v_addrstr <> "" then sql1 = "select * from zipcode where dong LIKE '%" & v_addrstr & "%'" Set rs1 = dbcon.execute( sql1 ) 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 <> "" and ed_bunji <> "" then addr_t2 = st_bunji & " ~ " & ed_bunji & "동" else addr_t2 = "" End if addr_t = addr_t1 & addr_t2 %> [<%=substr($zipcode,0,3)?>-] <% rs1.movenext loop End if if ($mysql->RowCount() <= 0) { ?> 등록된 데이터가 없습니다. FetchInto(&$rs1)) { $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 != "") { $addr_t2 = $st_bunji ." ~ ". $ed_bunji . "동"; } else { $addr_t2 = ""; } $addr_t = $addr_t1 . $addr_t2; ?> [-]

Disconnect(); ?>