Buyrun script burda acele yardım ederseniz sevinirim teşekürler... http://www.hemenpaylas.com/download/1197477/Digitalvizyon_1 1_. Net. rar.html

digitalvizyon bildiğim kadarı ile ware bir script vede bir cok yerınde problem vardı. bakmayı dusunuordumda

Arkadaşlar bu bir sinema portalının bir parçası bunu bir hatası var bu hata film eklerken bir hata verriyo bu hata Hata Tipi: ADODB. Stream (0x800A0BBC) Dosyaya yazma başarısız oldu. /10/inc/_inc_clsField. asp, line 179 Tarayıcı Tipi: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) Sayfa: POST 17318 bytes to /10/yonetim/adm_film_add2. asp POST Data: hata '80020009' Özel durum oluþtu. /iisHelp/common/500-100. asp, line 223 DAHA FAZLA BİLGİ İÇİN MSN:cankoz@hotmail.com bunu düzeltebilecek varmı işte kodlar <% Response. CharSet = "windows-1254" ' ' Author: Lewis Moten ' Email: Lewis@Moten.com ' URL: http://www.lewismoten.com ' Date: March 19, 2002 ' ' Field class represents interface to data passed within one field ' ' Two available methods of getting a field: ' Set objField = objUpload. Fields("File1") ' Set objField = objUpload("File1") ' ' ' objField. Name ' Name of the field as defined on the form ' ' objFiled. Filepath ' Path that file was sent from ' ' ie: C:\Documents and Settings\lmoten\Desktop\Photo. gif ' ' objField. FileDir ' Directory that file was sent from ' ' ie: C:\Documents and Settings\lmoten\Desktop ' ' objField. FileExt ' Uppercase Extension of the file ' ' ie: GIF ' ' objField. FileName ' Name of the file ' ' use: Response. AddHeader "Content-Disposition", "filename=""" & objField. FileName & """" ' ' ie: Photo. gif ' ' objField. ContentType ' Type of binary data ' ' use: Response. ContentType = objField. ContentType ' ' ie: image/gif ' ' objField. Value ' Unicode value passed from form. This value is empty if the field is binary data. ' ' use: Response. Write "The value of this field is: " & objField. Value ' ' objField. BinaryData ' Contents of files binary data. ' ' use: Response. BinaryWrite objField. BinaryData ' ' objField. BLOB ' Same thing as BinaryData but with a shorter name. Added to help prevent ' confusion with database access. ' ' use: Call lobjRs. Fields . AppendChunk ' ' objField. Length ' byte size of Value or BinaryData - depending on type of field ' ' use: Response. Write "The size of this file is: " & objField. Length ' ' objField. BinaryAsText ' Converts binary data into unicode format. Useful when you expect the user ' to upload a text file and you have the need to interact with it. ' ' use: Response. Write objField. BinaryAsText ' ' objField. SaveAs ' Saves binary data to a specified path. This will overwrite any existing files. ' ' use: objField. SaveAs(Server. MapPath & "\" & objField. FileName) ' ' Class clsField Public Name ' Name of the field defined in form Private mstrPath ' Full path to file on visitors computer ' C:\Documents and Settings\lmoten\Desktop\Photo. gif Public FileDir ' Directory that file existed in on visitors computer ' C:\Documents and Settings\lmoten\Desktop Public FileExt ' Extension of the file ' GIF Public FileName ' Name of the file ' Photo. gif Public ContentType ' Content / Mime type of file ' image/gif Public Value ' Unicode value of field Public BinaryData ' Binary data passed with field Public Length ' byte size of value or binary data Private mstrText ' Text buffer ' If text format of binary data is requested more then ' once, this value will be read to prevent extra processing ' Public Property Get BLOB BLOB = BinaryData End Property ' Public Function BinaryAsText ' Binary As Text returns the unicode equivilant of the binary data. ' this is useful if you expect a visitor to upload a text file that ' you will need to work with. ' NOTICE: ' NULL values will prematurely terminate your Unicode string. ' NULLs are usually found within binary files more often then plain-text files. ' a simple way around this may consist of replacing null values with another character ' such as a space " " Dim lbinBytes Dim lobjRs ' Don't convert binary data that does not exist If Length = 0 Then Exit Function If LenB = 0 Then Exit Function ' If we previously converted binary to text, return the buffered content If Not Len = 0 Then BinaryAsText = mstrText Exit Function End If ' Convert Integer Subtype Array to Byte Subtype Array lbinBytes = ASCII2Bytes ' Convert Byte Subtype Array to Unicode String mstrText = Bytes2Unicode ' Return Unicode Text BinaryAsText = mstrText End Function ' Public Sub SaveAs Dim lobjStream Dim lobjRs Dim lbinBytes ' Don't save files that do not posess binary data If Length = 0 Then Exit Sub If LenB = 0 Then Exit Sub ' Create magical objects from never never land Set lobjStream = Server. CreateObject ' Let stream know we are working with binary data lobjStream. Type = adTypeBinary ' Open stream Call lobjStream. Open ' Convert Integer Subtype Array to Byte Subtype Array lbinBytes = ASCII2Bytes ' Write binary data to stream Call lobjStream. Write ' Save the binary data to file system ' Overwrites file if previously exists! Call lobjStream. SaveToFile ' Close the stream object Call lobjStream. Close ' Release objects Set lobjStream = Nothing End Sub ' Public Property Let FilePath mstrPath = pstrPath ' Parse File Ext If Not InStrRev = 0 Then FileExt = Mid(pstrPath, InStrRev + 1) FileExt = UCase End If ' Parse File Name If Not InStrRev = 0 Then FileName = Mid(pstrPath, InStrRev + 1) End If ' Parse File Dir If Not InStrRev = 0 Then FileDir = Mid(pstrPath, 1, InStrRev - 1) End If End Property ' Public Property Get FilePath FilePath = mstrPath End Property ' Private Function ASCII2Bytes Dim lobjRs Dim llngLength Dim lbinBuffer ' get number of bytes llngLength = LenB Set lobjRs = Server. CreateObject ' create field in an empty recordset to hold binary data Call lobjRs. Fields. Append ' Open recordset Call lobjRs. Open ' Add a new record to recordset Call lobjRs. AddNew ' Populate field with binary data Call lobjRs. Fields . AppendChunk(pbinBinaryData & ChrB(0)) ' Update / Convert Binary Data ' Although the data we have is binary - it has still been ' formatted as 4 bytes to represent each byte. When we ' update the recordset, the Integer Subtype Array that we ' passed into the Recordset will be converted into a ' Byte Subtype Array Call lobjRs. Update ' Request binary data and save to stream lbinBuffer = lobjRs. Fields . GetChunk ' Close recordset Call lobjRs. Close ' Release recordset from memory Set lobjRs = Nothing ' Return Bytes ASCII2Bytes = lbinBuffer End Function ' Private Function Bytes2Unicode Dim lobjRs Dim llngLength Dim lstrBuffer llngLength = LenB Set lobjRs = Server. CreateObject ' Create field in an empty recordset to hold binary data Call lobjRs. Fields. Append ' Open Recordset Call lobjRs. Open ' Add a new record to recordset Call lobjRs. AddNew ' Populate field with binary data Call lobjRs. Fields . AppendChunk ' Update / Convert. ' Ensure bytes are proper subtype Call lobjRs. Update ' Request unicode value of binary data lstrBuffer = lobjRs. Fields . Value ' Close recordset Call lobjRs. Close ' Release recordset from memory Set lobjRs = Nothing ' Return Unicode Bytes2Unicode = lstrBuffer End Function ' End Class ' %>

fso hatası

scriptı upload et yardımcı olalıM @51m©@