please help me? i Have A A Problem In Loading a Web Site On Domailn And Also On LOcal Host.

Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
dim path as string        
Dim doc As New Document(iTextSharp.text.PageSize.LETTER, 10, 10, 42, 35)
 path=server.mappath("test.pdf")
        Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream("C:\sample.pdf", FileMode.Create))
 
i Alo Use these
        'PdfWriter.GetInstance(doc, New FileStream(path, FileMode.Create))

And I Also Used this 
'PdfWriter.GetInstance(doc, New FileStream(Request.PhysicalApplicationPath + "\sample.pdf", FileMode.Create))

       

        doc.Open()
        Dim table = New PdfPTable(2)
 
        Dim cell As New PdfPCell
 
        cell = New PdfPCell(New Phrase("THIS IS CONTACT INFORATION WHICH IS FIELD BY USER"))
        cell.Colspan = 2
 
        cell.HorizontalAlignment = 1
 

        table.AddCell(cell)
 
        table.AddCell("First Name:")
 
        table.AddCell(txtfname.Text)
 
        table.AddCell("Last Name: ")
        table.AddCell(txtlname.Text)
 
        table.AddCell("Address:")
        table.AddCell(txtaddress.Text)
 
        table.AddCell("Apt#:")
        table.AddCell(txtapt.Text)
 
        table.AddCell("Postal Code: ")
        table.AddCell(txtpostalcod.Text)
 
        table.AddCell("City: ")
        table.AddCell(txtcity.Text)
 
        table.AddCell("*Province:")
        table.AddCell(DropDownList1.Text)
 
        table.AddCell("Country: ")
        table.AddCell(DropDownList2.Text)
 
        table.AddCell("Phone: ")
        table.AddCell(txtphone.Text & vbNewLine & s)
 
        table.AddCell("E-mail Address:")
        table.AddCell(txtemail.Text)
 
        table.AddCell("Campus of Interest: ")
        table.AddCell(DropDownList3.Text)
 
        table.AddCell("Program of Interest:")
        table.AddCell(DropDownList4.Text)
 

        table.AddCell("How did you hear about us?: ")
        table.AddCell(DropDownList5.Text)
 
        table.AddCell("CONTACT FORM FIELD DATE AND TIME")
        table.AddCell(Date.Now)
 
        doc.Add(table)