<%
Dim objUpload, lngLoop,qid1,qid(6),namepicture(1)
If Request.TotalBytes > 0 Then
Set objUpload = New clsUpload
Call ConnectDB()
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select * from edit_activities "
rslist.Open sql,DataConn,1, 3
if rslist.eof = true then
no_act=1
else
rslist.movelast
no_act=rslist("no_act")+1
end if
For lngLoop = 0 to objUpload.Form.Count - 1
%>
<%qid(lngloop)=objUpload.Form.Item(lngLoop)%>
<%
Next
subject_act=qid(0)
descriptions=qid(1)
des=replace(qid(3),chr(13),"<br>")
from_name=qid(4)
from_link = qid(5)
For lngLoop = 0 to objUpload.Files.Count - 1
objUpload.Files.Item(lngLoop).Save server.mappath("../images/all_activities/"&year(now)&"/"&month(now)&"/")
namepicture(lngloop+1)= objUpload.Files.Item(lngLoop).FileName
Next
end if
Load balance : Server 00
