FInde et script til mig som dette?

Hvad er der galt med det script du selv linker til?

Ellers er det vel bare at læse RFC 2426: http://www.ietf.org/rfc/rfc2426.txt

-->killifish :
For det første, er det script jeg linker til, jo ikke til at downloade. Det er en formular, hvorfra kan generere et output fra en server.

For det andet, er det link du viser, kun en slags overblik, en specifikation, noget om datatyper og lign. Altså intet script, eller link til noget lign.  :-(

Du kan såmænd få det lige her af mig. Det er ikke specielt kønt lavet, men det er da set værre. :o)

1. Formularen:

<form action="vCard.asp" method="POST">
<table width="100%" cellspacing=3 cellpadding=3>
<tr>
    <td style="line-height:17px;"><b>Visitkort - 1 af 1</b><br>
    Denne formular giver dig mulighed for at oprette dit eget personlige elektroniske visitkort.<br>Indtast de ønskede oplysninger og tryk dernæst på &quot;generer visitkort&quot;.<br>Herefter vil der fremkomme en boks, der giver dig mulighed for at gemme visitkortet på din computer.<br><br>
    </td>
</tr>
</table>
<table width="100%" cellspacing=5 cellpadding=5 class="codetable">
<tr>
    <td width="100" valign="top">&nbsp;</td>
    <td width=200 valign=top colspan="2"><b>Navn mv.</b></td>
</tr>
<tr>
    <td width="100" valign="top">Titel:</td>
    <td width=200 valign=top>
    <select name="titel" class=input style="width:175px;">
        <OPTION Value="">Vælg titel</OPTION>
        <OPTION Value="Dr.">Dr.</OPTION>
        <OPTION Value="Fr.">Fr.</OPTION>
        <OPTION Value="Frk.">Frk.</OPTION>
        <OPTION Value="Fru.">Fru.</OPTION>
        <OPTION Value="Hr.">Hr.</OPTION>
        <OPTION Value="Prof.">Prof.</OPTION>
    </select>
    </td>
    <td valign=top>&nbsp;</td>
</tr>
<tr>
    <td width="100" valign="top">Fornavn:</td>
    <td width=200 valign=top><input type="text" name="fornavn" class=input style="width:175px;"></td>
    <td valign=top>Dit/dine fornavne.</td>
</tr>
<tr>
    <td width="100" valign="top">Mellemnavn(e):</td>
    <td width=200 valign=top><input type="text" name="mellemnavn" class=input style="width:175px;"></td>
    <td valign=top>Dit/dine mellemnavne. (kan udelades)</td>
</tr>
<tr>
    <td width="100" valign="top">Efternavn:</td>
    <td width=200 valign=top><input type="text" name="efternavn" class=input style="width:175px;"></td>
    <td valign=top>Dit efternavn.</td>
</tr>
<tr>
    <td width="100" valign="top">Stilling:</td>
    <td width=200 valign=top><input type="text" name="stilling" class=input style="width:175px;"></td>
    <td valign=top>Din stilling. (kan udelades)</td>
</tr>
<tr>
    <td width="100" valign="top">Firma:</td>
    <td width=200 valign=top><input type="text" name="firma" class=input style="width:175px;"></td>
    <td valign=top>Navnet på det firma du arbejder for. (kan udelades)</td>
</tr>
<tr>
    <td width="100" valign="top">&nbsp;</td>
    <td width=200 valign=top colspan="2"><b>Adresse</b></td>
</tr>
<tr>
    <td width="100" valign="top">Gade:</td>
    <td width=200 valign=top><input type="text" name="gade" class=input style="width:175px;"></td>
    <td valign=top>Gadenavn og husnr.</td>
</tr>
<tr>
    <td width="100" valign="top">Postnr.:</td>
    <td width=200 valign=top><input type="text" name="postnr" class=input style="width:175px;"></td>
    <td valign=top>&nbsp;</td>
</tr>
<tr>
    <td width="100" valign="top">By:</td>
    <td width=200 valign=top><input type="text" name="by" class=input style="width:175px;"></td>
    <td valign=top>&nbsp;</td>
</tr>
<tr>
    <td width="100" valign="top">Land:</td>
    <td width=200 valign=top><input type="text" name="land" class=input style="width:175px;"></td>
    <td valign=top>&nbsp;</td>
</tr>
<tr>
    <td width="100" valign="top">&nbsp;</td>
    <td width=200 valign=top colspan="2"><b>Kontaktoplysninger</b></td>
</tr>
<tr>
    <td width="100" valign="top">Telefon (privat):</td>
    <td width=200 valign=top><input type="text" name="privtelefon" class=input style="width:175px;"></td>
    <td valign=top>Dit private telefonnummer. (kan udelades)</td>
