<% '********************************************** ' È­ÀÏ : apt_list.asp ' ¼³¸í : ¾ÆÆÄÆ®¸ñ·Ï ' °³¹ßÀÏÀÚ : 2007/07/04 ' °³¹ßÀÚ : ±è¼ø·Ê ' E-mail : eclipse7@hanmail.net '********************************************** %> <% apt_name = Request("apt_name") lo_code = Request("lo_code") apt_use = request("apt_use") apt_name = SQL_Injection(apt_name) lo_code = SQL_Injection(lo_code) apt_use = SQL_Injection(apt_use) apt_use = UCase(apt_use) sql = "" sql = sql & " SELECT menu_img, ap_code, apt_name " sql = sql & " FROM TB_apt_info " sql = sql & " WHERE (menu_img IS NOT NULl AND menu_img<>'') " sql = sql &"AND (del_flag Is null or del_flag = '') " If lo_code <> "" then sql = sql & " And left(ap_code,4) = '"&lo_code&"' " End if If apt_name <> "" Then sql = sql & " And apt_name like '%"&apt_name&"%' " End If If apt_use = "O" Then sql = sql & " And apt_use = 'O' " Else sql = sql & " And (apt_use is null or apt_use='' or apt_use ='A') " End if sql = sql & " order by apt_name " Set Rs = dbConn.getRs(sql) IF Rs.EOF = FALSE THEN value = Rs.GetRows() Else value = Null END IF Rs.Close SET Rs = Nothing %>

<% If lo_code = "0101" Then If apt_use = "O" then bgimg = "songdooffice_title.gif" Else bgimg = "songdoapt_title.gif" End if ElseIf lo_code = "0102" Then If apt_use = "O" Then bgimg = "hnsoffice_title.gif" else bgimg = "hnsapt_title.gif" End if ElseIf lo_code = "0103" Then If apt_use = "O" then bgimg = "youngjongoffice_title.gif" Else bgimg = "youngjongapt_title.gif" End if ElseIf lo_code = "0104" Then If apt_use = "O" Then bgimg = "chunglaoffice_title.gif" else bgimg = "chunglaapt_title.gif" End if End If %> ¾ÆÆÄÆ®¸í :      <%If Not IsNull(value) Then For i=0 To UBound(value,2) %> <% If (i Mod 3 = 2) And i > 1 Then response.write "" End If Next Else response.write "" End if%> " If apt_use = "O" Then response.write " ¿ÀÇǽºÅÚ Á¤º¸°¡ ¾ø½À´Ï´Ù." else response.write " ¾ÆÆÄÆ® Á¤º¸°¡ ¾ø½À´Ï´Ù." End If response.write " <%If lo_code = "0101" Then %> <%elseIf lo_code = "0103" Then %> <%elseIf lo_code = "0104" Then %> <%End if%>