BEGIN:VCARD
VERSION:2.1
N:Aitken;Darren
FN:Darren Aitken
Note: 
ORG:Aitken Aitken Cohn LLP
URL;WORK:www.aitkenlaw.com
TEL;WORK;VOICE:(714) 434-1424      
TEL;WORK;FAX:(714) 434-3600      
TEL;CELL;VOICE: 
ADR;WORK:;;3 MacArthur Pl., Ste. 800;Santa Ana;;92707-5903;USA
LABEL;HOME;ENCODING=QUOTED-PRINTABLE:3 MacArthur Pl., Ste. 800=0D=0ASanta Ana  92707-5903=0D=0AUSA
X-WAB-GENDER:1
Email;PREF;INTERNET:Darren@Aitkenlaw.com
REV:20251105T050200Z
END:VCARD


'<!-- original code

  Response.AddHeader "content-disposition", "attachment; filename=" & FirstName & " " & LastName & ".vcf"
  Response.Write "BEGIN:VCARD" & vbCRLF
  Response.Write "VERSION:2.1" & vbCRLF
  Response.Write "N:" & LastName & ";" & FirstName & vbCRLF
  Response.Write "FN:" & FirstName & " " & LastName & vbCRLF
  Response.Write "Note:" & Note & vbCRLF
  Response.Write "TEL;HOME;VOICE:" & Phone & vbCRLF
  Response.Write "TEL;CELL;VOICE:" & Mobile & vbCRLF
  Response.Write "ADR;HOME:;;" & address & ";" & city & ";;" & zip & ";" & country & vbCRLF
  Response.Write "LABEL;HOME;ENCODING=QUOTED-PRINTABLE:" & address & "=0D=0A" & city & "  " & zip & "=0D=0A" & Country & vbCRLF
  Response.Write "X-WAB-GENDER:"
    If Sex = "male" then
      Response.Write "2" & vbCRLF
    Else
      Response.Write "1" & vbCRLF
    End if
  Response.Write "BDAY:" & year(date()) & Right(0 & month(DOB),2) & Right(0 & day(DOB),2) & vbCRLF
  Response.Write "Email;PREF;INTERNET:" & Email & vbCRLF
  Response.Write "REV:" & year(date()) & right(0 & month(date()),2) & right(0 & day(date()),2) & "T0" & right(0 & second(now()),2) & right(0 & minute(now()),2) & left(0 & second(now()),1) & "Z" & vbCRLF
  Response.Write "END:VCARD"
  
  -->