Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > ASP > ASP Forum > Error แบบนี้แก้ยังไงอ่ะค่ะ รบกวนด้วยน่ะค่ะ Microsoft VBScript runtime error '800a0009'



 

Error แบบนี้แก้ยังไงอ่ะค่ะ รบกวนด้วยน่ะค่ะ Microsoft VBScript runtime error '800a0009'

 



Topic : 088620

Guest




Code
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 1]'

/workplus/Report_ASP/Invoice-Receipt-Polipharm.asp, line 159




Tag : ASP, Ms SQL Server 2008, VBScript







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-12-27 17:12:11 By : PP View : 2827 Reply : 2
 

 

No. 1

Guest


Code (ASP)
Set Conn3 = Server.CreateObject("ADODB.Connection")
	Conn3.Open MM_Plastic_DB_STRING
	Set rs3 = Server.CreateObject ("ADODB.Recordset")
	SQL3 ="SELECT * FROM  "&Table1&" "
	response.Write(SQL3)
	rs3.Open SQL3,Conn3,1,3
	While Not rs3.eof 
		Print_No=rs3("Alert")
		Sale_Over_Credit=rs3("Users")
		Contact_ID=rs3("Customer_ID")
		'if isnull(Print_No) or Print_No="" then Print_No=0
		rs3("Alert")=Print_No+1
		Bill_Amount=rs3("Bill_Amount")
		T1=RS3("T1")
		if T1="" or isnull(T1) then T1=";;;;;;;"
		chk=split(T1,";")
		chk_no=ubound(chk)
		for I=0 to 6
			if I=0 then chk1=chk(0)
			if I=1 then chk2=chk(1)
			if I=2 then chk3=chk(2)
			if I=3 then chk4=chk(3) ' expire_date
			if I=4 then chk5=chk(4) ' gen_name
			if I=5 then chk6=chk(5) ' GMP
			if I=6 then chk7=chk(6) ' mfg_date 
			if I=7 then chk8=chk(7)
		Next

		T2=RS3("T2")
		if T2="" or isnull(T2) then T2=";;;;;"
		X1=split(T2,";")
		X1_no=ubound(X1)
		for I=0 to X1_no-1
			if I=0 then X11=X1(0) 'TDate
			if I=1 then X12=X1(1)
			if I=2 then X13=X1(2)
		Next
rs3.close







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-12-27 17:12:45 By : PP
 


 

No. 2



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ประมาณว่า Array มี Index แค่ 1 แต่ไม่เรียกเกินเป็น 2 ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-12-27 17:22:20 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : Error แบบนี้แก้ยังไงอ่ะค่ะ รบกวนด้วยน่ะค่ะ Microsoft VBScript runtime error '800a0009'
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่