Does the virtual directory you are running this on have execute
permissions?  Are you running this under NTML/Windows authentication
with anonymous authentication disabled?

Did you reset your DCOMcfg settings to the default?

If you bring up taskman how many WinWord sessions are active?  If there
are any kill them, then open up word and clear anything you find.  Close
word, reboot and try again.

-----Original Message-----
From: Lich, Brian M [mailto:[EMAIL PROTECTED] 
Sent: Friday, June 27, 2003 9:15 AM
To: NT 2000 Discussions
Subject: RE: DCOM error
Sensitivity: Private


When I copy and paste this code into FrontPage, I get the same error.

"There is insufficient memory. Save the document now."

Thanks...
Brian

-----Original Message-----
From: Cotter, Hilary [mailto:[EMAIL PROTECTED] 
Sent: Friday, June 27, 2003 6:21 AM
To: NT 2000 Discussions
Subject: RE: DCOM error
Sensitivity: Private

Try this

<%
option explicit
dim objWord, objDocument, count, a, SelectNo, substring1, wdSuggestions,
wdSuggestion,string1, redirect, perfectString set
objWord=Server.CreateObject("Word.Application")
set objDocument=objWord.Documents.Add
objDocument.Range.Text=Request.QueryString("SearchString")
count=1

for a=1 to objDocument.Words.Count
        if objWord.CheckSpelling(objDocument.Words(a))=False and
objWord.GetSpellingSuggestions(objDocument.Words(a)).SpellingErrorType<>
2 then
                set wdSuggestions =
objWord.getSpellingSuggestions(objDocument.Words(a))
                selectNo="select" +cstr(count)
                substring1="<select name="+selectNo+">"
                if wdSuggestions.Count=0 then
                        'this captues the case where there are no word
suggestions
                        string1=string1+ objDocument.Words(a)+"<input
type=hidden name="+objDocument.Words(a)+" value=" &
objDocument.Words(a)+ ">"
                elseif wdSuggestions.Count=1 then
                        'this captures the case were there is only one
word as a spelling suggestions
                        string1=string1+
wdSuggestions.Item(1).Name+"<input type=hidden
name="+wdSuggestions.Item(1).Name+" value=" &
wdSuggestions.Item(1).Name+ ">"
                else
                        for each wdSuggestion in wdSuggestions
                                substring1=substring1+"<option
value="+wdSuggestion.Name+">"+wdSuggestion.Name+"</option>"
                        next
                        count=count+1
                        string1=string1 + substring1+"</select>"
                end if
        else
                string1=string1 + objDocument.Words(a) +"<input
type=hidden name="+objDocument.Words(a)+" value=" &
objDocument.Words(a)+ ">"
                'the below is to handle the case of perfect spelling
                PerfectString=PerfectString+rtrim(objDocument.Words(a))
+ "=" + rtrim(objDocument.Words(a)) + "&"
        end if
next
objDocument.Close 0
objWord.Quit 0
set objDocument=nothing
set objWord=nothing
if count=1 then
        redirect="runquery.asp?" & PerfectString
        redirect=left(redirect, len(redirect)-5)
        response.redirect redirect
else
        response.write "<Form action=runquery.asp method=GET>"
        response.write string1 & "<BR><BR>"
        response.write "<Input type=submit>"
        response.write "</Form>"
end if
%>

-----Original Message-----
From: Lich, Brian M [mailto:[EMAIL PROTECTED] 
Sent: Thursday, June 26, 2003 5:17 PM
To: NT 2000 Discussions
Subject: DCOM error
Sensitivity: Private


Hello:

I want to implement an ASP spell-checker using DCOM.  I can get the
winword.exe instance to open on the server.  Immediately after the
process starts it pegs the server and I get the following error:

"There is insufficient memory. Save the document now."

Here is a snippet of the code:

Set wdApplication = CreateObject("Word.Application") 
wdApplication.Application.Visible = False
Set wdDocument = wdApplication.Documents.Add

The error message says to check this third line.  After a few seconds
the process will settle down, but the instance will not go away until I
kill it.

Any ideas would be greatly appreciated?

Thanks in advance...
Brian

------
You are subscribed as [EMAIL PROTECTED]
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=nt2000&text_mode=&la
ng=english
To unsubscribe send a blank email to %%email.unsub%%

-----------------------------------------
The information contained in this email message may be privileged,
confidential, and protected from disclosure. Any unauthorized use,
printing, copying, disclosure, dissemination of or reliance upon this
communication by persons other than the intended recipient may be
subject to legal restriction or sanction. If you think that you have
received this E-mail message in error, please reply to the sender and
delete this email promptly.


------
You are subscribed as [EMAIL PROTECTED]
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=nt2000&text_mode=&la
ng=english
To unsubscribe send a blank email to %%email.unsub%%

------
You are subscribed as [EMAIL PROTECTED]
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=nt2000&text_mode=&la
ng=english
To unsubscribe send a blank email to %%email.unsub%%


-----------------------------------------
The information contained in this email message may be privileged, confidential, and 
protected from disclosure. Any unauthorized use, printing, copying, disclosure, 
dissemination of or reliance upon this communication by persons other than the 
intended recipient may be subject to legal restriction or sanction. If you think that 
you have received this E-mail message in error, please reply to the sender and delete 
this email promptly.


------
You are subscribed as [EMAIL PROTECTED]
Web Interface: 
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=nt2000&text_mode=&lang=english
To unsubscribe send a blank email to [EMAIL PROTECTED]

Reply via email to