Merge pull request #111 from techird/dev-1.3.6

asp bug fix
fex-team · Dec 24, 2013 · 5adf5c8 · 5adf5c8
2 parents 4da8c20 + 121169e
commit 5adf5c8
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/asp/Uploader.Class.asp b/asp/Uploader.Class.asp
@@ -202,7 +202,11 @@ Class Uploader
 
     Private Function GetSaveName( ByVal filename )
         Dim format, ext, name
-        format = rsFormValues.Item( "fileNameFormat" )
+        If rsFormValues <> Null Then
+            format = rsFormValues.Item( "fileNameFormat" )
+        Else
+            format = "{yyyy}{mm}{dd}{hh}{ii}{ss}{rand:6}"
+        End If
         ext = GetExt( filename )
         name = GetNameWithoutExt( filename )
         filename = Replace( format, "{filename}", name )