Dim nvc As New NameValueCollection nvc.Add("Contact ID", contactid) nvc.Add("First Name", txtfname.Text) nvc.Add("Last Name", txtlname.Text) nvc.Add("Address", txtaddress.Text) nvc.Add("APT", txtapt.Text) nvc.Add("Postal Code", txtpostalcod.Text) nvc.Add("City", txtcity.Text) nvc.Add("Province:", DropDownList1.Text) nvc.Add("Country:", DropDownList2.Text) nvc.Add("Phone:", txtphone.Text & vbNewLine & s) nvc.Add("E-mail:", txtemail.Text) nvc.Add("Campus of Interest:", DropDownList3.Text) nvc.Add("Program of Interest:", DropDownList4.Text) nvc.Add("How did you hear about us?:", DropDownList5.Text) nvc.Add("Campus of Interest:", DateTime.Now.ToString("f")) Dim path As String = (Server.MapPath("~\\Forms\")) Dim pdf As New PdfCreator pdf.Open(path) pdf.AddTitle(("Contact Form - " + DateTime.Now.ToString("f"))) pdf.AddPanel("Contents", nvc) pdf.Close() 'Response.Redirect("~\\2418073b-d153-4e12-941d-c97250b8e9dd.pdf") Response.Redirect(path + pdf.Filename) Response.Flush()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)