[ 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