Option Explicit

Dim Marca
Dim TempiConsegna

Marca = Product.Manufacturer.Name

Select Case (Marca)
    Case "LUCEPLAN"
    TempiConsegna = "15"
    Case "SLAMP"
    TempiConsegna = "15"
	Case "KARTELL"
    TempiConsegna = "15"
	Case "MUNARI"
    TempiConsegna = "10"

End Select

Response.Write(TempiConsegna)