ASP : checkbox กับการทำ paging เมื่อมีการเปลี่ยนหน้า ทำอย่างไรให้ข้อมูลที่เลือกไว้ยังคงอยู่ (checked)

<table style="WIDTH: 100%;" border="0" cellpadding="1" cellspacing="1" align="left" border="0" ID="Table2">
<%
	i=1
	do while not rschk.eof and i <= pre_page	'pre_page = จำนวนข้อมูลต่อ 1 เพจ
														
	sqlmail = " Select * From Temp_CheckMail Where EmailAdd = '"&rschk("Email")&"' "	'เช็คข้อมูลอีเมลล์ที่เลือกไว้
	set rsmail = conn.execute(sqlmail)
								
	If rsmail.eof Then							
%>
							
<tr>
	<td>
		'ถ้ายังไม่เคยถูกเลือก  เมื่อคลิก checkbox  ให้ไปทำงานที่ SaveData() เพื่อบันทึกอีเมลล์ที่เลือก
		<input type="checkbox" name="chkname<%=i%>" value="<%=rschk("Email")%>" OnClick="SaveData(this.value);"> <%=rschk("Email")%>
	</td>
</tr>

<%
	Else
%>
							
<tr>
	<td>
		'ถ้าเลือกไว้แล้ว  เมื่อคลิก checkbox  ให้ไปทำงานที่ DeleteData() เพื่อลบอีเมลล์ที่เคยเลือกไว้
		<input type="checkbox" name="chkname<%=i%>" value="<%=rschk("Email")%>" checked OnClick="DeleteData(this.value);"> <%=rschk("Email")%>
	</td>
</tr>
							
<%
	End If
%>
							
<%				
	i = i + 1
	rschk.movenext
	loop							
%>	
</table>

<td>
<%
	For p = 1 To totalpage
%>
	<a href="<%=Request.ServerVariables("URL")%>?page=<%=p%>"><%=p%></a>				
<%
	Next							
%>						
</td>
<tr>
	'เอาไว้ส่งข้อมูล
	<td colspan="2"><input type="text" name="tempmail" style="visibility:hidden"><input type="text" name="temppage" style="visibility:hidden" value="<%=page%>"></td>
</tr>

<script language="vbscript">
	Sub SaveData(email)
		frm.tempmail.value = email
		frm.action = "SaveData.asp"
		frm.submit							
	End Sub
	
	Sub DeleteData(email)
		frm.tempmail.value = email
		frm.action = "DeleteData.asp"
		frm.submit							
	End Sub
</script>

'ไฟล์  SaveData.asp  และ  DeleteData.asp  ใช้คำสั่งบันทึกและลบข้อมูลตามปกติ
และใช้โค้ด   <meta http-equiv="refresh" content="0;URL=Paging.asp?page=<%=epage%>">  เพื่อกลับไปยังหน้าปัจจุบันที่ทำงานอยู่