According to that text file you have:
strSql = "UPDATE FORUM_DOWNLOADS SET D_DOWNLOADS=" & dlCount & " WHERE D_ID=" & fileId & ""
my_Conn.Execute (strSql)
Set Upload = Server.CreateObject("Persits.Upload")
Upload.File.SaveAs "c:\wwwroot\forum\downloads" & "\" & fileName, True, "application/octet-stream", True
end if
Which should be:
strSql = "UPDATE FORUM_DOWNLOADS SET D_DOWNLOADS=" & dlCount & " WHERE D_ID=" & fileId & ""
my_Conn.Execute (strSql)
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SendBinary "c:\wwwroot\forum\downloads" & "\" & fileName, True, "application/octet-stream", True
end if