Sample code for ASP + MAPXTREME - Create a layer through LayerInfo and draw rectangles

'Creating a layer

Call CreateMapxLayerInfo (Li)

Li.Type = 6 'MilayerInfotypetemp

Li.addparameter "Name", "new"

BRC = CreatemapFields (FLD)

Fld.addstringfield "Temp", 1

Li.addparameter "Fields", FLD

Set lyrtemp = session (cmapxObject) .Layers.Add (li)

SESSION (CMAPXObject) .DataSets.add Midatasetlayer, Lyrtemp, "New", "New"

'Add a chamber

GetMapCenter Flocx, Flocy

BRC = CREATEMAPPOINT (PTCENTER)

BRC = CreateMappoints (PTS)

BRC = CREATEMAPSTYLE (STYLE)

PTCenter.set Flocx, Flocy

PTS.ADD PTCenter

PTCenter.set Flocx 0.05, Flocy

PTS.ADD PTCenter

PTCenter.Set Flocx 0.05, Flocy 0.05

PTS.ADD PTCenter

PTCenter.set Flocx, Flocy 0.05

PTS.ADD PTCenter

PTCenter.set Flocx, Flocy

PTS.ADD PTCenter

Style.LineColor = RGB (255, 0, 0)

Style.LineWidthunit = 0

Style.LineWidth = 5

Set ft1 = session (cmapxObject) .FeatureFactory.createLine (PTS, Style)

Set ft2 = lyrtemp.addfeature (ft1)

'Delete temporary layer

Session (cMapxObject) .Layers.Remove "New"