 |
| |
error แบบนี้จะแก้ยังไงครับ 73426 Microsoft VBScript runtime error '800a01a8' Object required: '' |
| |
 |
|
|
 |
 |
|
73426
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/article/save_cat_articles.asp, line 80
ตรงที่ error
<%
Set RsLast=Server.CreateObject("ADODB.Recordset")
SqlLast="Select * from ArticleJournal"
RsLast.Open SqlLast,Conn,1,3
RsLast.Movelast
response.Write(RsLast("article_id"))
%>
<% if RsChk.EOF then '<<< Error ตรงนี้ครับ
Set RsChk=Server.CreateObject("ADODB.Recordset")
SqlChk="Select * from tempartalter where temp_sessionid="& session.SessionID &""
RsChk.Open SqlChk,Conn,1,3
Do While Not RsChk.EOF
altername=RsChk("temp_altname")
articleid=RsLast("article_id")
RsChk("temp_ajid")=articleid
Set Rs1=Server.CreateObject("ADODB.Recordset")
Sql1="Select * from alter_article"
Rs1.Open Sql1,Conn,1,3
rs1.addnew
rs1("article_id")=articleid
rs1("author_name")=altername
rs1.update
rs1.close
RsChk.movenext
loop
RsChk.Close
else
response.Write("ไม่มีข้อมูลอยู่ในฐานข้อมูล")
end if
%>
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2009-11-26 13:31:16 |
By :
comsc006 |
View :
2548 |
Reply :
3 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
เอาออกได้เลยครับตรงนั้น คงไม่จำเป็น เพราะมี
Do While Not RsChk.EOF อยู่แล้ว
|
| |
|
|
| |
| Date :
2009-11-26 13:59:34 |
By :
plakrim |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ก็ RsChk ยังไม่ได้เปิด เลยจะเอามาใช้ได้อย่างรัยหละครับ
เอามาไว้ไต้นี้
RsChk.Open SqlChk,Conn,1,3
นะครับ
|
| |
|
|
| |
| Date :
2009-11-26 14:29:03 |
By :
Sek-Artdrinker |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แต๊งกิ้ววววววววว
ได้แล้วครับ อิอิอิอิอิอิอิ
|
| |
|
|
| |
| Date :
2009-11-29 23:47:31 |
By :
comsc006 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Load balance : Server 03
