<%
Nome = "Regina"
Cognome = "Altieri"
Societa = "Studio legale avv. Regina Altieri"
Titolo = "Avv."
mail= "studio@studioreginaaltieri.it"

DTRev = FormattaData(Now())

' nome da dare al file
Response.ContentType = "text/x-vcard"
Response.AddHeader "content-disposition", "inline; filename=" & Nome & "_" & Cognome & ".vcf;"

Response.Write("BEGIN:VCARD" & VbCrLF)
Response.Write("VERSION:2.1" & VbCrLF)
Response.Write("N:" & Cognome & ";" & Nome & VbCrLF)
Response.Write("FN:" & Nome & " " & Cognome & VbCrLF)
Response.Write("ORG:" & Societa & VbCrLF)
Response.Write("TITLE:" & titolo & VbCrLF)
Response.Write("EMAIL;PREF;INTERNET:" & mail & VbCrLF)
Response.Write("REV:" & dtRev & VbCrLF)
Response.Write("ORG;charset=iso-8859-1:Studio legale in Firenze"& VbCrLF)
Response.Write("ADR;type=WORK;charset=iso-8859-1:;via Calimala 1;Italia;Firenze;It;50123;Italy"& VbCrLF)
Response.Write("TEL;type=WORK;voice:055 293029"& VbCrLF)
Response.Write("TEL;type=WORK;fax:055 293029"& VbCrLF)
Response.Write("TEL;type=WORK;cell:335 325042"& VbCrLF)
Response.Write("URL;type=WORK:http://www.studioreginaaltieri.it"& VbCrLF)
Response.Write("END:VCARD" & VbCrLF)

Function FormattaData(data)
    ' il formato è YYYYMMDDThhmmssZ
    ' ricordarsi che le date devono essere secondo GTM
    data = CDate(data)
    FormattaData = Year(data) & Raddoppia(Month(data)) & Raddoppia(Day(data))
    FormattaData = FormattaData & "T" & Raddoppia(Hour(data)) & Raddoppia(Minute(data))
    FormattaData = FormattaData & Raddoppia(Second(data)) & "Z"
End Function

' raddoppia una cifra
Function Raddoppia(valore)
    if Len(valore) = 1 then
    valore = "0" & valore
    end if
    Raddoppia = valore
End Function

%>