Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > Expected Error Type: Microsoft VBScript compilation (0x800A03FA) Expected 'Wend

Expected Error Type: Microsoft VBScript compilation (0x800A03FA) Expected 'Wend

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

Guest

<form id="form1" name="form1" method="post" action="edit2.asp">
<div align="left">ค้นหาตามโครงการ
<input name="keyword" type="text" id="keyword" value="<%=Request.Form("keyword")%>" />
<input type="submit" name="Submit" value="ค้นหา" />
</form>

<%
if Request.Form("keyword")="" then
Response.write("<br>กรุณากรอก Keyword เืพื่อทำการค้นหาตามโครงการ")
else
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "Problem","",""
sql ="Select * From Problem where Project like '%"&Request.Form("keyword")&"%'"
Set Rs = Conn.Execute(sql)

If Rs.EOF Then
%> <span class="style50">ไม่มีข้อมูลในตาราง</span> !
<% Else %>
<table width="575" border="0">
<tr>
<td colspan="4" class="style50">คุณสามารถเรียกดูและแก้ไขข้อมูลได้</td>
</tr>
<tr>
<td width="85" class="style52">วันที่</td>
<td width="221" class="style52">โครงการ</td>
<td width="141" class="style52">ผู้แก้ไข</td>
<td width="100" class="style52">เรียกดูข้อมูล</td>
</tr><% While Not EOF %>
<tr>
<td class="style53">
<% =Rs("Date") %>
 </td>
<td class="style53"><% =Rs("Project") %> </td>
<td class="style53"><% =Rs("Writer") %> </td>
<td><a href="edit2.asp?id=<%=Rs("ID")%>" class="style53">ดูข้อมูล</a></td>
</tr>

<%
Rs.MoveNext
Rs.Close
wend
Conn.Close
End If %>

</table>
<% end if %></td>
</tr>

*****************************************
Error Type:
Microsoft VBScript compilation (0x800A03FA)
Expected 'Wend'
/ProblemManagement/edit1.asp, line 188

Tag : - - - -

Date : 26 เม.ย. 2550 11:30:26

By : kik_gabyte

View : 2152

Reply : 1

No. 1

Guest

Quote:
Microsoft VBScript compilation (0x800A03FA)
Expected 'Wend'

ไช้คู่กับ Loop

Date : 2011-08-13 10:40:19

By : thaicreate

ค้นหาข้อมูล

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

Re : Expected Error Type: Microsoft VBScript compilation (0x800A03FA) Expected 'Wend

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

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

Load balance : Server 02

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); Expected Error Type: Microsoft VBScript compilation (0x800A03FA) Expected 'Wend

No. 1

ค้นหาข้อมูล

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

Notice

Expected Error Type: Microsoft VBScript compilation (0x800A03FA) Expected 'Wend