FileUpload(attachment) error when FileUpload fields are not visible

If fixed the problem with this code:

If not AttachmentBlank1.PostedFile Is Nothing Then
mm.Attachments.Add(New Attachment(AttachmentBlank1.PostedFile.InputStream, AttachmentBlank1.FileName))
End if

If not AttachmentBlank2.PostedFile Is Nothing Then
mm.Attachments.Add(New Attachment(AttachmentBlank2.PostedFile.InputStream, AttachmentBlank2.FileName))
End if

 

The problem seems to come up when a FileUpload(attachment) field is not visible in the document on submit, I have been making a draft andchoose to only have some file upload fields visible depending on what the user has chosen to upload, Like in this form that?s not working anymore http://www.budgetwebdesign.com.au/msresume/SuperStarter.aspx
This use to work fine and it just changed (and I don?t know why) and similar pages with this functionality work fine. These pages use to get sent fine whether the file upload fields were visible or not

Heres my error or you may see it on the above link, my VB and HTML code is under this:
Object reference not set to an instance of an object.


Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.NullReferenceException: Object reference not set to an instance of an object.

Source Error:

Code:

Line 315:
Line 316:        'Attach the file
Line 317:        mm.Attachments.Add(New Attachment(
AttachmentBlank2.PostedFile.InputStream, AttachmentBlank2.FileName))
Line 318:

Source File: D:\websites\207.97.194.114\msresume.com.au\SuperStarter.aspx.vb Line: 317

Stack Trace:

Code:

[NullReferenceException: Object reference not set to an instance of an object.]   
_Default.SendEmail_Click(Object sender, EventArgs e) in D:\websites\207.97.194.114\
msresume.com.au\SuperStarter.aspx.vb:317   System.Web.UI.WebControls.Button.OnClick(EventArgs e)
 +105   System.Web.UI.WebControls.Button.RaisePostBackEvent(String eventArgument) +107  
 System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent
(String eventArgument) +7   System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler 
sourceControl, String eventArgument) +11   System.Web.UI.Page.RaisePostBackEvent(NameValueCollection 
postData) +33   System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean 
includeStagesAfterAsyncPoint) +5102

__________________________________________________________________________________________

VB CODE:



