Highlighted

Calculate SUM across different recordsets

New Here ,
Oct 27, 2017

Copy link to clipboard

Copied

Hi all,

This USDA project formula has me stumped. Gets a type mismatch error on the lines that do the sum.

Tried without creating a DIM for each variable... same error.

What am I doing wrong here?

<%

Dim BldgLoadHarvest

BldgLoadHarvest = BldgTransmissionLoad.Fields.Item("BldgTransmissionLoad").Value

Dim AirLoadHarvest

AirLoadHarvest = AirChangeLoad.Fields.Item("AirChangeLoad").Value

Dim FieldHeat1

FieldHeat1 = FieldHeatDayOne.Fields.Item("FieldHeatDayOne").Value

Dim BinHeat1

BinHeat1 = BinHeatDayOne.Fields.Item("BinHeatDayOne").Value

Dim FieldHeat2

FieldHeat2 = FieldHeatDayTwo.Fields.Item("FieldHeatDayTwo").Value

Dim BinHeat2

BinHeat2 = BinHeatDayTwo.Fields.Item("BinHeatDayTwo").Value

Dim Resp1

Resp1 = RespDayOne.Fields.Item("RespirationDayOne").Value

Dim Resp2

Resp2 = RespDayTwo.Fields.Item("RespirationDayTwo").Value

Dim Residual

Residual = ResidualLoad.Fields.Item("ResidualLoad").Value

Dim LightsHarvest

LightsHarvest = Lights.Fields.Item("LightHeat").Value

Dim FanLoad

FanLoad = FanHeat.Fields.Item("FanHeat").Value

Dim ForkLiftHarvest

ForkLiftHarvest = ForkLift.Fields.Item("ForkLiftHeat").Value

Dim WorkersHarvest

WorkersHarvest = Workers.Fields.Item("HarvestWorkers").Value

Dim HarvestTons

HarvestTons=(BldgLoadHarvest+AirLoadHarvest+FieldHeat1+BinHeat1+FieldHeat2+BinHeat2+Resp1+Resp2+Residual+LightsHarvest+FanLoad+ForkLiftHarvest+WorkersHarvest)/12660

%>

<%

Dim BldgLoadStorage

BldgLoadStorage = BldgTransStorage.Fields.Item("BldgTrans_Storage").Value

Dim AirChangeStor

AirChangeStor = AirChangeStorage.Fields.Item("AirChangeStorage").Value

Dim RespStore

RespStor = RespStorage.Fields.Item("RespStorage").Value

Dim WorkersStor

WorkersStorage = WorkersStorage.Fields.Item("WorkersStorage").Value

Dim LightsStor

LightsStorage = Lights.Fields.Item("LightHeat").Value

Dim FanStor

FanStorage = FanHeat.Fields.Item("FanHeat").Value

Dim StorageTons

StorageTons = (BldgLoadStorage + AirChangeStor + RespStor + WorkersStor + FanStor) / 12660

%>

THANK YOU,

JACKSON BALL

Views

203

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more

Calculate SUM across different recordsets

New Here ,
Oct 27, 2017

Copy link to clipboard

Copied

Hi all,

This USDA project formula has me stumped. Gets a type mismatch error on the lines that do the sum.

Tried without creating a DIM for each variable... same error.

What am I doing wrong here?

<%

Dim BldgLoadHarvest

BldgLoadHarvest = BldgTransmissionLoad.Fields.Item("BldgTransmissionLoad").Value

Dim AirLoadHarvest

AirLoadHarvest = AirChangeLoad.Fields.Item("AirChangeLoad").Value

Dim FieldHeat1

FieldHeat1 = FieldHeatDayOne.Fields.Item("FieldHeatDayOne").Value

Dim BinHeat1

BinHeat1 = BinHeatDayOne.Fields.Item("BinHeatDayOne").Value

Dim FieldHeat2

FieldHeat2 = FieldHeatDayTwo.Fields.Item("FieldHeatDayTwo").Value

Dim BinHeat2

BinHeat2 = BinHeatDayTwo.Fields.Item("BinHeatDayTwo").Value

Dim Resp1

Resp1 = RespDayOne.Fields.Item("RespirationDayOne").Value

Dim Resp2

Resp2 = RespDayTwo.Fields.Item("RespirationDayTwo").Value

Dim Residual

Residual = ResidualLoad.Fields.Item("ResidualLoad").Value

Dim LightsHarvest

LightsHarvest = Lights.Fields.Item("LightHeat").Value

Dim FanLoad

FanLoad = FanHeat.Fields.Item("FanHeat").Value

Dim ForkLiftHarvest

ForkLiftHarvest = ForkLift.Fields.Item("ForkLiftHeat").Value

Dim WorkersHarvest

WorkersHarvest = Workers.Fields.Item("HarvestWorkers").Value

Dim HarvestTons

HarvestTons=(BldgLoadHarvest+AirLoadHarvest+FieldHeat1+BinHeat1+FieldHeat2+BinHeat2+Resp1+Resp2+Residual+LightsHarvest+FanLoad+ForkLiftHarvest+WorkersHarvest)/12660

%>

<%

Dim BldgLoadStorage

BldgLoadStorage = BldgTransStorage.Fields.Item("BldgTrans_Storage").Value

Dim AirChangeStor

AirChangeStor = AirChangeStorage.Fields.Item("AirChangeStorage").Value

Dim RespStore

RespStor = RespStorage.Fields.Item("RespStorage").Value

Dim WorkersStor

WorkersStorage = WorkersStorage.Fields.Item("WorkersStorage").Value

Dim LightsStor

LightsStorage = Lights.Fields.Item("LightHeat").Value

Dim FanStor

FanStorage = FanHeat.Fields.Item("FanHeat").Value

Dim StorageTons

StorageTons = (BldgLoadStorage + AirChangeStor + RespStor + WorkersStor + FanStor) / 12660

%>

THANK YOU,

JACKSON BALL

Views

204

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Oct 27, 2017 0
Adobe Employee ,
Oct 30, 2017

Copy link to clipboard

Copied

Is this question related to Dreamweaver or to Adobe AIR?

Thanks,

Preran

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Reply
Loading...
Oct 30, 2017 0
New Here ,
Oct 30, 2017

Copy link to clipboard

Copied

dreamweaver... cs6

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Reply
Loading...
Oct 30, 2017 0
Adobe Employee ,
Oct 31, 2017

Copy link to clipboard

Copied

I think your question will get some consideration if you provide the following details

-  What you are trying to do

- Your process

- Issue that you are facing with your process

Thanks,

Preran

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Reply
Loading...
Oct 31, 2017 0
LEGEND ,
Oct 31, 2017

Copy link to clipboard

Copied

Preran

The code looks like classic asp, but i don't think anyone who does not use classic asp would be able to help.

The OP may get an answer posting in a forum that regularly handles questions on classic asp, as the only person i remember who did answer such questions has not posted in the forum for a number of years, due to the decline in classic asp use.

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Reply
Loading...
Oct 31, 2017 0
Preran LATEST
Adobe Employee ,
Oct 31, 2017

Copy link to clipboard

Copied

Thank you, Paula. That helps.

Jackson: I suggest posting on forums where ASP developers are active just so that you have more chances on your question.

Thanks,

Preran

Likes

Translate

Translate

Report

Report
Community Guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
Reply
Loading...
Oct 31, 2017 0