Dim mySmartUpload
Ćmić kartoteka
Ustawiać mySmartUpload = Server.CreateObject ("aspSmartUpload.SmartUpload")
mySmartUpload.MaxFileSize = 10000000
mySmartUpload.Upload
ustawiać rs = Server.CreateObject ("ADODB.Recordset")
orderno = mySmartUpload.Form ("orderno")
aofid = mySmartUpload.Form ("aofid")
ładunek = mySmartUpload.Form ("ładunek")
appval = mySmartUpload.Form ("appval")
cstatus = mySmartUpload.Form ("cstatus")
commt = mySmartUpload.Form ("commt")
cus_id = mySmartUpload.Form ("cus_id")
ee = mySmartUpload.Form ("ee")
dt = teraz
dty = rok (dt)
dtm = miesiąc (dt)
dtd = dzień (dt)
dt = prawy (("20" & (dty)), 4) & prawy (("00" & (dtm)), 2) & prawy (("00" & (dtd)), 2)
Komentarz = "Taksowanie zupełny i zupełny [" & mySmartUpload.Files.Item (1).FileName & "]"
|