Aggiungere un contatto in rubrica da una pagina ASP

di , in Classic ASP, Tips,

Nello script #494 abbiamo visto come generare un file in formato vCalendar, per aggiungere un appuntamento al nostro sistema di PIM.
Questo script è una variante sul tema ed usa il formato vCard per aggiungere un contatto.
Può tornare utile in intranet ma anche all'interno di una community, per permette di salvare i dati nella rubrica (anche di Windows) con un semplice click.

<% 
 ' variabili impostate manualmente
 ' sostituire con la lettura da database
Nome = "Pinco"
Cognome = "Pallino"
Societa = "Tizio S.p.a."
Titolo = "Responsabile marketing"
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("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

%>

Commenti

Visualizza/aggiungi commenti

Aggiungere un contatto in rubrica da una pagina ASP (#500) 810 222
| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi