%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim commonLinks Dim commonLinks_numRows Dim brand Dim category brand = "gravis" category = "shoes" Set commonLinks = Server.CreateObject("ADODB.Recordset") commonLinks.ActiveConnection = MM_sweet_STRING commonLinks.Source = "SELECT PageUrl FROM qryOtherLinks WHERE Category = '" + Category + "'" commonLinks.CursorType = 0 commonLinks.CursorLocation = 2 commonLinks.LockType = 1 commonLinks.Open() commonLinks_numRows = 0 %> <% Dim topText Dim topText_numRows Set topText = Server.CreateObject("ADODB.Recordset") topText.ActiveConnection = MM_sweet_STRING topText.Source = "SELECT Description FROM qryBrandCategory WHERE Brand = '" + Brand + "' and Category = '" + Category + "'" topText.CursorType = 0 topText.CursorLocation = 2 topText.LockType = 1 topText.Open() topText_numRows = 0 %>
![]() |
![]() |
![]() |
![]() |
|
|
| ||||||||||||||||||||||||||