formmail error 8000900F

cimmeron · 10-07-2006, 08:20 PM

My form worked until yesterday:

http://www.eco-cell.org/reg_form.asp

error:

error '8009000f'

Object already exists.

/formmail.asp, line 20

Quote:

<%
response.expires=0
dim strFrom
dim strTo
dim strRedirect
strFrom = "webmaster@" & trim(Replace(Request.ServerVariables("HTTP_HOST"), "www.",""))
strTo = request("To")
strRedirect = request("redirect")
if IsNull(strRedirect) then strRedirect = ""
For i=1 To request.form.count
strMessage = strMessage & request.form.key(i) & ": " & request.form.item(i) & vbCrLf
Next

Set objMail = CreateObject("CDONTS.NewMail")
objMail.From=strFrom
objMail.To=strTo
objMail.Subject=trim(Replace(Request.ServerVariabl es("HTTP_HOST"),"www.","")) & " Form Mail"
objMail.Body=strMessage
objMail.Send
set objMail=nothing

if len(strRedirect)>0 Then
response.redirect strRedirect
else
%>

<HTML>
<TITLE>Form Mail Results</TITLE>
<BODY BGCOLOR=#FFFFFF>

<%=Request.ServerVariables("HTTP_HOST") %>: Email Sent

The following message has been sent.

<HR>
<PRE>
From: <%=strFrom%>
To: <%=strTo%>
Subject: FORM results</PRE>

<PRE>
<%=strMessage%>
</PRE>
</BODY>
</HTML>
<%
end if
%>

Help?

D

exam · 10-09-2006, 12:18 PM

Try naming your object something other than objMail, also you might look into CDO.Message instead of CDONTS.NewMail.

Also, you can apparently have problems if some of the properties of the object are not set. Try this.

<%
Set objCDOMail=Server.CreateObject("CDONTS.NewMail")
objCDOMail.From=emailstring
objCDOMail.To="email@email.com"
objCDOMail.Subject="The Subject"
objCDOMail.Bcc="someemail@email.com"
objCDOMail.BodyFormat=0
objCDOMail.MailFormat=0
objCDOMail.Body=bodystring
objCDOMail.Importance=2
objCDOMail.Send
Set objCDOMail=Nothing
%>

I'm no asp guru, so I might not be the best source of info

cimmeron · 10-10-2006, 10:41 AM

I'm not an asp guru either and I cannot get this to work.

Thanks though

exam · 10-10-2006, 10:49 AM

I'm not sure if this is important or not, but on this line,

Set objCDOMail=Nothing

make sure nothing is capitalized.