Questo script visualizza l'URL della prima foto, di uno specifico tipo foto, collegata ad un articolo.
Option Explicit
Dim IdTipoFoto
Dim UrlSito
Dim Fotografia
Dim PathImmagine
IdTipoFoto = 1
UrlSito = "http://www.miosito.com"
PathImmagine=""
For Each Fotografia In Product.Photos
If Fotografia.IdType = IdTipoFoto Then
PathImmagine = Fotografia.Link
Exit For
End If
Next
If PathImmagine<>"" Then
Response.Write(UrlSito & "/files" & Replace(PathImmagine,"\","/"))
Else
Response.Write("")
End If
Una variazione su questo script potrebbe ad esempio essere quella di recuperare le foto successive alla prima, ad esempio per recuperare l'URL della terza foto si potrebbe utilizzare uno script come il seguente:
Option Explicit
Dim IdTipoFoto
Dim UrlSito
Dim Fotografia
Dim PathImmagine
Dim NumeroFoto
Dim ContaFoto
NumeroFoto = 3
IdTipoFoto = 1
UrlSito = "http://www.miosito.com"
'==========================================
ContaFoto=0
PathImmagine=""
For Each Fotografia In Product.Photos
If Fotografia.IdType = IdTipoFoto Then
ContaFoto=ContaFoto+1
If ContaFoto=NumeroFoto Then
PathImmagine = Fotografia.Link
Exit For
End If
End If
Next
If PathImmagine<>"" Then
Response.Write(UrlSito & "/files" & Replace(PathImmagine,"\","/"))
Else
Response.Write("")
End If
