<%
If request.form("butSubmit")<
Set fso = CreateObject("Scripting.Fi
' ** CREATE THE VCF FILE **
filepath=Server.MapPath("T
Set Address = fso.CreateTextFile(filepat
Address.WriteLine("BEGIN:V
Address.Close
' ** FORCE DOWNLOAD CODE **
Set f = fso.GetFile(filePath)
fsize = f.size
Const adTypeBinary = 1
Response.Clear
Set fstream = Server.CreateObject("ADODB
fstream.Open
fstream.Type = adTypeBinary
fstream.LoadFromFile filePath
Response.AddHeader "Content-Length", fsize
Response.Charset = "UTF-8"
Response.ContentType = "text/x-vCard"
Response.AddHeader "Content-Disposition", "attachment; filename=""" & f.Name & """"
Response.BinaryWrite fstream.Read
Response.Flush
fstream.Close
End IF
%>
<Form method=post action="">
Last Name<input type=text name=txtlName><br>
First Name<input type=text name=txtfName><br>
Middle Name<input type=text name=txtmName><br>
Country<input type=text name=cboCountry><br>
EMAIL<input type=text name=txtEmail><br>
<Input type=submit value="Create V Card" name="butSubmit"><br>
</Form>
Hope you get the idea...
Cheers!!
Main Topics
Browse All Topics





by: martinvPosted on 2003-09-28 at 13:54:59ID: 9446615
If you are using asp.net (and can use .NET classes) there will be no problem.
/vb/net/vc ard.asp
tikel/2002 0906.htm
Try code from those articles:
.NET class to create and maintain vCard information
http://www.codeproject.com
On-the-fly Erstellung von vCard's
http://www.aspheute.com/ar