[Rayzak]

В общем открыл asp доки и почитал про arrays, в принципе почти тоже самое что и php синтаксис.

Кому интерестно - ищет картинку по маске, маска лежит array и если картинка на сервере- показывает.

<%
Dim AdditionalImagesArray
AdditionalImagesArray = Array("BOX","PALLET","ACC","ACCESSORIES","ACCESSORIES1","ACCESSORIES2","BACK","BACK VIEW","BOTTOM","BOTTOMVIEW","BOX_CLOSED","BOX_OPEN","BOX_OPENED","BOXLABEL","CHIP","FRONT","FRONT VIEW","FRONT_VIEW","FRONTVIEW","INSIDE","LABEL","LABEL1","LABEL2","LABEL3","LABEL4","LABEL5","OPENBOX","PACKAGING","PACKAGING1","PACKAGING2","PART","PN","PN1","PN2","PN3","PN4","PN5","REAR","REARVIEW","RETAILBOX","SERIAL","SIDEVIEW","TOP","TOP VIEW","TOP_VIEW","TOPVIEW")
For i=0 to 45
Dim AdditionalImages
AdditionalImages = Server.MapPath("mmHM/images/" & ItemcodeNew & "_" & server.htmlencode(sItemCode)& AdditionalImagesArray(i) & ".jpg")
If IsFileExists(AdditionalImages) = True  Then
 Response.Write "<a target=_blank href=mmHM/images/" & ItemcodeNew & "_" & server.htmlencode(sItemCode)& AdditionalImagesArray(i) & ".jpg><img border=0 width=50 height=50 src=/mmHM/images/MBIN010L"& ItemcodeNew & "_" & server.htmlencode(sItemCode)& AdditionalImagesArray(i) & ".jpg></a> "
Else
 Response.Write ""
End If

next


Function IsFileExists(byVal AdditionalImages)
 
 If AdditionalImages = ""  Then
  IsFileExists = False
  Exit Function
 End If
 
 Dim objFSO
    
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    
 If (objFSO.FileExists( AdditionalImages ) = True)  Then
  IsFileExists = True
 Else
  IsFileExists = False
 End If
  
 Set objFSO = Nothing   
End Function

%>

Только вот опять тупик Когда код ввожу на страницу сайта, не работает Как я понимаю функции и переменные нужно как то декларировать и разрешать... (дополнительная секьюрити).
Дых, пытаюсь выяснить как и где.