şirket persist uploadın yüklü olduğunu söylüyorlar.

arkadaşlar aşağıdaki upload da bir problem var, resmi dosyaya atıyor ancak dbye yazmıyor, resim uzantısı, http://www...com/shop/uploads/0 oluyor. Yardımlarınızı bekliyorum not:admin_connection. asp ve functions. asp ekte yazılmıştır... uploadimage. asp sayfası... <!--#INCLUDE FILE="../includes/admin_connections. asp"--> <!--#INCLUDE FILE="../includes/functions. asp"--> <% Set Upload = Server. CreateObject Upload. Save Server. MapPath Set File1 = Upload. Files Set File2 = Upload. Files '## Set ObjFso = CreateObject Set ObjFileObject1 = ObjFso. GetFile(Server. MapPath & "\" & File1. FileName) ObjFileObject1. Name = Session & "_thumb" & Right((File1. FileName),4,3,2,1) Set ObjFileObject2 = ObjFso. GetFile(Server. MapPath & "\" & File2. FileName) ObjFileObject2. Name = Session & "_normal" & Right((File2. FileName),4,3,2,1) UpdateSQL = "update TblProducts set " UpdateSQL = UpdateSQL & "StrProductThumbImage='"& ObjFileObject1. Name &"', " UpdateSQL = UpdateSQL & "StrProductNormalImage='"& ObjFileObject2. Name &"' WHERE ProdID=" & Session ObjConn. Execute Set ObjFileObject2 = Nothing Set ObjFileObject1 = Nothing Set ObjFso = Nothing '## Set File2 = Nothing Set File1 = Nothing Set Upload = Nothing Response. Redirect "error. asp?StrMsg=Ürün resmi baþarýyla yüklenmiþ durumdadýr&StrRefer=products. asp" Response. End Set ObjConn = Nothing %> ... ... admin_connections. asp... <% Set ObjConn = Server. CreateObject StrDbName = "db/database. mdb" StrConn = "DRIVER= ; DBQ=" & Server. MapPath ObjConn. Open StrConn %> ... ... functions. asp... <% Dim StrDate Dim StrTime Dim StrDate_Time Dim StrWeekDayName Dim StrMonthName On Error Resume Next StrDate = FormatDateTime(Date , vbshortdate) StrTime = FormatDateTime(Now , vbshorttime) StrDate_Time = Now StrWeekDayName = WeekdayName(weekday StrMonthName = MonthName(month Set ObjSettings = Createobject ObjSettings. open "SELECT FROM TblSettings", ObjConn, 3, 1 StrTitle = ObjSettings StrVer = ObjSettings StrURL = ObjSettings StrEmail = ObjSettings StrLogo = ObjSettings StrAdminUserName = ObjSettings StrAdminUserPass = ObjSettings StrUSDCur = ObjSettings StrEUROCur = ObjSettings StrProdList = ObjSettings StrFooter = ObjSettings StrBannerURL = ObjSettings StrBannerPath = ObjSettings StrUploadAdminPathName = "../uploads/" StrDomain = "http://www...com/shop/" ObjSettings. Close Set ObjSettings = Nothing '## If Request. Cookies = "" Then Response. Cookies = Now Response. Cookies . Expires = Now + 365 Else Response. Cookies = Now Response. Cookies . Expires = Now + 365 End If '## Function StrRandomCode For i = 1 To (StrNumber/2) Randomize StrCode = StrCode + Chr(Int((10) Rnd + 48)) StrCode = StrCode + Chr(Int((26) Rnd + 65)) StrRandomCode = StrCode Next End Function '## Sub StrDbModified Dim StrModified Set ObjFSO = Server. CreateObject Set ObjPath = ObjFSO. GetFile(Server. MapPath StrModified = ObjPath. DateLastModified Response. Write "Son güncelleme : " & StrModified Set ObjFSO = Nothing Set ObjPath = Nothing End Sub '## If StrDomain <> "http://www...com/shop/" Then Response. Redirect "error. asp?StrMsg=Kullandýðýnýz yazýlýmýn lisansý bulunmamaktadýr&StrRefer=javascript:history. back(1)" Response. End End If %> ...

dostum sen persits upload kullanmıyorsun ki FSO kullanıyorsun? özür dileyerek düzeltmek istiyorum Persist Değil Persits. Saygılar -

persist dosyası olcak bende cd keyı ıle bırlıkte host sırketıne soyle yuklesınler.