index out of range

[gavray]

Please, Does anyone know what this means and how to solve it. This is the code I'm using


Persits.Upload.1 error '800a0009'

Index out of range.

/bodge1.asp, line 20


<%
Dim status, email, image, rs, cn, strsql, f1, newpath, cstring, UserFileName, up1, Files

cstring = &quot;DSN=profile;&quot;



Set up1 = Server.Createobject(&quot;Persits.Upload.1&quot

f1 = Server.MapPath(&quot;_private&quot

newpath = up1.Files(1).Path



Set cn = Server.CreateObject (&quot;adodb.Connection&quot
cn.Open cstring
strSQL = &quot;UPDATE profile SET image = '&quot; & up1.UserFileName & &quot;' Where email&quot; & _
&quot;like '&quot; & email & &quot;'&quot;
cn.Execute(strSQL)
cn.Close
Set cn = Nothing

up1.SaveAs newpath

set up1 = Nothing
%>

thanks Gavin


</body>
</html>

 

[NickBulka]

Gavin,
Looks like the error is in the componenet, not the ASP code.