Fabio
Puoi usare uno script tipo questo
Option Explicit Dim Codice
For Each Codice In Product.Barcodes If IsASIN(Codice.Value) Then Response.Write(Codice.Value) Exit For End If Next
Function IsASIN(codice) Dim i Dim codOk Dim carattere
codOk=False codice=trim(ucase(codice)) If Len(codice)=10 Then If left(codice,2)="B0" Then codOk=True For i=3 to 10 carattere=Mid(codice,i,1) If (carattere>="A")AND(carattere<="Z") Then ' OK ElseIf (carattere>="0")AND(carattere<="9") Then ' OK Else codOk=False Exit For End If Next End If End If IsASIN=codOk End Function
|