expected Then

Adam H-W · November 25th, 2004, 02:20 PM

Hi there

I've got a simple If Then statement and my page is throwing up an error; this is my code:

if isNull strShort or strShort = Empty Then response.Write(No Detail currently)

else
replace(strShort, vbcrlf, "<br>"))

end if

and it's giving me this error:

Microsoft VBScript compilation error '800a03f9'

Expected 'Then'

if isNull strShort or strShort = Empty
----------^

I don't know why because I've got Then on the line in question.

Any help greatly appreciated.

Thanks

Adam

ChrisScott · November 25th, 2004, 02:33 PM

Hi Adam,

Try this...

Code:

if IsNull(strShort) or strShort = Empty Then                                             
     response.Write("No Detail currently")                      
else
    strShort = replace(strShort, vbcrlf, "<br>")                             
end if

HTH,

Chris

Adam H-W · November 25th, 2004, 02:39 PM

thanks for your input but it doesn't seem to solve it. The problem is on the line...if IsNull(strShort) or strShort = Empty Then - the error points to this line saying that 'Then' is expected whic dumbfounds me because then is already there

thanks

Adam

happygv · November 25th, 2004, 03:07 PM

Quote:

quote:if isNull strShort or strShort = Empty Then

It that you want to check if the strShort variable is empty? or compare with another variable called "Empty" that hold some value in it? If you are looking for the first case, use ISEmpty() function or compare it with "".

Code:

If isempty(strShort) then...

OR

If strShort = "" then

OR

If len(trim(strShort))>0 then

All these should help you on the same cause.

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

Adam H-W · November 25th, 2004, 03:59 PM

sorted, thanks guys

OldCoder · November 25th, 2004, 04:03 PM

Hi Adam,

This works on my machine:

<%
dim strShort

if ( isNull(strShort) or strShort = Empty ) Then
response.Write("No Detail currently")

else
replace strShort, vbcrlf, "<br>"

end if
%>

Happy Thanksgiving,

test · April 17th, 2008, 05:41 AM

Quote:

quote:Originally posted by ChrisScott
Hi Adam,

Try this...

Code:

if IsNull(strShort) or strShort = Empty Then                                             
     res:([xx(][V]ponse.Write("No Detail currently")                      
else
    strShort = replace(strShort, vbcrlf, "<br>")                             
end if

HTH,

Chris

:(:(:(