</tr>
<tr>
    <td width="100" valign="top">Telefon (mobil):</td>
    <td width=200 valign=top><input type="text" name="mobiltelefon" class=input style="width:175px;"></td>
    <td valign=top>Dit mobiltelefonnummer. (kan udelades)</td>
</tr>
<tr>
    <td width="100" valign="top">Fax:</td>
    <td width=200 valign=top><input type="text" name="fax" class=input style="width:175px;"></td>
    <td valign=top>Dit faxnummer. (kan udelades)</td>
</tr>
<tr>
    <td width="100" valign="top">E-Mail:</td>
    <td width=200 valign=top><input type="text" name="email" class=input style="width:175px;"></td>
    <td valign=top>Din e-mail adresse. (kan udelades)</td>
</tr>
<tr>
    <td width="100" valign="top">Website:</td>
    <td width=200 valign=top><input type="text" name="website" class=input style="width:175px;" value="http://"></td>
    <td valign=top>Adressen på dit website. (kan udelades)</td>
</tr>
<tr>
    <td>&nbsp;</td>
    <td colspan=2><input type="submit" value="Generér visitkort >>" class="submit"></td>
</tr>
</table>
</form>

2. ASP-koden der genererer vCard-"filen":

<%

Response.ContentType = "text/x-vcard"

Dim titel, fornavn, mellemnavn, efternavn, stilling, firma, gade, postnr, by, land, privtelefon, mobiltelefon, fax, email, website

titel = Request.Form("titel")
fornavn = Request.Form("fornavn")
mellemnavn = Request.Form("mellemnavn")
efternavn = Request.Form("efternavn")
stilling = Request.Form("stilling")
firma = Request.Form("firma")
gade = Request.Form("gade")
postnr = Request.Form("postnr")
by = Request.Form("by")
privtelefon = Request.Form("privtelefon")
mobiltelefon = Request.Form("mobiltelefon")
arbfax = Request.Form("arbfax")
privfax = Request.Form("privfax")
email = Request.Form("email")
website = Request.Form("website")

Response.Write("BEGIN:VCARD" & vbCrLf)
Response.Write("VERSION:2.1" & vbCrLf)

Response.Write("N:" & efternavn & ";" & fornavn & ";" & mellemnavn & ";" & titel & vbCrLf)

If Len(mellemnavn) > 0 Then

    Response.Write("FN:" & fornavn & " " & mellemnavn & " " & efternavn & vbCrLf)
   
Else

    Response.Write("FN:" & fornavn & " " & efternavn & vbCrLf)

End If

If Len(firma) > 0 Then

    Response.Write("ORG:" & firma & vbCrLf)

End If

If Len(stilling) > 0 Then

    Response.Write("TITLE:" & stilling & vbCrLf)

End If

Response.Write(postnr & "=0D=0A" & land & vbCrLf)
Response.Write("ADR;HOME:;;" & gade & ";" & by & ";;" & postnr & ";" & land & vbCrLf)

If Len(privtelefon) > 0 Then

    Response.Write("TEL;HOME;VOICE:" & privtelefon & vbCrLf)
   
End If

If Len(mobiltelefon) > 0 Then

    Response.Write("TEL;CELL;VOICE:" & mobiltelefon & vbCrLf)
   
End If

Response.Write("LABEL;HOME;ENCODING=QUOTED-PRINTABLE:" & gade & "=0D=0A" & by & " " & postnr & "=0D=0A" & land & vbCrLf)

If Len(website) > 0 Then

    Response.Write("URL;WORK:" & website & vbCrLf)
   
End If

If Len(email) > 0 Then

    Response.Write("EMAIL;PREF;INTERNET:" & email & vbCrLf)
   
End If

If Len(fax) > 0 Then

    Response.Write("TEL;WORK;FAX:" & fax & vbCrLf)

End If

'TEL;CAR;VOICE:22 44 66 88
'Response.Write("REV:20020302T135633Z" & vbCrLf)
Response.Write("END:VCARD" & vbCrLf)

%>

Du kunne evt. bare have mailet mig. ASP-koden til mine artikler er sjældent så hemmelige, at jeg ikke giver dem væk.  ;)

-->magik:
Hejsa igen.
Well... tiden gik, og jeg gik med. :-)  Men nu har jeg mulighed for at arbejde videre med løsningen, og det lyder bestemt dejligt, det med dine kildekoder.
Hvis du i første omgang lægger en besked formet som et svar, kan jeg tildele dig points for at lukke spørgsmålet på behørig vis.  :-)

:o)

Tag nogle af dem selv.

magik:
Tak for dit svar, jeg havde desværre glemt dette spørgsmål... men det kommer nu.  :-)