Funzione per scegliere la variabile SQL

[Grinder]

Sto cercando il modo per creare una funzione che mi cambi di volta in volta la variabile SQL senza dover fare più query separate. L'ho pensata finora così:

Set rs_componente = Server.CreateObject("ADODB.Recordset")
rs_componente.ActiveConnection = MM_remtech_STRING

function desc_componente(campo)
select case campo
  case 2
    var = rs("os")
  case 1
    var = rs("processore")
  case 3
    var = rs("memoria")
  case 4
    var = rs("s_video")
  case 5
    var = rs("hd")
  case 6
    var = rs("s_audio")
end select
end function

rs_componente.Source = "SELECT * FROM componenti WHERE cod_art = '" & var & "'"
rs_componente.Open()

e nella pagina la richiamo così:

<%desc_componente(1)
response.write rs_componente("desc_art")%>
                      
<%desc_componente(2)
response.write rs_componente("desc_art")%>

<%desc_componente(3)
response.write rs_componente("desc_art")%>

<%desc_componente(5)
response.write rs_componente("desc_art")%>

<%desc_componente(4)
response.write rs_componente("desc_art")%>

<%desc_componente(6)
response.write rs_componente("desc_art")%>

Però mi da errore come se il record fosse inesistente
Come devo fare?

[stabi]

iniziare ad usare lo stesso recordset!
usi rs e rs_componente.

[Grinder]

No aspetta, non mi sono spiegato bene: quella è una seconda query! La prima è con rs la seconda con rs_componente, rs deve fungere da variabile, che però deve variare a seconda del caso proposto. Posto tutto il codice:

<%
Dim rs, rs_componente, var

function script_colore(colore, indice, img)
  response.write "[img][/img]"
end function

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_remtech_STRING
rs.Source = "SELECT * FROM modelli WHERE famiglia = 1"
rs.Open()

Set rs_componente = Server.CreateObject("ADODB.Recordset")
rs_componente.ActiveConnection = MM_remtech_STRING

function desc_componente(campo)
select case campo
  case 2
    var = rs("os")
  case 1
    var = rs("processore")
  case 3
    var = rs("memoria")
  case 4
    var = rs("s_video")
  case 5
    var = rs("hd")
  case 6
    var = rs("s_audio")
end select
end function

rs_componente.Source = "SELECT * FROM componenti WHERE cod_art = '" & var & "'"
rs_componente.Open()
%>

[Grinder]

Ho scoperto adesso cosa mi resistituisce la stringa sql:

SELECT * FROM componenti WHERE cod_art = ''

E' vuota! Ma perchè?