Dim cn, objUpload,Rs
Dim strDSN,strSQL,StrDir,StrFileName
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set cn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
strDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DBfile.mdb")
cn.Open strDSN
strSQL="select * from Department where DepName='" & DepName & "'"
Rs.Open strSQL,cn,3,2
if Rs.RecordCount>0 then
'Rs.Find Rs("DepName")=DepName
Rs("FileName")=StrFileName
Rs.Update
end if