page reset problem in fiel upload app

Affonsets · Apr 28, 2012

Below is the following code. Here is the problem when I choose a file and upload it works fine. However when I select a file and then choose reset form I get a runtiem error pointing the line containing Dim intFileCntr As System.Int32 . Any ideas try running it if you want, thanks and much appreciated... <%@ Page Language="vb" %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <script runat="server"> Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If (Me.IsPostBack) Then Me.SaveImages() 'checks for login Dim strURL as string = Request.ServerVariables("HTTP_Referer") if session("aspxhere")=true then else If strURL="http://www.eliasonforjudge.com/admin/aspx/" then 'do nothing show image upload page 'sets aspx session variable session("aspxhere")=true response.write (session("aspxhere")) else response.redirect("http://www.eliasonforjudge.com/admin/") end if end if Dim connString as String connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=\premfs4sitespremium9eliasondatabaseevents. mdb;" Dim objConnection as OleDbConnection objConnection = New OleDbConnection(connString) objConnection.Open() 'open the connection End Sub Private Function SaveImages() As System.Boolean 'loop through the files uploaded Dim colFiles As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files 'Message to the user Dim strMessage As New System.Text.StringBuilder("Files Uploaded: ") Dim intFileCntr As System.Int32 Try For intFileCntr = 0 To colFiles.Count - 1 Dim objCurrentFile As System.Web.HttpPostedFile = colFiles(intFileCntr) Dim strCurrentFileName, strCurrentFileExtension As System.String strCurrentFileName = System.IO.Path.GetFileName(objCurrentFile.FileName ) If strCurrentFileName <> "" Then strCurrentFileExtension = System.IO.Path.GetExtension(strCurrentFileName) If (strCurrentFileExtension = ".gif") Then 'Save File to the proper directory objCurrentFile.SaveAs("\premfs4sitespremium9eliasonwebrootimages\" + strCurrentFileName) strMessage.Append(strCurrentFileName + " successfully uploaded. ") ElseIf (strCurrentFileExtension = ".jpg") Then 'Save File to the proper directory objCurrentFile.SaveAs("\premfs4sitespremium9eliasonwebrootimages\" + strCurrentFileName) strMessage.Append(strCurrentFileName + " successfully uploaded. ") Else strMessage.Append(strCurrentFileName & " failed!! Only .gif and .jpg images allowed! ") End If Else strMessage.Append("No file Selected to upload, please try again. ") End If Next Label1.Text = strMessage.ToString() Return True Catch Ex As System.Exception Label1.Text = Ex.Message Return False End Try End Function </script>  <form id="UPLOAD" method="post" runat="server" enctype="multipart/form-data"> <table> <tr> <td>Image Uploader </td> </tr> <tr> <td>To upload images simply click browse and select your GIF or JPG Format Image, then press upload images or reset form. Only these formats can be accepted. </td> </tr> <tr> <td> <INPUT type="file" runat="server" size="30" ID="File1" NAME="File1"> </td> </tr> <tr> <td> <asp:LinkButton id="LinkButton1" runat="server" Font-Names="Verdana" Font-Bold="True" Font-Size="XX-Small">Upload Images</asp:LinkButton> <A href="javascript:document.forms[0].reset()" id="LinkButton2" style="FONT-WEIGHT:bold;FONT-SIZE:xx-small;FONT-FAMILY:verdana">Reset Form</A> <asp:Label id="Label1" runat="server" Font-Names="verdana" Font-Bold="True" Font-Size="XX-Small" Width="400px" BorderStyle="None" BorderColor="White"></asp:Label> </td> </tr> </table> </form> </td></tr>  the include files are simply page formatting Thanks again

page reset problem in fiel upload app

Affonsets

New Member