Ошибка при доступе к базе данных: в доступе отказано: «CreateObject»

Question

Я перевожу веб-сайт на новый сервер, он находится в ASP и использует несколько баз данных Access, сайт и CMS могут читать, отображать данные и даже редактировать и обновлять существующие записи данных, но когда я хочу добавитьновая запись, я получаю сообщение об ошибке ...

Ошибка выполнения Microsoft VBScript '800a0046'

В доступе отказано: 'CreateObject'

/ padp2010d / ads_tradetracker.asp, строка 11

Кажется, в базах данных нет паролей, я настроил и протестировал источники данных ODBC, и они работают нормально.

Код или строка, котораяпричиной проблемы является ...

<%
Dim Mail, strPath, strHost, Upload

Set Upload = CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True

' Generate unique names 
Upload.OverwriteFiles = False
' Limit file size to 500000 bytes
Upload.SetMaxSize 500000, True

' capture an upload and save uploaded files (if any) in temp directory
Upload.SaveVirtual "\pa\images\advertenties"
Upload.Save

' Use session ID as the new file name
NewName = Session.SessionID

Строка 11: Set Upload = CreateObject("Persits.Upload")

Если бы кто-то мог помочь, это было бы здорово.Может быть, это настройка разрешения?

Я полный новичок с ASP и Access!

Спасибо

Я попробовал ответ ниже, но все равно получаю ошибку ...

Ошибка объекта сервера ASP 0178: 80070005 Ошибка доступа к Server.CreateObject /padp2010d/ads_tradetracker.asp, строка 11 Сбой вызова Server.CreateObject при проверке разрешений.Доступ запрещен к этому объекту.

Answer 1

Попробуйте взамен CreateObject ("Persits.Upload", "localhost"). Я обнаружил, что в некоторых сценариях необязательный аргумент обязателен, но никогда не определял, когда и как.

Answer 2

Я сейчас решил проблему, скрипт работает нормально, проблема была в настройках разрешений компонента AspUpload на сервере. Большое спасибо за вашу помощь.

Answer 3

Как насчет:

Server.CreateObject("Persits.Upload")