Hi all,

It must be the weather...I'm suddenly getting this
data mismatch error and it's focussed on the following
code [it's only a segment of code]:

CurObj = LayerList(Var_B)+"_Clipped.OBJ"

Do Case CurObj     <--------ERROR

Case OBJ_TYPE_POINT
fx = ObjectGeography(CurObj, OBJ_GEO_POINTX)
fy = ObjectGeography(CurObj, OBJ_GEO_POINTY)    

Print #1, "<circle id="""+lcase$(LayerList(Var_B))+"""
attr="""+LayerList(Var_B)+"_"+Var_J+"_"+Count+"""
style=" & chr$(34) & "fill:blue;stroke:blue" &
chr$(34)
Print #1, "cx=" & chr$(34) & Int(fx - fMinX) &
chr$(34) & " cy=" & chr$(34) & Int(fMaxY - fy)
& chr$(34) & " r=" & chr$(34) & nPointSize & chr$(34)
& " onclick=""getvalue(evt)""/>"

End Case

I've looked at it over and over and can't work out
what I'm doing wrong--anyone with a fresh set of eyes
I would be grateful...

Thanx
Ben

__________________________________________________
Do you Yahoo!?
Y! Web Hosting - Let the expert host your web site
http://webhosting.yahoo.com/

---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 3727

Reply via email to