Upload problemer

Hej alle. Nu har jeg siddet med dette problem i jeg ved ikke hvor lang tid... Jeg uploader et billede med komponetet aspSmartUpload og sætter derefter billedets navn til en persons Id i databasen profiles, derefter opdaterer jeg denne persons profil til at passe til billedets fulde navn. kan nogen finde en fejl?:

<%
if request(\"mode\") = \"upload\" then

Dim mySmartUpload
Dim intCount

Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")

mySmartUpload.AllowedFilesList = \"jpg,jpeg,gif\"
mySmartUpload.MaxFileSize = 10000

mySmartUpload.Upload

Set rs=Conn.Execute(\"SELECT * FROM profiles WHERE username=\'\" & Session(\"username\") & \"\'\")
userid = rs(\"id\")

if InStr(\"\" & mySmartUpload.files.item(1).filename & \"\", \".jpg\") OR InStr(\"\" & mySmartUpload.files.item(1).filename & \"\", \".jpeg\")  then
filetype = \"jpg\"
elseif InStr(\"\" & mySmartUpload.files.item(1).filename & \"\", \".gif\") then
filetype = \"gif\"
end if

intCount = mySmartUpload.files.item(1).SaveAs(\"/data/\" & userid & \".\" & filetype & \"\")

If Err Then
response.write \"<b><font color=\'white\'>An error occured during the upload, please try again!</font></b>\"
else
Set rs = Server.CreateObject(\"ADODB.Recordset\")
sql = \"SELECT * FROM profiles WHERE Id = \" & userid & \"\"
rs.open sql, Conn, 1, 3
rs.Update
rs(\"picture\") = \"\" & userid & \".\" & filetype & \"\"
rs.Update
%>
<script>
window.close()
</script>
<%
end if
end if
%>