<% 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 Server.Execute("_JavaMain.asp") Server.Execute("_LogoMenu.asp") 'Server.Execute("_BannerXX.asp") tnCategory = trim(Request("tnCategory")) if tnCategory = "" then tnCategory = 0 end if tnClassify = trim(Request("tnClassify")) if tnClassify = "" then tnClassify = 0 end if tcCookieID = Request.Cookies("tcCookieID") tcUserIDNO = Request.Cookies("tcUserIDNO") tnUser_Num = Request.Cookies("tnUser_Num") if tnUser_Num = "" then tnUser_Num = 0 else tnUser_Num = cLNG(tnUser_Num) end if tcHostName = trim(Request("tcHostName")) if tcHostName = "" or isnull(tcHostName) then else Response.Cookies("tcHostName").Expires = Date()+365 Response.Cookies("tcHostName") = tcHostName end if '현재언어 기억한다.. '/front_en/front_home.asp tcLanguage = mid(trim(Request.ServerVariables("URL")),8,2) tcTexts_xx = "cTexts_" + tcLanguage tcTitle_xx = "cTitle_" + tcLanguage ttMemos_xx = "tMemos_" + tcLanguage Set DbQpc = Server.CreateObject("ADODB.Connection") DbQpc.Open APPLICATION("connect_qpc") 'Please select one of the templates below, SQLtm = "SELECT nMlg_Numb," & tcTexts_xx & " FROM mlg_Panel WHERE nMlg_Numb = 1789 " Set ReTxt = DbQpc.Execute(SQLtm) mlg_select = ReTxt( tcTexts_xx ) 'Demo SQLtm = "SELECT nMlg_Numb," & tcTexts_xx & " FROM mlg_Panel WHERE nMlg_Numb = 1793 " Set ReTxt = DbQpc.Execute(SQLtm) mlg_Demo = ReTxt( tcTexts_xx ) 'Detail SQLtm = "SELECT nMlg_Numb," & tcTexts_xx & " FROM mlg_Panel WHERE nMlg_Numb = 1445 " Set ReTxt = DbQpc.Execute(SQLtm) mlg_Detail = ReTxt( tcTexts_xx ) 'SQLct = "SELECT * FROM spt_Category WHERE cActivity = 'O' ORDER BY cTitle_en ASC " SQLct = "SELECT nDisplayX,nList_Sum,nCategory," & tcTitle_xx & " FROM spt_Category WHERE nList_Sum > 0 ORDER BY nDisplayX ASC " Set ReCategory = DbQpc.Execute(SQLct) if tnClassify = 0 and tnCategory = 0 then '베스트셀러 혹은 신규 등록된것..... 'SQLtt = "SELECT * FROM spt_Template WHERE cActivity = 'S' ORDER BY cFiveStar + cOpenDate DESC " SQLtt = "SELECT * FROM spt_Template WHERE cFlagSite = 'O' ORDER BY nDisplayX ASC " Set ReTemplate = DbQpc.Execute(SQLtt) else if tnClassify > 0 then SQLcl = "SELECT * FROM spt_Classify WHERE nClassify = "&tnClassify&" " Set ReClassify = DbQpc.Execute(SQLcl) tcClassifyTiT = ReClassify(tcTitle_xx) SQLfx = "SELECT * FROM spt_Category WHERE nCategory = "&ReClassify("nCategory")&" " Set ReFixd = DbQpc.Execute(SQLfx) tcCategoryTiT = ReFixd(tcTitle_xx) SQLtt = "SELECT * FROM spt_Template WHERE cActivity = 'S' and nClassify = "&tnClassify&" ORDER BY cFiveStar + cOpenDate DESC " Set ReTemplate = DbQpc.Execute(SQLtt) else SQLfx = "SELECT * FROM spt_Category WHERE nCategory = "&tnCategory&" " Set ReFixd = DbQpc.Execute(SQLfx) tcCategoryTiT = ReFixd(tcTitle_xx) SQLtt = "SELECT * FROM spt_Template WHERE cActivity = 'S' and nCategory = "&tnCategory&" ORDER BY cFiveStar + cOpenDate DESC " Set ReTemplate = DbQpc.Execute(SQLtt) end if end if %> <%if tcMobileOX = "X" then%>
<%if tcHostName <> "" then%> <%end if%> <%Do While Not ReCategory.eof%> <%for nStart = 1 to 5 if ReCategory.eof then %> <%else 'SQLcl = "SELECT * FROM spt_Classify WHERE cActivity = 'O' and nCategory = "&ReCategory("nCategory")&" ORDER BY cTitle_en ASC " 'Set ReClassify = DbQpc.Execute(SQLcl)%> <%ReCategory.MoveNext%> <%end if%> <%next%> <%Loop%>
http://<%=tcHostName%>.iwebbox.com    <%=mlg_select%>
Type of Businness<%'=tcCategoryTiT%>

