imageup=midb(formdata,datastart,dataend)
end function
Image=ImageUp (FormSize,Formdata)
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" +Server.MapPath("Database/Data.asp")
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT top 1 * FROM Article ORDER BY id DESC",Conn,1,3
if not rs.eof then
rs("AImage").appendchunk Image
rs.update
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
<script language=vbscript>
window.close()
</script>