Imports System.Net.Mail<O></O>
Imports System.Text<O></O>
<O></O>
Partial Class _Default<O></O>
Inherits System.Web.UI.Page<O></O>
<O></O>
Protected Sub SendEmail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SendEmail.Click<O></O>
'!!! UPDATE THIS VALUE TO YOUR EMAIL ADDRESS<O></O>
Const ToAddress As String = "[email protected]"<O></O>
<O></O>
'(1) Create the MailMessage instance<O></O>
Dim mm As New MailMessage(UsersEmail.Text, ToAddress)<O></O>
<O></O>
Dim sb As StringBuilder = New StringBuilder()<O></O>
<O></O>
sb.Append("Name: " &amp; Name.Text &amp; "")<O></O>
sb.Append("Phone Number: " &amp; Phone.Text &amp; "")<O></O>
sb.Append("Mobile: " &amp; Mobile.Text &amp; "")<O></O>
sb.Append("Work Number: " &amp; TextBox18.Text &amp; "")<O></O>
sb.Append("Fax Number: " &amp; TextBox19.Text &amp; "")<O></O>
sb.Append("Email Address: " &amp; UsersEmail.Text &amp; "" &amp; "")<O></O>
<O></O>
sb.Append("Address: " &amp; "" &amp; AddressLine1.Text &amp; "")<O></O>
sb.Append(AddressLine2.Text &amp; "")<O></O>
sb.Append(AddressLine3.Text &amp; "")<O></O>
sb.Append("Postcode: " &amp; Postcode.Text &amp; "")<O></O>
sb.Append("Country: " &amp; TextBox5.Text &amp; "")<O></O>
sb.Append("Address Type: " &amp; DropDownList3.Text &amp; "" &amp; "")<O></O>
<O></O>
'(2) Assign the MailMessage's properties<O></O>
mm.Subject = "Message from form"<O></O>
mm.Body = sb.ToString()<O></O>
mm.IsBodyHtml = True<O></O>
<O></O>
'Attach the file<O></O>
mm.Attachments.Add(New Attachment(AttachmentBlank1.PostedFile.InputStream, AttachmentBlank1.FileName))<O></O>
<O></O>
'Attach the file<O></O>
mm.Attachments.Add(New Attachment(AttachmentBlank2.PostedFile.InputStream, AttachmentBlank2.FileName))<O></O>
<O></O>
<O></O>
<O></O>
'(3) Create the SmtpClient object<O></O>
Dim smtp As New SmtpClient<O></O>
<O></O>
'(4) Send the MailMessage (will use the Web.config settings)<O></O>
smtp.Send(mm)<O></O>
<O></O>
'Show the EmailSentForm Panel and hide the EmailForm Panel<O></O>
EmailSentForm.Visible = True<O></O>
CoverLetterForm.Visible = False<O></O>
NamePanel.Visible = False<O></O>
ResumeForm.Visible = False<O></O>
SubmitPanel.Visible = False<O></O>
HeadPanel.Visible = False<O></O>
<O></O>
End Sub<O></O>
<O></O>
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load<O></O>
If Not Page.IsPostBack Then<O></O>
'On the first page load, hide the EmailSentForm Panel<O></O>
EmailSentForm.Visible = False<O></O>
End If<O></O>
End Sub<O></O>
<O></O>
Protected Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged<O></O>
PanelExp2.Visible = True<O></O>
CheckBox2.Visible = False<O></O>
End Sub<O></O>
<O></O>
Protected Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged<O></O>
AttachmentBlank1.Visible = True<O></O>
LabelR.Visible = True<O></O>
NamePanel.Visible = True<O></O>
ResumeForm.Visible = True<O></O>
SubmitPanel.Visible = True<O></O>
End Sub<O></O>
<O></O>
Protected Sub CheckBox11_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged<O></O>
NamePanel.Visible = True<O></O>
CoverLetterForm.Visible = True<O></O>
SubmitPanel.Visible = True<O></O>
Labelx.Visible = True<O></O>
AttachmentBlank2.Visible = True<O></O>
End Sub<O></O>
<O></O>
End Class<O></O>


______________________________________________________________________________________


HTML CODE:



<%@ Page Language="VB" AutoEventWireup="true"<O></O>
CodeFile="SuperStarter.aspx.vb" Inherits="_Default" Title="My Super Résumé" %><O></O>
<%@ Import Namespace="System.Net.Mail" %><O></O>
<%@ Import Namespace="System.Text" %><O></O>
<O></O>
<html xmlns="http://www.w3.org/1999/xhtml" ><O></O>
<O></O>
<head id="Head1" runat="server"><O></O>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><O></O>
<O></O>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><O></O>
<O></O>
<script runat="server"><O></O>
<O></O>
</script>
</head><O></O>
<O></O>
<form id="form1" runat="server"><O></O>
<O></O>







<O></O>
<asp:Label ID="LabelR" runat="server" Font-Size="10pt" ForeColor="#666666" Text="Attach your Resume:"<O></O>
Visible="False"></asp:Label></span></td><O></O>
<td><O></O>
<asp:FileUpload ID="AttachmentBlank1" runat="server" Width="225px" Visible="False" /></td><O></O>
</tr><O></O>
<tr><O></O>
<td><O></O>
<span style="font-size: 10pt; color: #666666"><O></O>
<asp:Label ID="Labelx" runat="server" Text="Attach Cover Letter:"<O></O>
Visible="False" ForeColor="#666666" font-size="10pt"></asp:Label></span></td><O></O>
<td><O></O>
<asp:FileUpload ID="AttachmentBlank2" runat="server" Width="225px" Visible="False" /></td><O></O>
</tr><O></O>
<O></O>
</td><O></O>
</tr><O></O>
</table><O></O>
</div><O></O>
<O></O>
</div><O></O>
</form><O></O>
</body><O></O>
</html>