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

Registered : 107,150

HOME > ASP > ASP Forum > Microsoft VBScript compilation error '800a0401' Expected end of statement


 

Microsoft VBScript compilation error '800a0401' Expected end of statement

 



Topic : 079434

Guest




Code (ASP)
<!--#INCLUDE FILE="./security.asp"-->
<!--#INCLUDE FILE="./globvar.asp"-->
<!--#INCLUDE FILE="./response.asp"-->
<% 
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open myDNS
set rs = server.createobject("ADODB.recordset")

Sub InsertItem(ID, ParentID, ItemID, ItemName, ItemDesc)
	'Insert Data into Item Table
	Field_insert = "ID, ParentID, SortCode, ItemID, ItemName, ItemDesc, [Type]"

	Data_insert	 = ID & ", " & ParentID & ", 0, " & ItemID & ", " & ItemName & ", " & ItemDesc & _
								", 'folder'"
				
	SQLs = "INSERT INTO Item (" & Field_insert & ") VALUES (" & Data_insert & ")"

	Response.Write vbCrLf & "<!--" & SQLs & "-->" &vbCrLf
	conn.Execute(SQLs)
End Sub


'on error resume next

dim objUpload		'instance of Uplaod control
dim strMessage		'stores success/failure message sent back to main.asp

'create an instance of the Upload Control and trap for object creation failure
set objUpload = server.CreateObject("Dundas.Upload.2")
if  err.number <> 0 then
	response.Write "Have some error. Please try again."
	response.End
end if

'don't use unique file names in the beginning
objUpload.UseUniqueNames = false

objUpload.UseVirtualDir = true

'upload data till first uploaded file is encountered
objUpload.SaveToMemory

FolderName = "../cgi-bin/images/"

ItemID		= CharNull2DB(objUpload.Form("ItemID"))
ItemName	= CharNull2DB(objUpload.Form("ItemName"))
ItemDesc	= CharNull2DB(objUpload.Form("ItemDesc"))
act				= objUpload.Form("act")

if act = "addnew" then
	ParentID = objUpload.Form("ParentID")
	ID = FindNewID("Item", "ID")

	call InsertItem(ID, ParentID, ItemID, ItemName, ItemDesc)

elseif act = "update" then
	id			 = objUpload.Form("id")
	
	SQLs = "UPDATE Item SET" & _
					" ItemID = " & ItemID & _
					" , ItemName = " & ItemName & _
					" , ItemDesc = " & ItemDesc & _
					" WHERE ID = " & ID
								
	Response.Write vbCrLf & "<!--" & SQLs & "-->" &vbCrLf
	conn.Execute(SQLs)
else
	response.End
end if

if act = "addnew" or act = "update" then

	NewFileName1 = empty
	NewFileName2 = empty

	Set File1 = objUpload.Files("itempic")
	Set File2 = objUpload.Files("itempic2")

	if not(File1.OriginalPath = empty) then
		NewFileName1 = right("000000"&id,6) & "_1" & right(CStr(File1.OriginalPath),4)
		File1.SaveAs FolderName & NewFileName1

		SQLs = "UPDATE Item SET" & _
						" ItemPic = '" & NewFileName1 & "'" & _
						" WHERE ID = " & ID
		conn.Execute(SQLs)
	end if

	if not(File2.OriginalPath = empty) then
		NewFileName2 = right("000000"&id,6) & "_2" & right(CStr(File2.OriginalPath),4)
		File2.SaveAs FolderName & NewFileName2

		SQLs = "UPDATE Item SET" & _
						" ItemPic2 = '" & NewFileName2 & "'" & _
						" WHERE ID = " & ID & ";"
		conn.Execute(SQLs)
	end if

	'release resources
	set File1 = nothing
	set File2 = nothing

end if

set objUpload = nothing
call CloseConnection()

if not(act = empty) then response.Redirect "./posted.htm"

%>





Tag : ASP







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-06-06 15:31:43 By : SystemAnalysis View : 1465 Reply : 1
 

 

No. 1



โพสกระทู้ ( 73,823 )
บทความ ( 833 )

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

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

ปิดพวก Statement เงื่อนไขไม่ถูกต้อง หรือเปล่าครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-06-06 21:41:20 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : Microsoft VBScript compilation error '800a0401' Expected end of statement
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, vps | เช่า vps , รับทำเว็บไซต์ รับเขียนโปรแกรม

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