File Manager

<body onload="document.form2.submit()">
<%
Response.write "<form name=form2 method=post action=sendmailswu.php>"
a=request.form("emailswu").count
filename=request.form("filename")

id_sent=request.form("id_sent")
titleletter=request.form("titleletter")
id_letter=request.form("id_letter")
dued=Request.form("dued")
sdue=request.form("sdue")
Response.write sdue &"-"&dued

i=1
if a>0 then
do while i<=a
		b=request.form("emailswu")(i)
		c=request.form("id_staff")(i)
		emailswu_idstaff=b&"+"+c
		e_ids=e_ids&","+emailswu_idstaff
		
		emailswu=emailswu&","+b
		id_staff=id_staff&","+c
		
i=i+1
loop
end If
		dsent=Now
		set orssr=server.createobject("adodb.recordset")
		sqlsr="update letterin set statusmail='1', dsent='"&dsent&"' where id_letter='"&id_letter&"'"
		orssr.open sqlsr,conn,1,3

'response.write emailswu
'Response.write e_ids
filename = "http://bsris.swu.ac.th/countletin.asp?id="+id_letter

%>
	<input type="hidden" name="id_letter" value=<%=id_letter%>>
	<input type="hidden" name="emailswu" value=<%=emailswu%>>
	<input type="hidden" name="id_staff" value=<%=id_staff%>>
	<input type="hidden" name="filename" value=<%=filename%>>
	<input type="hidden" name="e_ids" value=<%=e_ids%>>
	<input type="hidden" name="dued" value=<%=dued%>>
	<input type="hidden" name="sdue" value=<%=sdue%>>
	<textarea name="id_sent" cols="20" rows="20" style="display:none;"><%=id_sent%></textarea>
	<textarea name="titleletter" cols="20" rows="20" style="display:none;"><%=titleletter%></textarea>
	
<%
'Response.write filename
%>
</body>

File Manager

Editing: testmaillist.asp