Dim mySmartUpload
Dim file
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.MaxFileSize = 10000000
mySmartUpload.Upload
set rs = Server.CreateObject("ADODB.Recordset")
orderno = mySmartUpload.Form("orderno")
aofid = mySmartUpload.Form("aofid")
charge = mySmartUpload.Form("charge")
appval = mySmartUpload.Form("appval")
cstatus = mySmartUpload.Form("cstatus")
commt = mySmartUpload.Form("commt")
cus_id = mySmartUpload.Form("cus_id")
ee = mySmartUpload.Form("ee")
dt = now
dty = year(dt)
dtm = month(dt)
dtd = day(dt)
dt = right(("20" & (dty)),4) & right(("00" & (dtm)),2) & right(("00" & (dtd)),2)
Comment = "Appraisal complete and uploaded [" & mySmartUpload.Files.Item(1).FileName & "]"
|