[ Order Status ] [ Customer Service] [ Affiliate Program ]

Select Case LCase(Left(strJunk, 1)) Case "d" If LCase(Right(strJunk, 4)) = ".htm" Then strJunk = Mid(strJunk, 2, Len(strJunk) - 5) End If If IsNumeric(strJunk) = True Then Call SpiderCheck() If Len(sSpiderName) > 0 Then UpdateSpiderLogRedirect(410) Status410Gone Else If CDbl(strJunk) < 0 Then strStyle = "ice" Else strStyle = "movie" End If ResponseRedirect "/sresult.asp?style=" & strStyle & "&HT_Search=xdirector&HT_Search_Info=" & strJunk End If End If End Select End if select case ucase(SV_HOST_NAME) case "I.CDUNIVERSE.WS" If gbImage = false then 'if it's not looking for an image on this domain then make it stop Status410Gone Response.End end if case else 'Don't redirect i.cduniverse.ws 'added by AD 11/13/2008 'Debug "err404.asp calling CheckDomainRedirect()" Call CheckDomainRedirect() 'Debug "Returned from CheckDomainRedirect()" end select CheckForError("Err404-AR-End") End Sub %>

Games
» Action» Children
» Fighting» Puzzle
» Shooters» RPG
» Sim» Strategy
» Racing» Sports

Movies
» Adventure» Drama
» Family» Comedy
» Foreign» Horror
» Musicals» Sci-Fi
» Sports» Westerns

Music
» Pop» Singles
» Blues» Box Sets
» Rock» New Age
» Metal» Classical
» Rap» Country
» Dance» Movie/TV
» R&B» Jazz