Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/Admin456/html_makeflash.asp, line 76
The above is a prompt error, and the following is my program code
Set rs = server. Createobject ("ADODB. recordset ")
Rs. Open ("Select Show from MB"), Conn, 1, 1
Pencat = RS ("show ")
Rs. Close
Pencat = Replace (pencat, "webname", webname)
Set FSO = server. Createobject ("scripting. FileSystemObject ")
Set fout = FSO. createtextfile (server. mappath ("../flash/" & request ("ID") & ". htm") '76th rows
Fout. Write pencat (this error is reported)
Fout. Close
Response. Write "generated successfully" & flashname &"
========================================================== ==================================== Solution
Solution --------------------------
1. Add the following code to line 1 of all pages containing ASP code (that is, all *. asp files): <% @ codePage = "1st" %>
If row 1st is <% @ Language = "VBScript" %>, change row 1st to: <% @ codePage = "936" Language = "VBScript" %>
936 is a simplified Chinese code page, which can ensure that the content dynamically generated by ASP remains unchanged.
2. Check all files again to make sure that there is such a sentence between <Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
Gb2312 is the default encoding for simplified Chinese. This ensures that the static content on your page remains unchanged and garbled.
3. Set fout = FSO. createtextfile (server. mappath ("../flash/" & request ("ID") & ". htm"), true, true)
2nd if the parameter is set to true, it indicates that it is created in Unicode mode.
If not, change this sentence to "fout. writeline pencat ".