Dim mySmartUpload
Schwache Akte
mySmartUpload = Server.CreateObject („aspSmartUpload.SmartUpload“) einstellen
mySmartUpload.MaxFileSize = 10000000
mySmartUpload.Upload
rs = Server.CreateObject („ADODB.Recordset“) einstellen
orderno = mySmartUpload.Form („orderno“)
aofid = mySmartUpload.Form („aofid“)
Gebühr = mySmartUpload.Form („Gebühr“)
appval = mySmartUpload.Form („appval“)
cstatus = mySmartUpload.Form („cstatus“)
commt = mySmartUpload.Form („commt“)
cus_id = mySmartUpload.Form („cus_id“)
EE = mySmartUpload.Form („EE“)
Papierlösekorotron = jetzt
dty = Jahr (Papierlösekorotron)
dtm = Monat (Papierlösekorotron)
DTD = Tag (Papierlösekorotron)
Papierlösekorotron = recht ((„20“ u. (dty)), 4) u. rechtes ((„00“ u. (dtm)), 2) u. rechtes ((„00“ u. (DTD)), 2)
Anmerkung = „Schätzung komplett und geladen [“ u. mySmartUpload.Files.Item (1).FileName u. „]“
|