Invalid Prog ID

[Charles Vaz]

Someone could help me on this code:

<%
if isAdmin then

set Upload = Server.CreateObject("PersitsUpload.1")
p_count = Upload.Save("d:\inetpub\wwwroot")

p_news_id = cint(Upload.form("p_news_id"))
p_news_cat_id = cint(Upload.form("p_news_cat_id"))
p_news_headline = cstr(Upload.form("p_headline"))
p_news_blurb = cstr(Upload.form("p_blurb"))
p_news_url = cstr(Upload.form("p_url"))
p_existing = cstr(Upload.form("p_existing"))

if p_count = 1 then
p_subfile_name = Upload.Files(1).Path
p_subfile_name = replace
(p_subfile_name, "d:\inetpub\wwwroot\", "")
fileUploaded = TRUE
else
fileUploaded = FALSE
end if
--
The error message from ASP IS:

Error Type
Server Object, ASP 0177 (0x800401F3)
Invalid Prog ID
--
I registered in command line such as follow:
"regsvr32 d:\aspemail\aspUpload.dll" but, it didn't work.
Is lacking anything else?

Gratefull

Charles Vaz

[Manohar Kamath [MVP]]

Perhaps the correct progID is Persits.Upload.1

Server.CreateObject("Persits.Upload.1")

--
Manohar Kamath
Editor, .netBooks
www.dotnetbooks.com
"Charles Vaz" <ch********@terra.com.br> wrote in message
news:27*****************************@phx.gbl...

Someone could help me on this code:

<%
if isAdmin then

set Upload = Server.CreateObject("PersitsUpload.1")
p_count = Upload.Save("d:\inetpub\wwwroot")

p_news_id = cint(Upload.form("p_news_id"))
p_news_cat_id = cint(Upload.form("p_news_cat_id"))
p_news_headline = cstr(Upload.form("p_headline"))
p_news_blurb = cstr(Upload.form("p_blurb"))
p_news_url = cstr(Upload.form("p_url"))
p_existing = cstr(Upload.form("p_existing"))

if p_count = 1 then
p_subfile_name = Upload.Files(1).Path
p_subfile_name = replace
(p_subfile_name, "d:\inetpub\wwwroot\", "")
fileUploaded = TRUE
else
fileUploaded = FALSE
end if
--
The error message from ASP IS:

Error Type
Server Object, ASP 0177 (0x800401F3)
Invalid Prog ID
--
I registered in command line such as follow:
"regsvr32 d:\aspemail\aspUpload.dll" but, it didn't work.
Is lacking anything else?

Gratefull

Charles Vaz