<%
'   Anybuilder VX Edition Provisioning
'   Programmed By Mobile Solution Team
'   CopyRight ⓒ 2000-2006  ANYBIL Co.,Ltd.
'   순서를 바꾸면 정상적으로 작동되지 않을 수도 있습니다.
    agent = Request.ServerVariables("HTTP_USER_AGENT")
    subno = Request.ServerVariables("HTTP_X_UP_SUBNO")
    raw = Request.ServerVariables("ALL_RAW")
    accept = Request.ServerVariables("HTTP_ACCEPT")
    agentskt = Mid(agent, 10, 2)
    For i = 1 To 2
        If Mid(agentskt, i, 1) >= "0" And Mid(agentskt, i, 1) <= "9" Then
        Else
            agentskt = "00"
            Exit For
        End If
    Next
    If InStr(subno, "ezweb") >= 1 And InStr(agent, "UP.Browser/4.1") >= 1 Then
        'ez-i(UP4.1)
        redirect = "http://yourdomain/upwml/index.asp"
    ElseIf InStr(subno, "ezweb") >= 1 And Left(agent, 3) = "111" Then
        'ez-i(AUR)
        redirect = "http://yourdomain/wml/index.asp"
    ElseIf (Left(agent, 3)="111" Or Left(agent, 3)="117" Or Left(agent, 3)="116" Or Left(agent, 3)="118" Or Left(agent, 3)="119" Or Left(agent, 3)="010" Or Left(agent, 3)="SKT" Or Left(agent, 3)="STI" Or Left(agent, 3)="KTF" Or Left(agent, 3)="HSP" Or Left(agent, 3)="LGT" Or Left(agent, 1)="I") And (CInt(agentskt) >= 5) Then
        'NATE(nateⓜ)
        redirect = "http://yourdomain/wml2/index.asp"
    ElseIf (Left(agent, 3)="111" Or Left(agent, 3)="117" Or Left(agent, 3)="116" Or Left(agent, 3)="118" Or Left(agent, 3)="119" Or Left(agent, 3)="010" Or Left(agent, 3)="SKT" Or Left(agent, 3)="STI" Or Left(agent, 3)="KTF" Or Left(agent, 3)="HSP" Or Left(agent, 3)="LGT" Or Left(agent, 1)="I") Or InStr(raw,"nate.com") >= 1 Then
        'NATE(AUR)
        redirect = "http://yourdomain/wml/index.asp"
    ElseIf InStr(subno, "EB") >= 1 Then
        'ez-i(Embidder)
        redirect = "http://yourdomain/xhtml/index.asp"
    ElseIf InStr(subno, "KB") >= 1 Then
        'ez-i(KB)
        redirect = "http://yourdomain/upwml/index.asp"
    ElseIf InStr(subno,"itouch") >= 1 and inStr(agent,"UP.Browser/4.1") >= 1 Then
        'iTouch(UP4.1)
        redirect = "http://yourdomain/upwml/index.asp"
    ElseIf InStr(agent,"DoCoMo") >= 1 Then
        'i-mode
        redirect = "http://yourdomain/chtml/index.asp"
    ElseIf InStr(agent,"J-PHONE") >= 1 Then
        'J-PHONE
        redirect = "http://yourdomain/chtml/index.asp"
    ElseIf InStr(subno,"itouch") >= 1 Then
        'iTouch(UP3.1)
        redirect = "http://yourdomain/upwml/index.asp"
    ElseIf InStr(subno,"ezweb") >= 1 Then
        'ez-i(UP3.1)
        redirect = "http://yourdomain/upwml/index.asp"
    ElseIf InStr(agent,"KUN") >= 1 Then
        'magicⓝ(KUN)
        redirect = "http://yourdomain/kun/index.asp"
    ElseIf InStr(agent,"CellPhone") >= 1 Then
        'magicⓝ(ME)
        redirect = "http://yourdomain/mhtml/index.asp"
    ElseIf InStr(agent,"MMEF300") >= 1 Then
        'MME30 시뮬레이터인 경우
        redirect = "http://yourdomain/mhtml/index.asp"
    ElseIf InStr(agent,"UP.Browser") >= 1 Then
        If InStr(agent,"UP.Browser/3") >= 1 Then
            'hdml용 UP브라우저3.1/3.2 시뮬레이터인 경우
            redirect = "http://yourdomain/upwml/index.asp"
        ElseIf InStr(agent,"UP.Browser/6") >= 1 Or InStr(agent,"UP.Browser/7") >= 1 Then
            'xhtml용 UP브라우저6 시뮬레이터인 경우
            redirect = "http://yourdomain/xhtml/index.asp"
        Else
            'UP브라우저4.0이상 시뮬레이터인 경우
            redirect = "http://yourdomain/upwml/index.asp"
        End If
    ElseIf InStr(accept,"xhtml") >= 1 Then
        'xHTML을 지원하는 기타/해외 단말
        If InStr(agent,"iPhone") >= 1 Then
            'iPhone 경우
            redirect = "http://yourdomain/pda/index.asp"
        Else
            redirect = "http://yourdomain/xhtml/index.asp"
        End If
    ElseIf InStr(accept,"wml") >= 1 Then
        'wml을 지원하는 기타/해외 단말
        redirect = "http://yourdomain/wml/index.asp"
    Else
        'Web/pda 브라우저
        redirect = "http://yourdomain/pda/index.asp"
    End If
    response.Redirect redirect
%>