% '================================================================================================ ' ÆÄÀϸí : korea_apartment_main.asp ' ÀÛ¾÷ÀÚ : jun ' ÀÛ¾÷ÀϽà : 2007. 06. 01 ' : '================================================================================================ Dim strSql, strName, strMemo, strFind, strSearch, strPage, strFlag, strOrder1, strCboSelVal, strTmp Dim intNoTotalCount, intPageCount, intCurPage, intNo, inti, intk, intCntListAccount, intAccount, intidxAccount, intCnt strOrder1 = Trim(Request.QueryString("strOrder1")) strKey = Trim(Request.QueryString("strKey")) strDong = Trim(Request.QueryString("strDong")) strFind = Trim(Request.QueryString("find")) strList = Trim(Request.QueryString("strList")) strListPrice = Trim(Request.QueryString("strListPrice")) strOrderObject = Trim(Request.QueryString("strOrderObject")) If strOrderObject = "" Then strOrderObject = "inputdate DESC" If strFind = "find" Then strSearch = Trim(Request.Form("strSearch")) strCboSelField = Trim(Request.Form("strCboSelField")) Else strSearch = Trim(Request.QueryString("strSearch")) strCboSelField = Trim(Request.QueryString("strCboSelField")) End If 'Response.Write strSearch intCurPage = Trim(Request.QueryString("intCurPage")) If intCurPage = "" Then intCurPage = 1 End If %>
|
|