من یه فایل در asp ساختم که باید به یه فایل متنی چیزی هایی اضافه که که این پیام موقع اجرا میده :
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument /link/check.asp, line 187
خط 187 هم این
کد بالا و پایین این خط
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument /link/check.asp, line 187
خط 187 هم این
کد:
Set OutStream = FileObject.OpenTextFile(MyFile, forappending,false)
کد بالا و پایین این خط
کد:
MyFile = Server.MapPath( "banners.TXT" )
Set FileObject = CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile(MyFile, 1, true)
total =Instream.ReadAll
Instream.Close
set instream = Nothing
Set OutStream = FileObject.OpenTextFile(MyFile, forappending,false)
text=total & "<p><a href='" & Request.form("link") & "' target='_blank'>" & Request.form("name") & "</a></p>"
Outstream.WriteLine text
Outstream.Close
set OutStream= Nothing
set FileObject = Nothing