Den færdige side ser sådan ud (og virker perfekt):
<%
Dim firstname
firstname = request("firstname")
middlename = request("middlename")
lastname = request("lastname")
phone = request("phone")
mobilephone = request("mobilephone")
worktitle = request("title")
email = request("email")
initials = request("initials")
%>
<%Response.ContentType = "text/x-vcard"%>
BEGIN:VCARD
VERSION:2.1
N:<%=lastname%>;<%=firstname%>;<%=middlename%>
FN:<%=firstname & " " & middlename & " " & lastname & " (" & initials & ")"%>
ORG:Bavarian Nordic
TITLE:<%=worktitle%>
TEL;HOME;VOICE:
TEL;HOME;FAX:
TEL;CELL;VOICE:<%=mobilephone%>
TEL;WORK;VOICE:<%=phone%>
TEL;WORK;FAX:
ADR;HOME;ENCODING=QUOTED-PRINTABLE:;;;;;;
ADR;WORK;ENCODING=QUOTED-PRINTABLE:;;=0D=0A;;;;
URL:
www.bavarian-nordic.com/EMAIL:<%=email%>
EMAIL;PREF;INTERNET:<%=email%>
BDAY:
END:VCARD