ผมทำ paging ตามตัวอย่างแล้ว เวลากดคำว่า First มันขึ้น Error ครับ

<%
Option Explicit

dim con,strsql,rec
set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root;pwd=admin;database=med;option=16384;"
strsql = "Select * from News "
set rec=Server.CreateObject("ADODB.Recordset")
rec.open strsql,con
If rec.EOF then
	Response.write("Not Found")
End if

'Paging
dim pagelen,pageno,totalrecord,totalpage,intID
dim pagestart,pageend
pagelen=2
pageno=Request.QueryString("Page")
if pageno = "" then pageno = 1
totalrecord= UBound(rec.GetRows,2)+1
pagestart=((pagelen*pageno)-pagelen)
pageend=pagelen
if totalrecord<=pagelen then
	totalpage=1
elseif (totalrecord Mod pagelen =0) then
	totalpage=(totalrecord/pagelen)
else
	totalpage=(totalrecord/pagelen)+1
	totalpage=cint(totalpage)
end if

'colse object and open new record set
rec.close()
strsql= strsql&"ORDER BY newsid ASC LIMIT "&pagestart&","&pageend&""
rec.open strsql,con

%>

<table border="1">
	<tr>
        <th><div align="center">วันที่ประกาศ</div></th>
        <th><div align="center">หัวข้อ</div></th>
        <th><div align="center">ผู้ประกาศ</div></th>
    </tr>
<%
	while not rec.EOF
%>
	<tr>
    	<td><div align="center"><%=rec.fields("ddate").value%></div></td>
        <td><div align="center"><%=rec.fields("title").value%></div></td>
        <td><div align="center"><%=rec.fields("user").value%></div></td>
    </tr>
<%
rec.movenext
wend
%>
</table>

        Page <%=pageno%>  All Page <%=totalpage%>
        <% if cint(pageno) > 1 then %>
        <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?page=1>"><< First</a>
        <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?page=<%=pageno-1%>">< Back</a>
        <% End if %>
        <% if cint(pageno)<totalpage then %>
        <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?page=<%=pageno+1%>">Next ></a>
        <a href="<%Request.Servervariables("SCRIPT_NAME")%>?page=<%=totalpage%>">Last >></a>
        <% End if %>
        <br />
        <% For IntID = 1 to totalpage 
        if intID= cint(pageno) then
        %>
        <b><%=intID%></b>
        <% else %>
        <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?page=<%=intID%>"><%=intID%></a>
        <% End if
        next
        %>

<%
'end If
rec.close()
con.close()
set rec=nothing
set con=nothing

%>