ESPORTAZIONE CAMPI PARTICOLARI

Buongiorno,io devo effettuare un'esportazione nella quale ho bisogno di inserire dei valori particolari:

1) devo inserire in ogni riga , un campo con valore standard ( N )
2) devo inserire in ogni riga , un campo con valore standard ( una frase )
3) esporto le foto grazie al seguente script:

Option Explicit

Dim IdTipoFoto
Dim UrlSito
Dim Fotografia
Dim Url

IdTipoFoto = 1
UrlSito = "http://www.interno13store.it/x_Upload/ftp/image/immaginisito"

For Each Fotografia In Product.Photos
    If Fotografia.IdType = IdTipoFoto Then
        Url = Fotografia.Link
        Url = Replace(Url,"green_Files/Foto/","")
        Response.Write(UrlSito & Url & ";")
    End If
Next

siccome le foto (4 per ogni articolo) vengono esportate tutte nello stesso campo ma separate da un ; (punto e virgola) , io ho bisogno che le quatro foto vengano esportate su campi diversi!

come è possibile fare tutto questo?