http://www.learnasp.com/learn/componentchecker.asp
will help you determine if it and what components
On Tue, 21 Dec 2004 02:28:47 -0000, broodmdh <[EMAIL PROTECTED]> wrote:
>
>
> 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
>
> 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/
