<% Randomize() nansu = Int((Rnd*4)+1) Function is_mobile() Dim Regex, match Set Regex = New RegExp With Regex .Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm|ipad)" .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 Not is_mobile Then nansu=0 End If %> adwood <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open cn_webstring lo_Query = "select w_idx, w_filename from w_intro " Set ob_rs = Server.CreateObject("ADODB.recordset") ob_rs.open lo_Query, conn, 3,3 if not ob_rs.eof then ArrTemp = ob_rs.GetRows RowCount = Ubound(ArrTemp,2) else RowCount = -1 end If if RowCount_notice = -1 then else If Response.IsClientConnected Then year_before = "" For i = 0 To RowCount lo_idx = ArrTemp(0,i) download_filename = ArrTemp(1,i) Next End If End If %>
adwood

Our Clients

애드우드 솔루션

<%'p>마케팅전략 / 기업PR 광고기획 / 상품광고기획 / 정치광고기획 / 마케팅조사 / 사회여론조사
국내외 마케팅자료 수집 및 분석 / 라이프사이클 조사 / 광고효과 조사
<% If is_mobile Then %> <% Else %> <% End If %>

Contact Us

DAEGU

SEOUL

  • DAEGU : 대구광역시 남구 현충로 237 (주)애드우드
  • SEOUL : 서울특별시 강남구 논현로 135길 23 조복빌딩 4F
  • 대구 : (053) 429-4800 / 서울 : (02) 3446-1745
  • 대구 : (053) 428-4818 / 서울 : (02) 3446-1746
  • adwoodcom@gmail.com
  • www.adwood.co.kr

Your message was successfully sent!

<%If IsMobile() = False Then%> <%End If%>