<!--#include File=../inc/imis.inc-->
<% set rs1=server.createobject("ADODB.Recordset")
   set rs2=server.createobject("ADODB.Recordset")
   set rs3=server.createobject("ADODB.Recordset")
   set rs4=server.createobject("ADODB.Recordset")
 StrSql="SELECT top 100 * from  imail_message"
	set rs1=server.createobject("ADODB.Recordset")
	rs1.open StrSql,source,3,3
while  not rs1.eof
	rs2.Open "imail_message3",source,3,3
	rs2.AddNew
	rs2("subject")=rs1("subject")
	rs2("tuserid")=rs1("tuserid")
	rs2("body")=rs1("body")
	rs2("date")=rs1("date")
	rs2("annex")=rs1("annex")
	rs2("fuserid")=rs1("fuserid")
	rs2("filename")=rs1("filename")
	rs2("isread")=rs1("isread")
	rs2("issend")=rs1("issend")
	rs2.update
	rs2.close
   rs1.movenext
wend
	rs1.close
	
	
%>