This is what think is the problem...CDONTS are no longer got any
support from microsoft. I will give you a sample of an alternative to
CDONTS
Here it is:
Dim objMessage, objConfig
Set objMessage = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
With objMessage
.Configuration = objConfig
.To = "<email address>"
.From = "<your email address>"
.Subject = "<sample subject>"
.HTMLBody = "<message>"
.Send
End with
Hope this will help...have a nice day!!!
--- In [email protected], Charles Carroll
<[EMAIL PROTECTED]> wrote:
> well if he runs the script at:
> http://www.learnasp.com/learn/componentchecker.asp
> he will know whether it is installed.
>
> Sections of
> http://www.systemwebmail.com
> may help his ISP on config side.
>
>
> On Mon, 20 Dec 2004 23:06:55 -0500,
> [EMAIL PROTECTED]
> <[EMAIL PROTECTED]> wrote:
> > I have gotten this also on a cleints server. They are located
more than 100
> > miles away and some scripts that I used without issue with the
default
> > win2k
> > install on my own servers decided not to work with the same
identical error
> > this guy gets. I have used the scripts and CDONTS on many
servers with no
> > issues at all just this one clients server. I know on windows
2003 server
> > you have to enable things as they are OFF with the default
install. So
> > possible you are using windows 2003?
> >
> >
> >
> >
> > Mike Belcher
> > Independant Computer Consultant
> >
> > Email: [EMAIL PROTECTED]
> >
> >
> > Have a nice day.
> >
> > ----- Original Message -----
> > From: "Cynthia Leslie" <[EMAIL PROTECTED]>
> > To: <[email protected]>
> > Sent: Monday, December 20, 2004 10:38 PM
> > Subject: Re: [AspClassicAnyQuestionIsOk] Email form troubles
> >
> >
> > >
> > > I hope that you also receive responses from some people on
this list that
> > > have more experience with ASP and VBScript than I do -- but
since it is
> > > late at night, you might not get very many responses until
tomorrow. So,
> > I
> > > thought I would just give you my first thought, which is: are
you sure
> > > that the CDONTS component has been registered on your server?
The error
> > > message that you're getting seems like the kind of error
message that you
> > > would get if the component was not registered.
> > >
> > > - Cynthia Leslie
> > > ----- Original Message -----
> > > From: broodmdh
> > > To: [email protected]
> > > Sent: Monday, December 20, 2004 9:28 PM
> > > Subject: [AspClassicAnyQuestionIsOk] Email form troubles
> > >
> > >
> > >
> > >
> > > I am totally new to asp, but not to programming. I am
setting up a
> > > site on the doteasy network, but I cannot get my email form to
> > > work. I will include both the html and asp code below. The
error I
> > > receive is as follows:
> > >
> > > Server object error 'ASP 0177 : 800401f3'
> > > Server.CreateObject Failed
> > > /emailForm.asp, line 34
> > > 800401f3
> > >
> > > Line 34 is as follows:
> > >
> > > Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
> > >
> > > To me, this means that CDONTS is not installed on this
server. Is
> > > this the case? How do I diagnose the problem? Any help
would be
> > > greatly appreciated.
> > >
> > >
> > >
> > > This is the html code:
> > >
> > > <FORM ACTION="emailForm.asp" METHOD="post">
> > > Name:<br>
> > > <INPUT NAME="_recepients" TYPE="hidden" VALUE="[EMAIL PROTECTED]"/>
> > > <INPUT NAME="_requiredFields" type="hidden"
> > > value="emailName,emailAddress,emailSubject,emailBody" />
> > > <INPUT TYPE="text" NAME="emailName" SIZE="30"></INPUT><br>
> > > E-mail address:<br>
> > > <INPUT TYPE="text" NAME="emailAddress" SIZE="30"></INPUT><br>
> > > Subject:<br>
> > > <INPUT TYPE="text" NAME="emailSubject"
> > > SIZE="30"></INPUT><br>
> > > Message: <br>
> > > <TEXTAREA NAME="emailBody" ROWS="10" COLS="40"
> > > WRAP="virtual"></TEXTAREA><BR>
> > > <INPUT TYPE="submit" VALUE="Send Mail!"></INPUT>
> > > </FORM>
> > >
> > >
> > > The asp file is as follows:
> > >
> > >
> > > <%@ Language=VBScript %>
> > > <HTML>
> > > <HEAD>
> > > <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
> > > </HEAD>
> > > <BODY>
> > > <%
> > > dim strName, strEmail, strSubject, strBody
> > > dim jobCDOMail
> > >
> > > strName = Request.Form("emailName")
> > > strEmail = Request.Form("emailAddress")
> > > response.write(strEmail)
> > > strSubject = Request.Form("emailSubject")
> > > strBody = Request.Form("emailBody")
> > >
> > > strBody = strBody & vbCrlf & vbCrlf
> > >
> > > if strEmail = "" or not IsValidEmail(strEmail) then
> > > %>
> > > <FORM ACTION="/emailForm.asp" METHOD="post">
> > > Name:<br>
> > > <INPUT TYPE="text" NAME="emailName"
> > > SIZE="30"></INPUT><br>
> > > E-mail address:<br>
> > > <INPUT TYPE="text" NAME="emailAddress"
SIZE="30"></INPUT><br>
> > > Subject:<br>
> > > <INPUT TYPE="text" NAME="emailSubject"
> > > SIZE="30"></INPUT><br>
> > > Message: <br>
> > > <TEXTAREA NAME="emailBody" ROWS="10" COLS="40"
> > > WRAP="virtual"></TEXTAREA><BR>
> > > <INPUT TYPE="submit" VALUE="Send Mail!"></INPUT>
> > > </FORM>
> > > <%
> > > else
> > > Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
> > > objCDOMail.Name = strName
> > > objCDOMail.From = strEmail
> > > objCDOMail.To = "[EMAIL PROTECTED]"
> > > objCDOMail.Subject = strSubject
> > > objCDOMail.Body = strBody
> > > objCDOMail.MailFormat = 0
> > >
> > > objCDOMail.Send
> > >
> > > Set objCDOMail = Nothing
> > >
> > > Response.Write "Email Sent Successfully. Thank you for
your
> > > input."
> > > end if
> > > %>
> > >
> > > <%
> > > Function IsValidEmail(strEmail)
> > > Dim bIsValid
> > > bIsValid = True
> > >
> > > If Len(strEmail) < 5 Then
> > > bIsValid = False
> > > Else
> > > If Instr(1, strEmail, " ") <> 0 Then
> > > bIsValid = False
> > > Else
> > > If InStr(1, strEmail, "@", 1) < 2 Then
> > > bIsValid = False
> > > Else
> > > If InStrRev(strEmail, ".") < InStr
> > > (1, strEmail, "@", 1) + 2 Then
> > > bIsValid = False
> > > End If
> > > End If
> > > End If
> > > End If
> > >
> > > IsValidEmail = bIsValid
> > > End Function
> > > %>
> > > </BODY>
> > > </HTML>
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > Yahoo! Groups Sponsor
> > > ADVERTISEMENT
> > >
> > >
> > >
> > >
> > >
> > >
> > ------------------------------------------------------------------
------------
> > > Yahoo! Groups Links
> > >
> > > a.. To visit your group on the web, go to:
> > > http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
> > >
> > > b.. To unsubscribe from this group, send an email to:
> > > [EMAIL PROTECTED]
> > >
> > > c.. Your use of Yahoo! Groups is subject to the Yahoo!
Terms of
> > > Service.
> > >
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> > >
> > >
> > >
> > >
> > > Yahoo! Groups Links
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
> >
> >
> >
> >
> > Yahoo! Groups Sponsor
> >
> > ADVERTISEMENT
> >
> >
> > ________________________________
> > Yahoo! Groups Links
> >
> > To visit your group on the web, go to:
> > http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
> >
> > To unsubscribe from this group, send an email to:
> > [EMAIL PROTECTED]
> >
> > Your use of Yahoo! Groups is subject to the Yahoo! Terms of
Service.
------------------------ Yahoo! Groups Sponsor --------------------~-->
Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar.
Now with Pop-Up Blocker. Get it for free!
http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/saFolB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
