Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,027

HOME > ASP > ASP Forum > อยากถาม Error Code ครับเกิดจากอะไร มันขึ้น Error ยังงี้อะครับ Microsoft VBScript compilation error '800a0401' Expected end of statement

อยากถาม Error Code ครับเกิดจากอะไร มันขึ้น Error ยังงี้อะครับ Microsoft VBScript compilation error '800a0401' Expected end of statement

เริ่มหัวข้อใหม่

Guest

มันขึ้น Error ยังงี้อะครับ

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/drop/tetedrop2.asp, line 9

set rs = conn.Execute "SELECT DISTINCT(COUNTRY) FROM MAP"
----------------------^

เลยไม่รู้ว่าจะแก้ยังงัย

รบกวนด้วยนะครับ

ขอบพระคุณมากครับ

Tag : - - - -

Date : 12 พ.ย. 2551 20:00:47

By : 42320135

View : 4379

Reply : 3

No. 1

Zhuge liang

โพสกระทู้ ( 367 )
บทความ ( 0 )

น่าจะเป็นคิวรี่สตริง ผิด เอาคิวรี่สตริง มาแปะเด่วดูให้

Date : 13 พ.ย. 2551 09:04:02

By : Joe.dev

No. 2

Guest

<%
Dim cont,conn,rs,I
cont = Request("country")

'// sub for list country name
Private Sub ListCountry()
set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn 'Connection string for your database
set rs = conn.Execute "SELECT DISTINCT(COUNTRY) FROM MAP"
Do while not Rs.EOF
Response.wite "<option value ='" & Rs("COUNTRY") & "'>" & Rs("COUNTRY") & "</option>" & vbCrLf
Rs.Movenext
Loop
Rs.close
Conn.close
set Rs = nothing
set conn = nothing
End Sub
'// sub for list all province that relate of conutry
Private Sub ListCountry()
set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn 'Connection string for your database
//set rs = conn.Execute "SELECT PROVINCE FROM MAP WHERE COUNTRY = '" & cont & "'"
Do while not Rs.EOF
Response.wite "<option value ='" & Rs("PROVINCE") & "'>" & Rs("PROVINCE") & "</option>" & vbCrLf
Rs.Movenext
Loop
Rs.close
Conn.close
set Rs = nothing
set conn = nothing
End Sub

%>

<html><head><title>test</title></head>
<html>
<body>
<form name = 'frmTest' method = 'post' action = '#'>
<b>select your country</b><br>
<select name = 'country' onchange = 'document.forms[0].submit();'>
<option value = ''>--SELECT--</option>
<% Response.write ListCountry 'Call sub for list country name %>
</select><br>
<b>select your country</b><br>
<% If cont <> "" Then %>
<select name = 'province' onchange = 'document.forms[0].submit();'>
<option value = ''>--SELECT--</option>
<% Response.write ListProvince %>
</select>
<% Else %>
<select name = 'province' disabled>
<option value = ''>--SELECT--</option>
</select>
<% End If %>
</form>
</body>
</html>

ขอบคุณมากครับท่าน Joe.dev

Date : 13 พ.ย. 2551 11:52:13

By : 42320135

No. 3

Zhuge liang

โพสกระทู้ ( 367 )
บทความ ( 0 )

วันนี้ใจดีมาก จัดให้เลย

<%
Dim cont,conn,rs,I
cont = Request("country")

Private Sub ListCountry()

strConn = "SELECT PROVINCE FROM MAP WHERE COUNTRY = '" & cont & "'"
set conn = Server.CreateObject("ADODB.Connection")
set Rs = Server.CreateObject("ADODB.Recordset")
conn.Open strConn ,conn,1,3

Do while not Rs.EOF
Response.wite "<option value ='" & Rs("PROVINCE") & "'>" & Rs("PROVINCE") & "</option>" & vbCrLf
Rs.Movenext
Loop
Rs.close
Conn.close
set Rs = nothing
set conn = nothing
End Sub
%>

Date : 14 พ.ย. 2551 13:51:56

By : Joe.dev

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : อยากถาม Error Code ครับเกิดจากอะไร มันขึ้น Error ยังงี้อะครับ Microsoft VBScript compilation error '800a0401' Expected end of statement

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก