DRSTELS, давно не писал на ASP+VB, уже устаревший и тухлый язык... но кое-что помню
Код:
dim Arr,Elem,i,ip,message2
ip=Request.ServerVariables("REMOTE_ADDR")
Arr=Array()
for i=1 to 255
Arr(i-1)="10.2.100." & i
next
for each Elem in Arr
if ip=Elem then
message2="здорово лопух, ты в отделе автоматизации..."
exit for
end if
next
