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 --------------------~-->
$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/
