: ใช้ IIS กับ ASP แล้วโปรแกรมแจ้งข้อผิดพลาดว่า รันน่าโชว์มันไม่ขึ้นอะไรเลย ไม่เออเร่อด้วย

<a href="figth1.asp?m=1">ŧ¢éÍÁÙÅ</a>
<a href="figth1.asp?m=2">áÊ´§</a>
<%
Set cc = Server.CreateObject("ADODB.Connection")
cc.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("figth1.mdb")

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


	 
	 
	  %>
		<from>
		 <form method="get" onsubmit="javascript:alert('à¾ÔèÁ¢éÍÁÙÅáÅéÇ');" >
			 ÃËÑÊ:: <input maxlength="250" type="text" name="id" /><br>
			 ª×èÍ:: <input maxlength="250" type="text" name="name" /><br>
			 Çѹà¡Ô´:: <input maxlength="250" type="text" name="day" /><br>
			 ·ÕèÍÂÙè:: <input maxlength="250" type="text" name="add" /><br>
			  <input type="hidden" name="m" value="1">
			  <input type="submit" name="insert"/><input type="reset" name="reset"/>
			 </form>
			 
	<%
				
				sub input()			 
		if request("add")<>"" then 
			x="insert into TT(id,name_id,brigthday,adress) values('"&request("id")&"','"&request("name")&"','"&request("day")&"','"&request("add")&"') "
			Set rs=cc.execute(x)
		end if
		
		end sub
sub show()
%>
<% 
	
	z="select * from TT"
		set rs=conn.execute(z)
		
	
%>
	 <table border="1">
	 			
				<tr><td>ÃËÑÊ:</td> <td>ª×èÍ:</td>  <td>ÃÒ¤Ò«×éÍ</td> <td>ÃÒ¤Ò¢ÒÂ:</td> <td>¨Ó¹Ç¹:</td>	</tr>
				
				<%do while not rs.eof%>
				
				<tr>
						<td width="100"higth="100" > 	 			<%=rs("id")%>         </td>
						<td width="100"higth="100" >				<%=rs("name_id")%> </td>
		  			<td width="170" higth="170">       <%=rs("brigthday")%> </td>
		   			<td width="180" higth="180">       <%=rs("adress")%>     </td>
	    		</table> </tr>
		<%
			 		 	rs.movenext
								 loop
								 %>

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