ikinci bir hatada bu yuklediğim resmi bir id ye atarken oldu bu neden olabilir? Kod: Microsoft OLE DB Provider for ODBC Drivers error '80040e21' Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. /admin/resim_kaydet. asp, line 11

hım script sanırım warez db ye kayıt edılmıyormus sanırsam tum dosyalara sen bır ızın ver.

"Microsoft VBScript runtime error '800a0046' Permission denied /admin/upload/Loader. asp, line 68 " hata bu Kod: Class Loader Private dict Private Sub Class_Initialize Set dict = Server. CreateObject End Sub Private Sub Class_Terminate If IsObject Then intDict. RemoveAll Set intDict = Nothing End If If IsObject Then dict. RemoveAll Set dict = Nothing End If End Sub Public Property Get Count Count = dict. Count End Property Public Sub Initialize If Request. TotalBytes > 0 Then Dim binData binData = Request. BinaryRead getData binData End If End Sub Public Function getFileData If dict. Exists Then getFileData = dict . Item Else getFileData = "" End If End Function Public Function getValue Dim gv If dict. Exists Then gv = CStr(dict . Item gv = Left(gv, Len -2) getValue = gv Else getValue = "" End If End Function Public Function saveToFile If dict. Exists Then Dim temp temp = dict . Item Dim fso Set fso = Server. CreateObject Dim file Set file = fso. CreateTextFile For tPoint = 1 to LenB file. Write Chr(AscB(MidB(temp, tPoint,1))) Next file. Close saveToFile = True Else saveToFile = False End If End Function Public Function getFileName If dict. Exists Then Dim temp, tempPos temp = dict . Item tempPos = 1 + InStrRev getFileName = Mid Else getFileName = "" End If End Function Public Function getFilePath If dict. Exists Then Dim temp, tempPos temp = dict . Item tempPos = InStrRev getFilePath = Mid(temp, 1, tempPos) Else getFilePath = "" End If End Function Public Function getFilePathComplete If dict. Exists Then getFilePathComplete = dict . Item Else getFilePathComplete = "" End If End Function Public Function getFileSize If dict. Exists Then getFileSize = LenB(dict . Item Else getFileSize = 0 End If End Function Public Function getFileSizeTranslated If dict. Exists Then temp = LenB(dict . Item If temp <= 1024 Then getFileSizeTranslated = temp & " bytes" Else temp = FormatNumber((temp / 1024), 2) getFileSizeTranslated = temp & " kilobytes" End If Else getFileSizeTranslated = "" End If End Function Public Function getContentType If dict. Exists Then getContentType = dict . Item Else getContentType = "" End If End Function Private Sub getData Dim separator separator = MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1) Dim lenSeparator lenSeparator = LenB Dim currentPos currentPos = 1 Dim inStrByte inStrByte = 1 Dim value, mValue Dim tempValue tempValue = "" While inStrByte > 0 inStrByte = InStrB mValue = inStrByte - currentPos If mValue > 1 Then value = MidB Dim begPos, endPos, midValue, nValue Dim intDict Set intDict = Server. CreateObject begPos = 1 + InStrB(1, value, ChrB(34)) endPos = InStrB(begPos + 1, value, ChrB(34)) nValue = endPos Dim nameN nameN = MidB Dim nameValue, isValid isValid = True If InStrB(1, value, stringToByte > 1 Then begPos = 1 + InStrB(endPos + 1, value, ChrB(34)) endPos = InStrB(begPos + 1, value, ChrB(34)) If endPos = 0 Then endPos = begPos + 1 isValid = False End If midValue = MidB intDict. Add "FileName", trim(byteToString begPos = 14 + InStrB(endPos + 1, value, stringToByte endPos = InStrB(begPos, value, ChrB(13)) midValue = MidB intDict. Add "ContentType", trim(byteToString begPos = endPos + 4 endPos = LenB nameValue = MidB(value, begPos, - 1)) Else nameValue = trim(byteToString(MidB(value, nValue + 5))) End If If isValid = True Then intDict. Add "Value", nameValue intDict. Add "Name", nameN dict. Add byteToString , intDict End If End If currentPos = lenSeparator + inStrByte Wend End Sub End Class Private Function stringToByte Dim tempChar For i = 1 to Len tempChar = Mid(toConv, i, 1) stringToByte = stringToByte & chrB(AscB Next End Function Private Function byteToString For i = 1 to LenB byteToString = byteToString & Chr(AscB(MidB(toConv, i,1))) Next End Function 68. satır şu "Set file = fso. CreateTextFile " hata nerde olabilir

ZUKEN kardeşim maşallahın var aspci olmuşun

sunucuna persist yuklet yada dosyalara özelliklede resim upload yapan klosorlere tum ızınlerı ver.

zuken olmadı ya ne yapmam lazım heryere izin verdim ama yine olmadı. Resmi gonderiyorsun resmi emlak id sine atayamıyorsun. Tek sorun bu Yardım?