ต้องการผู้รู้ด่วน code Error Type: Microsoft VBScript compilation (0x800A03EA) Syntax error /project/select.asp, line 54, column 6 extra *
code คือ
<%
' Criteria = " WHERE [LIKE] <> '0' "
'if Request("Submit") = "Search" then
' if request.form("[LIKE]") <> "" then
' Criteria = Criteria & " AND [LIKE] = '" & request.form("[LIKE]") & "'"
' end if
' if request.form("date") <> "" then
' Criteria = Criteria & " AND date = '" & request.form("date") & "'"
'end if
' if request.form("id_customer") <> "" then
' Criteria = Criteria & " AND id_customer = " & request.form("id_customer")
'end if
'
'end if
worklike = request.Form("[LIKE]")
%>
<HTML>
<HEAD>
<TITLE> Database Management System</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=windows-874">
</HEAD>
<BODY>
<form name="send" action="select.asp" method="post" >
<table width="52%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><div align="center">ค้นหา </div></td>
</tr>
<tr>
<td width="34%"><span lang="th">ความถนัด</span>:</td>
<td width="66%"><label>
<input name="[LIKE]" type="text" id="[LIKE]">
</label></td>
</tr>
<tr>
<td> </td>
<td><label>
<input type="submit" name="Submit" value="Search">
<input type="submit" name="Submit2" value="Reset">
</label></td>
</tr>
</table>
</form>
<BR></TD>
<br>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("test_project_update.mdb")
'Sql="Select EMPLOYEE. E_MAIL,EMPLOYEE.TEL,
extra *
from EMPLOYEE, extra" & Criteria
Sql="Select EMPLOYEE. E_MAIL,EMPLOYEE.TEL,
extra.*
from EMPLOYEE, extra
where [like] like '%" & worklike & "%'"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if RS.recordcount <> 0 then
RS.MoveFirst
end if
%>
<TABLE border="1">
<TR>
<TD> <span lang="th">รหัสความถนัด</span> </TD>
<TD> <span lang="th">รหัสพนักงาน</span> </TD>
<TD> <span lang="th">ชื่อ</span> </TD>
<TD> <span lang="th">นามสกุล</span> </TD>
<TD> <span lang="th"> E_MAIL</span> </TD>
<TD> <span lang="th">TEL</span> </TD>
<TD> <span lang="th">ความถนัด</span> </TD>
</TR>
<%
if RS.recordcount <> 0 then
Do While Not RS.EOF
%>
<TR>
<TD><%= RS("ID_extra")%></TD>
<TD><%= RS("EMP_ID")%></TD>
<TD><%= RS("NAME_THAI")%></TD>
<TD><%= RS("SURENAME_THAI")%></TD>
<TD><%= RS("E_MAIL")%></TD>
<TD><%= RS("TEL")%></TD>
<TD><%= RS("LIKE")%></TD>
</TR>
<%
RS.MoveNext
Loop
end if
%>
</TABLE>
<html>
<body>
</body>
</html>
<p> </p>
<%
rs.close
conn.close
%>
</BODY>
</HTML>
---------------------------------------------------------------------------
Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/project/select.asp, line 54, column 6
extra *
Tag : - - - -
Date :
16 พ.ย. 2550 21:44:07
By :
p
View :
1584
Reply :
4
ถามอย่างนี้ใครจะตอบให้น้อ...
Date :
17 พ.ย. 2550 02:17:56
By :
aor
syntax error แปลว่าประโยคไม่สมบูณ์ เขียนคำสั่งผิด เขียนไม่ครบ เขียนเกิน เขียนคำสั่งที่มันอ่านไม่ออก ที่มันไม่รู้เรื่อง
บรรทัด ที่ 54 อักขระที่ 6 มันไม่รู้เรื่อง
เท่าที่ตามไปดูคร่าวๆ คือ extra * มันไม่รู้เรื่อง ถ้ามีจุดไปด้วย คงเข้าทีกว่า ลอง extra.*
Date :
17 พ.ย. 2550 08:40:48
By :
GTM
บรรทัดที่ว่าไม่น่าจะผิดนะ เพราะเป็นบรรทัด Remark ไม่มีผลกับโปรแกรม
Date :
18 พ.ย. 2550 14:35:48
By :
sys
ลองแก้ดูนะครับ
บรรทัดที่บอกว่า where ต้องบอกด้วยครับว่า like อยู่ใน table ไหน เช่น
where extra.like
แต่ถ้าจาให้ปลอดดภัย ควรเปลี่ยนชื่อ field จาก like เป็นอย่างอื่นเช่น like_job
Date :
18 พ.ย. 2550 14:41:33
By :
sys
Load balance : Server 05