Merhaba arkadaşlar windows sunucusuna aspupload aspjpej ve aspmail bileşenlerini yükledim ve bunlari regsrv ile kayit ettim yazma okuma izinlerinide verdim bir haber sistemim var daha önceden jpeg ve png resim yükleyebilirsiniz diyordu sistemden bu hata kalktı fakat su anda haber ekleniyor gözükmüyor


haber ekleme kısımında kod ise şöyle

Sub Yukle(veri,uzanti)
IF isNull(veri) Then Exit Sub
Dim Upload, StrUzantilar, Count, File, NewName
StrUzantilar=uzanti
Set Upload=Server.CreateObject("Persits.Upload")
' Upload.CodePage=1254
Upload.IgnoreNoPost=True
Upload.SetMaxSize 104857600, True
Count=Upload.Save(Server.MapPath("../images/takimlar"))

For Each Item in Upload.Form
session(""&Item.Name&"")= "" & Item.Value & ""
Next

IF Count=0 Then
session("tmp_resim")="null"
ELSE
For Each File in Upload.Files
IF NOT inStr(StrUzantilar,Lcase(File.Ext))>0 Then
File.Delete
session("tmp_resim")="hata"' Dosya uzantýsý hatalý!
ELSE
Randomize
NewName=int((Rnd * 9999)+1)&"_"&Lcase(Left(File.MD5Hash,10)&File.Ext)
session("tmp_resim")=NewName
File.Copy(Server.MapPath(veri)&"/"&NewName)
File.Delete
END IF
Next
END IF
Set Upload=Nothing
End Sub


bunun sebebi sizce ne olaiblir ne gibi bir bileşen yükleme yapmam gerekir teşekkür ederim şimdiden