Login

           | 

Cerca nel sito...

Ricerca personalizzata

Segnala il sito

Segnala a: Mr. Wong Segnala a: Webnews Segnala a: Icio Segnala a: Oneview Segnala a: Kledy.de Social Bookmarking Segnala a: FAV!T Social Bookmarking Segnala a: Favoriten.de Segnala a: Seekxl Segnala a: Social Bookmark Portal Segnala a: BoniTrust Segnala a: Power-Oldie Segnala a: Bookmarks.cc Segnala a: Newskick Segnala a: Newsider Segnala a: Linksilo Segnala a: Readster Segnala a: Yigg Segnala a: Linkarena Segnala a: Digg Segnala a: Del.icoi.us Segnala a: Reddit Segnala a: Jumptags Segnala a: Upchuckr Segnala a: Simpy Segnala a: StumbleUpon Segnala a: Slashdot Segnala a: Netscape Segnala a: Furl Segnala a: Yahoo Segnala a: Blogmarks Segnala a: Diigo Segnala a: Technorati Segnala a: Newsvine Segnala a: Blinkbits Segnala a: Ma.Gnolia Segnala a: Smarking Segnala a: Netvouz Segnala a: Folkd Segnala a: Spurl Segnala a: Google Segnala a: Blinklist Information
Social Bookmarking
Banner
Hello, unfortunately not all of the site is translated into English, or is poorly translated. I apologize and ask you to help me. Notify errors, send me translations, together we will build a free service certainly helpful to many!
Aggiungere un contatto in rublica Outlook da ASP PDF Print E-mail
User Rating: / 0
PoorBest 
Written by Massimiliano Pasqualoni   
Tuesday, 19 April 2005 12:21
There are no translations available.

Questo script consente di salvare nella rubrica del proprio PMI i dati di un contatto. Questa funzione risulta molto utile nei portali aziendali


 

<%
' 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

%>
< Prev   Next >
Last Updated on Friday, 01 August 2008 15:48
 
RocketTheme Joomla Templates