ใช้ IIS กับ ASP แล้วโปรแกรมแจ้งข้อผิดพลาดว่า Microsoft VBScript compilation error '800a03f6' Expected 'End' แก้ยังไงค่ะ ขอบคุณล้วงน่าค่ะ

<center>
<font color="#008080" size="13">¡ÒèѴ¡ÒÃÊÔ¹¤éÒ </font> </a>
<br><hr>
<a href="?m=1">à¾ÔèÁ¢éÍÁÙÅÊÔ¹¤éÒ</a><br>
<a href="?m=2">áÊ´§ÃÒ¡ÒÃÊÔ¹¤éÒ</a><br>

</center>

<%
Set Dt = Server.CreateObject("ADODB.Connection")
Dt.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Dtb.mdb")


if request("m")=1 then
	 input()
	 end if
if request("m")=2 then
	 show()
	 end if


sub input()
   	if request("price")<>"" then
									
			  zz="insert into PRC (ID,name_price,name_price,price_buy,price_sell,price_number) values ('"&request("id")&"','"&request("name_price,")&"','"&request("price_buy")&"','"&request("price_sell")&"',"&request("price_number")&"') "
	 			set s=Dt.execute(zz)
				
		end if
			
				
 %>
<hr>
		<form onSubmit="return checkrequired(this)" >
		ÃËÑÊ::<input type="text" name="id" maxlength="11"><br>
		ª×èÍ::<input type="text" name="name_price"><br>
		ÃÒ¤Ò«×éÍ::<input type="text" name="price_buy"><br>		
		ÃÒ¤Ò¢ÒÂ::<input type="text" name="price_sell"><br>
		¨Ó¹Ç¹·Õè«×éÍÁÒ ::<input type="text" name="price_number"><br>
		
		<input type="hidden" name="m" value="2">
		<input type=submit value="µ¡Å§"> <input type=reset value="Reset">

	</from>	
		
	<%end sub%>
		<%
		sub show()
		
		z="select * from PRC"
		set ff=Dt.execute(z)
		
		do while not ff.eof
%>
	 <table>
	 <tr>
	 		 <td width="100" align="right"><%=s("ID")%></td>
			 <td width="150" align="left"><%=s("name_price")%></td>
		<td width="170" align="right"><%=s("price_buy")%></td>
			 <td width="180" align="left"><%=s("price_sell")%></td>
		 <td width="180" align="left"><%=s("price_number")%></td>
		<tr><td colspan="2"><center><input type="submit" name="edit" value="á¡éä¢"></center></td></tr>
			 <input type="hidden" name="m" value="1">
		
	
		
		<%
		s.movenext
		loop
		%>
		</tr>
		</table>

		<%
		ff.close '¶éÒ select ¨Ðµéͧ»Ô´àÊÁÍ 
end sub
		
%>