If - then does not work in .net - please help

[edb]

Hi,
I have a previous validation If-then that works fine.
If online form has input from the input tag I want to
insert it into tables in SQL. Interestingly, I have
built an RDBMS in SQL and need to insert to the lookups
based on someone filling out a textbox.

My problem is that the code does recognize my if-then
statement based on a variable I predefined. I get no
errors and no posting onto the database. I REMOVE THE IF-
THEN STATEMENT AND i DO GET POSTING ONTO THE DATABASE.

Here is my code

Dim ClientCustInfo, ClientProdAreaInfo,
ClientProgDescInfo, ClientProductInfo, ClientPlatformInfo,
ClientCountriesInfo AS Integer
ClientCustInfo = 1
ClientProdAreaInfo = 1
ClientProgDescInfo = 1
ClientProductInfo = 1
ClientPlatformInfo = 1
ClientCountriesInfo = 1

If ClientCustInfo + ClientProdAreaInfo +
ClientProgDescInfo + ClientProductInfo +
ClientPlatformInfo + ClientCountriesInfo = "6" Then
Do my insert script - 'not available here

end if
Please, please help me with this.

Make my day a happy one.

Thx bunches,
edb

[William Ryan]

Take out the Quotes around 6. It's evaluating to a string.

Do you have Option Strict Turned off, it shouldn't even let this compile.
"edb" <m1**@dm2000.com> wrote in message
news:04****************************@phx.gbl...

Hi,
I have a previous validation If-then that works fine.
If online form has input from the input tag I want to
insert it into tables in SQL. Interestingly, I have
built an RDBMS in SQL and need to insert to the lookups
based on someone filling out a textbox.

My problem is that the code does recognize my if-then
statement based on a variable I predefined. I get no
errors and no posting onto the database. I REMOVE THE IF-
THEN STATEMENT AND i DO GET POSTING ONTO THE DATABASE.

Here is my code

Dim ClientCustInfo, ClientProdAreaInfo,
ClientProgDescInfo, ClientProductInfo, ClientPlatformInfo,
ClientCountriesInfo AS Integer
ClientCustInfo = 1
ClientProdAreaInfo = 1
ClientProgDescInfo = 1
ClientProductInfo = 1
ClientPlatformInfo = 1
ClientCountriesInfo = 1

If ClientCustInfo + ClientProdAreaInfo +
ClientProgDescInfo + ClientProductInfo +
ClientPlatformInfo + ClientCountriesInfo = "6" Then
Do my insert script - 'not available here

end if
Please, please help me with this.

Make my day a happy one.

Thx bunches,
edb