lurigt, ett villkor, 2 räknare, det går inte ihop..

Tjena..

problem med ett villkor som inte uppfylls trots att det skall göra det

Den första delen av koden är inte så intressant utan det är när vi börjar
komma in på följande rad det blir intressant:

If ( strVisible > "" ) Then

Lite kort vad jag försöker ådstakomma.

Jag loopar igenom en produkttabell, jag kollar ifall produkten är markerad
som aktiv, jag har 2 räknare som räknar dels antalet produkter och den
andra räknar bara ifall produkten är markerad som "icke aktiv" dvs ifall col_Visible = "".

Sen gör jag en jämförelse mellan de båda räknarna, har dom då samma värde
så uppdateras alla produkter med samma värden, produkterna ärver priser från produktgruppens inställningar.

Nedan följer koden.

<!--#INCLUDE FILE="inc/dbConn.inc"-->

<%

Dim struser, strGroup, strVisible, strPrice_1, strPrice_2, strPrice_3, strPrice_4, strPrice_5, Connect, DB_QUERY, intCounter_A, intCounter__B

intCounter_A = cInt(0)
intCounter_B = cInt(0)
strUser = Request.Kookies("User")("Name")
strGroup = Trim(Request.QueryString("Group"))

strVisible = Trim(Request.Form("txtActive"))

If ( strVisible = "on" ) Then _
	strVisible = "checked"

strPrice_1 = Request.Form("txtPrice1")

If ( strPrice_1 = "" & "" ) Then _
	strPrice_1 = 0

strPrice_2 = Request.Form("txtPrice2")

If ( strPrice_2 = "" & "" ) Then _
	strPrice_2 = 0

strPrice_3 = Request.Form("txtPrice3")

If ( strPrice_3 = "" & "" ) Then _
	strPrice_3 = 0

strPrice_4 = Request.Form("txtPrice4")

If ( strPrice_4 = "" & "" ) Then _
	strPrice_4 = 0

strPrice_5 = Request.Form("txtPrice5")

If ( strPrice_5 = "" & "" ) Then _
	strPrice_5 = 0

If ( Trim(strUser) > "" & "" ) Then

	
Set DB_QUERY= Connect.Execute("UPDATE [tbl_"& strUser &"_Groups] SET [col_Visible] = '"& strVisible &"', [col_Price_1] = "& strPrice_1 &", [col_Price_2] = "& strPrice_2 &", [col_Price_3] = "& strPrice_3 &", [col_Price_4] = "& strPrice_4 &", [col_Price_5] = "& strPrice_5 &" WHERE [col_Name] = '"& strGroup &"'")

If ( strVisible > "" ) Then

	'-- Kolla igenom produkt tabellen ifall det finns något i denna gruppen som är aktivt.
	
	Set DB_QUERY_CHECK = Connect.Execute("SELECT col_Visible, col_ArticleNr FROM tbl_" & strUser & "_Products WHERE col_Group='"& strGroup &"';")

	While Not DB_QUERY_CHECK.EOF
	
		intCounter_A = intCounter_A + 1 '-- Öka första räknaren
		
		strLen = Len(DB_QUERY_CHECK("col_Visible"))
		Response.Write(strLen) '-- Här skrivs inte ut något så jag antar att den är NULL
		
		Response.Write("Värdet i Visible cellen: " & DB_QUERY_CHECK("col_Visible") & "<br>") '-- Denna visar NULL
		
		If Trim(DB_QUERY_CHECK("col_Visible")) = "" & "" Then '-- Räknaren ökas inte trots att villkoret uppfylls, den är ju NULL!!!
			intCounter_B = intCounter_B + 1
		End If
		
		DB_QUERY_CHECK.MoveNext
	
	Wend
	
	'-- Är de båda räknarna lika så updatera alla produkter i denna produktgruppen.
	
	Response.Write("Counter 1: " & intCounter_A & "<br>") '-- Denna skriver ut 7
	Response.Write("Counter 2: " & intCounter_B & "<br>") '-- Denna skriver ut 0
	
	If ( intCounter_A = intCounter_B ) Then
	
		Set DB_QUERY_UPDATE = Connect.Execute("UPDATE tbl_" & strUser & "_Products SET col_Price_1="& strPrice_1&", col_Price_2=" & strPrice_2 &", col_Price_3=" & strPrice_3 & ", col_Price_4=" & strPrice_4 &", col_Price_5=" & strPrice_5 & ", col_Visible='checked' WHERE col_Group ='"& strGroup &"';") 
	
	End If

End If

'Response.Redirect("list_groups.asp")

Else
	Response.Write("Något är fel här du..")

End If

%>

Har vi någon guru som kan se något direkt fel här?
cellen col_Visible är av typ char(7) och skall lagra antingen NULL eller "checked"

chop chop...

/t

[Redigerat av tlee den 27 aug 2001]