<% dong = trim(request("dong")) bIsSearched = false if dong <> "" then Set con=Server.CreateObject("ADODB.Connection") Set rs =Server.CreateObject("ADODB.RecordSet") con.CursorLocation=1 con.Open strConnect sql="SELECT ZipCode,SiDo,GuGun,Dong,BunJi FROM zipcode Where Dong LIKE '%" &Dong& "%'" 'Set rs = con.Execute(sql) rs.CursorLocation = 2 rs.Open sql,con,3 'response.Write rs.RecordCount : response.End bIsSearched = true end if ctlnames = Split(GetEnv,",") fv_pf = ctlnames(1) fv_zipleft = ctlnames(3) fv_zipright = ctlnames(5) fv_address = ctlnames(7) %> 우편번호검색

 

우편번호(주소) 찾기

읍면동 검색

지역 선택

우편번호

-

기본주소

상세주소(입력)

<% set rs=nothing set con=nothing %>