| 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
Movies
Music
|