<%if wee = "park" then%> <%Do While Not ReClassify.eof%>    "><%=ReClassify(tcTitle_xx)%>(<%=ReClassify("nList_Sum")%>)
<%ReClassify.MoveNext%> <%Loop%> <%end if%>
<%if tnClassify = 0 and tnCategory = 0 then%>
<%Do While Not ReTemplate.eof%> <%for nStart = 1 to 5 %> <%if ReTemplate.eof then %> <%else%> <%ReTemplate.MoveNext%> <%end if%> <%next%> <%Loop%>
Featured<%'=tcCategoryTiT%>
<%SQLtt = "SELECT * FROM spt_Template WHERE cActivity = 'S' ORDER BY nDisplayX ASC " %> <%Set ReTemplate = DbQpc.Execute(SQLtt)%> <%Do While Not ReTemplate.eof%> <%'ReTemplate.MoveNext%> <%Loop%> <%else%> <%if tnClassify > 0 then%>
<%Do While Not ReTemplate.eof%> <%for nStart = 1 to 5 %> <%if ReTemplate.eof then %> <%else%> <%ReTemplate.MoveNext%> <%end if%> <%next%> <%Loop%>
<%=tcCategoryTiT%>/<%=tcClassifyTiT%>
<%SQLtt = "SELECT * FROM spt_Template WHERE cActivity = 'S' and nClassify = "&tnClassify&" ORDER BY nDisplayX ASC " %> <%Set ReTemplate = DbQpc.Execute(SQLtt)%> <%Do While Not ReTemplate.eof%> <%'ReTemplate.MoveNext%> <%Loop%> <%else%>
<%Do While Not ReTemplate.eof%> <%for nStart = 1 to 5 %> <%if ReTemplate.eof then %> <%else%> <%ReTemplate.MoveNext%> <%end if%> <%next%> <%Loop%>
<%=tcCategoryTiT%>/<%=tcClassifyTiT%>
<%SQLtt = "SELECT * FROM spt_Template WHERE cActivity = 'S' and nCategory = "&tnCategory&" ORDER BY nDisplayX ASC " %> <%Set ReTemplate = DbQpc.Execute(SQLtt)%> <%Do While Not ReTemplate.eof%> <%'ReTemplate.MoveNext%> <%Loop%> <%end if%> <%end if%>






<%else%>
Type of Businness<%'=tcCategoryTiT%>
<%Do While Not ReCategory.eof%> <%ReCategory.MoveNext%> <%Loop%>
<%if tnClassify = 0 and tnCategory = 0 then%>
(turnkey websites)
<%Do While Not ReTemplate.eof%>
">.jpg" width="100">

★★★

No: <%=ReTemplate("nTemplate")%>
<%=ReTemplate("cDescript")%>
<%ReTemplate.MoveNext%> <%Loop%>
<%SQLtt = "SELECT * FROM spt_Template WHERE cFlagSite = 'O' ORDER BY nDisplayX ASC " %> <%Set ReTemplate = DbQpc.Execute(SQLtt)%> <%Do While Not ReTemplate.eof%>
">
Template #:<%=ReTemplate("nTemplate")%>
X.jpg" width=200">
<%tnTempBack = ReTemplate("nTemplate")%> <%ReTemplate.MoveNext%> <%if ReTemplate.eof then%> <%else%> <%end if%>
X
<%'ReTemplate.MoveNext%> <%Loop%> <%else%> <%if tnClassify > 0 then%>
<%=tcCategoryTiT%>/<%=tcClassifyTiT%>
<%Do While Not ReTemplate.eof%>
">.jpg" width="100">

★★★

No: <%=ReTemplate("nTemplate")%>
<%=ReTemplate("cDescript")%>
<%ReTemplate.MoveNext%> <%Loop%>
<%SQLtt = "SELECT * FROM spt_Template WHERE cActivity = 'S' and nClassify = "&tnClassify&" ORDER BY cFiveStar + cOpenDate DESC " %> <%Set ReTemplate = DbQpc.Execute(SQLtt)%> <%Do While Not ReTemplate.eof%>
">
Template #:<%=ReTemplate("nTemplate")%>
X.jpg" width=200">
<%tnTempBack = ReTemplate("nTemplate")%> <%ReTemplate.MoveNext%> <%if ReTemplate.eof then%> <%else%> <%end if%>
X
<%'ReTemplate.MoveNext%> <%Loop%> <%else%>
<%=tcCategoryTiT%>/<%=tcClassifyTiT%>
<%Do While Not ReTemplate.eof%>
">.jpg" width="100">

★★★

No: <%=ReTemplate("nTemplate")%>
<%=ReTemplate("cDescript")%>
<%ReTemplate.MoveNext%> <%Loop%>
<%SQLtt = "SELECT * FROM spt_Template WHERE cActivity = 'S' and nCategory = "&tnCategory&" ORDER BY cFiveStar + cOpenDate DESC " %> <%Set ReTemplate = DbQpc.Execute(SQLtt)%> <%Do While Not ReTemplate.eof%>
">
Template #:<%=ReTemplate("nTemplate")%>
X.jpg" width=200">
<%tnTempBack = ReTemplate("nTemplate")%> <%ReTemplate.MoveNext%> <%if ReTemplate.eof then%> <%else%> <%end if%>
X
<%'ReTemplate.MoveNext%> <%Loop%> <%end if%> <%end if%> <%end if%> <%DbQpc.Close%> <%Set DbQpc = Nothing%> <%Server.Execute("_CopyRight.asp")%>