<% tcMobileOX = "X" ttAgentTxt = Request.ServerVariables("HTTP_USER_AGENT") if InStr(ttAgentTxt,"Phone") > 0 then tcMobileOX = "O" end if if InStr(ttAgentTxt,"Android") > 0 then tcMobileOX = "O" end if if InStr(ttAgentTxt,"Mobile") > 0 then tcMobileOX = "O" end if if InStr(ttAgentTxt,"blackberry") > 0 then tcMobileOX = "O" end if if InStr(ttAgentTxt,"iPad") > 0 then tcMobileOX = "O" end if Response.Cookies("tcMobileOX") = tcMobileOX Function Is_Mobile() Set Regex = New RegExp With Regex .Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm|ipad|blackberry|android)" .IgnoreCase = True .Global = True End With Match = Regex.test(Request.ServerVariables("HTTP_USER_AGENT")) If Match then Is_Mobile = True Else Is_Mobile = False End If End Function if Is_Mobile() then tcMobileOX = "O" else tcMobileOX = "X" end if tcScreenXX = Request.Cookies("tcScreenXX") 'tcScreenYX = Request.Cookies("tcScreenYY") 'tcMobileOX = Request.Cookies("tcMobileOX") if tcScreenXX = "" then tcScreenXX = 0 end if Server.Execute("_JavaMain.asp") Server.Execute("_LogoMenu.asp") 'Server.Execute("_BannerXX.asp") tnMenuNumb = trim(Request("tnMenuNumb")) tcCookieID = Request.Cookies("tcCookieID") tcUserIDNO = Request.Cookies("tcUserIDNO") 'tnUser_Num = Request.Cookies("tnUser_Num") tcLanguage = mid(trim(Request.ServerVariables("URL")),8,2) tcTexts_xx = "cTexts_" + tcLanguage tcFacts_xx = "cFacts_" + tcLanguage tcTitle_xx = "cTitle_" + tcLanguage Set DbMlg = Server.CreateObject("ADODB.Connection") DbMlg.Open APPLICATION("connect_mlg") 'Detail Information SQLtm = "SELECT nMlg_Numb," & tcTexts_xx & " FROM mlg_Local WHERE nMlg_Numb = 1225 " Set ReTxt = DbMlg.Execute(SQLtm) Mlg_Detail = ReTxt(tcTexts_xx) DbMlg.Close Set DbMlg = Nothing Set DbQpc = Server.CreateObject("ADODB.Connection") DbQpc.Open APPLICATION("connect_qpc") Set DbCtt = Server.CreateObject("ADODB.Connection") DbCtt.Open APPLICATION("connect_ctt") SQL = "SELECT * FROM pnl_Solution WHERE cPublicOX = 'O' ORDER BY nDisplayX ASC " Set ReSolPak = DbQpc.Execute(SQL) '페이지 타이틀... if left(tnMenuNumb,1) = "1" then SQL1st = "SELECT * FROM ngt_1st WHERE n1st_Numb = "&tnMenuNumb&" " Set Re_1st = DbCtt.Execute(SQL1st) if Re_1st.eof then DbCtt.Close Set DbCtt = Nothing DbQpc.Close Set DbQpc = Nothing Response.Redirect "inx_Home.asp" else tcPageName = Re_1st(tcTitle_xx) end if else if left(tnMenuNumb,1) = "2" then SQL2nd = "SELECT * FROM ngt_2nd WHERE n2nd_Numb = "&tnMenuNumb&" " Set Re_2nd = DbCtt.Execute(SQL2nd) if Re_2nd.eof then DbCtt.Close Set DbCtt = Nothing DbQpc.Close Set DbQpc = Nothing Response.Redirect "inx_Home.asp" else tcPageName = Re_2nd(tcTitle_xx) end if else if left(tnMenuNumb,1) = "3" then SQL3rd = "SELECT * FROM ngt_3rd WHERE n3rd_Numb = "&tnMenuNumb&" " Set Re_3rd = DbCtt.Execute(SQL3rd) if Re_3rd.eof then DbCtt.Close Set DbCtt = Nothing DbQpc.Close Set DbQpc = Nothing Response.Redirect "inx_Home.asp" else tcPageName = Re_3rd(tcTitle_xx) end if else if left(tnMenuNumb,1) = "4" then SQL4th = "SELECT * FROM ngt_4th WHERE n4th_Numb = "&tnMenuNumb&" " Set Re_4th = DbCtt.Execute(SQL4th) if Re_4th.eof then DbCtt.Close Set DbCtt = Nothing DbQpc.Close Set DbQpc = Nothing Response.Redirect "inx_Home.asp" else tcPageName = Re_4th(tcTitle_xx) end if else DbCtt.Close Set DbCtt = Nothing DbQpc.Close Set DbQpc = Nothing Response.Redirect "inx_Home.asp" end if end if end if end if %>
<%=tcPageName%>

<%if tcMobileOX = "X" then%>
Build Your Own Website — FREE!
Get started it for free and get for lifetime.
We offer free hosting and powerful ecommerce solutions.
If you need more specialized programs, You can buy add-on programs. But It's Optional.
<%Do While Not ReSolPak.EOF%> <%For nStart = 1 To 3 IF ReSolPak.eof THEN %> <%ELSE%> <%ReSolPak.MoveNext%> <%END IF%> <%Next%> <%Loop%>
<%if wee = "park" then%> <%end if%> <%if tcCookieID = "SA" or tcCookieID = "DP" then%> <%end if%>
<%if wee = "park" then%>.png"><%end if%> <%=ReSolPak(tcTitle_xx)%>
<%'if wee = "park" then%> <%if cDBL(ReSolPak("nPriceAmt")) = 0 then%>$0.00   Free<%else%>$<%=FormatNumber(cLNG(ReSolPak("nPriceAmt"))/12,2)%>/M<%end if%> <%'end if%>
<%=ReSolPak("cTitle_en")%>
<%=ReSolPak(tcFacts_xx)%>

"> ">
&tcLanguage=<%=tcLanguage%>">
<%else%>
Build Your Own Website — FREE!
Get started it for free and get for lifetime.
We offer free hosting and powerful ecommerce solutions. If you need more specialized programs, You can buy add-on programs.
But It's Optional.
<%Do While Not ReSolPak.EOF%>
<%=ReSolPak(tcTitle_xx)%>
<%if cDBL(ReSolPak("nPriceAmt")) = 0 then%>$0.00
Free<%else%>$<%=FormatNumber(cLNG(ReSolPak("nPriceAmt"))/12,2)%>/M<%end if%>
<%=ReSolPak(tcFacts_xx)%>

<%ReSolPak.MoveNext%> <%Loop%>
<%end if%> <%DbQpc.Close%> <%Set DbQpc = Nothing%> <%DbCtt.Close%> <%Set DbCtt = Nothing%>


<%Server.Execute("_CopyRight.asp")%>