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 --------------------~--> 
$4.98 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/Q7_YsB/neXJAA/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/
 



Reply via email to