Microsoft VBScript runtime error '800a000d' ??

[James]

can someone help me out i keep getting this error ?

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'IsBlank'

/dating/admin.asp, line 329



heres whats at line 329 If Not IsBlank(BCCEmail) Then .Bcc = BCCEmail


Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
strSmtpServer = "127.0.0.1" ' email server
SMTPUsername = "mail.server.com" 'account with permission to
send mail
SMTPPassword = "1111111" 'password for your email
With objCDOSYSCon
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= strSmtpServer
If SMTPUsername <> "" And SMTPPassword <> "" Then
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1 ' cdoBasic ; cdoNTLM = 2 (NTLM)
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")
= SMTPUsername
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")
= SMTPPassword
End If
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60
.Fields.Update
End With

Set objCDOSYSMail.Configuration = objCDOSYSCon

With objCDOSYSMail
.From = SMTPUsername
.To = objRS("p_email")
.Bcc = ("mail@server.com")
line 329 If Not IsBlank(BCCEmail) Then .Bcc = BCCEmail

.Subject = strSubject
.TextBody = strBody
.Send
End With

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

[Marja Ribbers]

IsBlank() is not a native VBscript function, so it should be defined as a custom function somewhere in your own code.
Apparently it is not.

--
Marja Ribbers-de Vroed

Internet:
- [url]www.webwaresystems.nl[/url]
- [url]www.clubwebware.nl[/url]
- [url]www.flevooware.nl/dreamweaver[/url]


"James" <jamesbond@hotmail.com> wrote in message news:d60061$8ut$1@forums.macromedia.com...

>
> can someone help me out i keep getting this error ?
>
> Microsoft VBScript runtime error '800a000d'
>
> Type mismatch: 'IsBlank'
>
> /dating/admin.asp, line 329
>
>
>
> heres whats at line 329 If Not IsBlank(BCCEmail) Then .Bcc = BCCEmail
>
>
> Set objCDOSYSMail = Server.CreateObject("CDO.Message")
> Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
> strSmtpServer = "127.0.0.1" ' email server
> SMTPUsername = "mail.server.com" 'account with permission to
> send mail
> SMTPPassword = "1111111" 'password for your email
> With objCDOSYSCon
> ..Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")
> = 2
> ..Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
> = strSmtpServer
> If SMTPUsername <> "" And SMTPPassword <> "" Then
> ..Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
> = 1 ' cdoBasic ; cdoNTLM = 2 (NTLM)
> ..Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")
> = SMTPUsername
> ..Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")
> = SMTPPassword
> End If
> ..Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
> = 25
> ..Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
> = 60
> .Fields.Update
> End With
>
> Set objCDOSYSMail.Configuration = objCDOSYSCon
>
> With objCDOSYSMail
> .From = SMTPUsername
> .To = objRS("p_email")
> .Bcc = ("mail@server.com")
> line 329 If Not IsBlank(BCCEmail) Then .Bcc = BCCEmail
>
> .Subject = strSubject
> .TextBody = strBody
> .Send
> End With
>
> Set objCDOSYSMail = Nothing
> Set objCDOSYSCon = Nothing
>
>

[brownd1]

line 329 If Not IsBlank(BCCEmail) Then .Bcc = BCCEmail

--------------------------------------------------------------------------------
---------------------------------------------------------------
Obviously, IsBlank is true, so my question is how do you handle it when it is
blank? It can be blank, correct?

If Not IsBlank(BCCEmail) Then
.Bcc = BCCEmail
Else
.Bcc = "Something"
End If

[James]

i aint got a clue mate i dont no a lot of asp

"brownd1" <webforumsuser@macromedia.com> wrote in message
news:d602mi$cu0$1@forums.macromedia.com...

> line 329 If Not IsBlank(BCCEmail) Then .Bcc = BCCEmail
>
> --------------------------------------------------------------------------------
> ---------------------------------------------------------------
> Obviously, IsBlank is true, so my question is how do you handle it when it
> is
> blank? It can be blank, correct?
>
> If Not IsBlank(BCCEmail) Then
> .Bcc = BCCEmail
> Else
> .Bcc = "Something"
> End If
>

[Lionstone]

No, the BCC property is optional and can be left off completely, so there's
no need for an else.

"brownd1" <webforumsuser@macromedia.com> wrote in message
news:d602mi$cu0$1@forums.macromedia.com...

> line 329 If Not IsBlank(BCCEmail) Then .Bcc = BCCEmail
>
> --------------------------------------------------------------------------------
> ---------------------------------------------------------------
> Obviously, IsBlank is true, so my question is how do you handle it when it
> is
> blank? It can be blank, correct?
>
> If Not IsBlank(BCCEmail) Then
> .Bcc = BCCEmail
> Else
> .Bcc = "Something"
> End If
>

[James]

dont it with this code

'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Outgoing SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60
objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "mail@server.com"
objCDOSYSMail.To = objRS("p_email")
objCDOSYSMail.Subject = strSubject
objCDOSYSMail.HTMLBody = strBody
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

thanks anyway ;-)


"Lionstone" <HIDElionstoneHIDE@HIDEhush.com> wrote in message
news:d603mv$ec9$1@forums.macromedia.com...

> No, the BCC property is optional and can be left off completely, so
> there's no need for an else.
>
> "brownd1" <webforumsuser@macromedia.com> wrote in message
> news:d602mi$cu0$1@forums.macromedia.com...

>> line 329 If Not IsBlank(BCCEmail) Then .Bcc = BCCEmail
>>
>> --------------------------------------------------------------------------------
>> ---------------------------------------------------------------
>> Obviously, IsBlank is true, so my question is how do you handle it when
>> it is
>> blank? It can be blank, correct?
>>
>> If Not IsBlank(BCCEmail) Then
>> .Bcc = BCCEmail
>> Else
>> .Bcc = "Something"
>> End If
>>

>
>