Ciao a tutti,

non riesco capire perchè questa query non funziona da sempre come risultato 0

codice:
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim TIPO__primo
TIPO__primo = "1"
If (Request.QueryString("stile")  <> "") Then 
  TIPO__primo = Request.QueryString("stile") 
End If
%>
<%
Dim TIPO__secondo
TIPO__secondo = "1"
If (Request.QueryString("sottocat1")   <> "") Then 
  TIPO__secondo = Request.QueryString("sottocat1")  
End If
%>
<%
Dim TIPO
Dim TIPO_numRows

Set TIPO = Server.CreateObject("ADODB.Recordset")
TIPO.ActiveConnection = MM_connessione_STRING
TIPO.Source = "SELECT *  FROM TIPO  WHERE ID_TIPO = " + Replace(TIPO__primo, "'", "''") + "  AND ID_SOTTOCAT = " + Replace(TIPO__secondo, "'", "''") + ""
TIPO.CursorType = 0
TIPO.CursorLocation = 2
TIPO.LockType = 1
TIPO.Open()

TIPO_numRows = 0
%>
Grazie mille