file uploading
hi everybody,
i have a problem in uploading files.
from a combo box have to select either Customer or Partner
a list of customer/partner will be listed with checkbox.
for the selected customer/partner files have to be uploaded
my problem is
checkbox value is null after form submission
here the code for save the file
function SaveMyFiles
Dim Upload, fileName, fileSize, ks, i, fileKey,sp,cnt,temp,flag
Set Upload = New UploadMyFile
UploadDir=UploadDir&"s"
Response.Write(UploadDir)
'Upload.Save(UploadDir)
Response.Write(Upload.Form("seltyp")) returns null
Response.Write(Upload.Form("customerchk"))returns null
'if lcase(Upload.Form("seltyp"))="Customer" then
Response.Write(Upload.Form("f1"))
if Upload.Form("seltyp")="Customer" then
sp=split(trim(Upload.Form("customerchk")),",")
cnt=ubound(sp)
Response.Write(cnt)
temp=UploadDir
for i=0 to ubound(sp)
Response.Write(sp(i))
UploadDir=temp&"\"&trim(sp(i))
Upload.Save(UploadDir)
next
end if
' If something fails inside the script, but the exception is handled
Response.write err.description
If Err.Number<>0 then Exit function
SaveMyFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveMyFiles = "<B>Files uploaded:</B> "
for each fileKey in Upload.UploadedFiles.keys
dim fs
set fs=server.CreateObject("Scripting.filesystemobject ")
if lcase(Upload.Form("seltyp"))="Customer" then
fs.Deletefile(temp&"\"&Upload.UploadedFiles(fileKe y).FileName)
end if
SaveMyFiles = SaveMyFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
' SaveMyFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
flag=1
end if
'Use Upload.Form instead of Request.form. SaveMyFiles = SaveMyFiles & "<br>Enter a number = " & Upload.Form("enter_a_number") & "<br>"
' SaveMyFiles = SaveMyFiles & "Checkbox values = " & Upload.Form("checkbox_values") & "<br>"
end function
|
