da PHP ad ASP

[micione]

Salve ragazzi, avrei bisogno di una cortesia, mi servirebbe tradurre qualche riga di codice PHP in ASP; qualcuno è così gentile da darmi una mano ?

il codice è questo:

<?php
$q = strtolower($_REQUEST["q"]);
if (!$q) return;
$items = array(
"1"=>"Algeria",
"2"=>"Argentina",
"3"=>"Australia"
);

$json =

array();

foreach ($items as $key=>$value) {
if (strpos(strtolower($value), $q) !== false) {
$json[] = '"' . $value

. '"';
}
}

echo '[' . implode(',', $json) . ']';

?>


Grazie

[robbe2000]

Per poterti aiutare spiega cosa vuoi fare nelle varie righe così è moldo più semplice

ti inizio a dire che le prime due righe e l' ultima si trasformano da così

<?php
$q = strtolower($_REQUEST["q"]);
.
.
.
.
.
%>

a così

<%
q = lcase(REQUEST("q"));
.
.
.
.

%>

[micione]

ciao robbe, ti spiego anche se credo di aver risolto:
lo script in questione filtra in base al valore di REQUEST("q") dei valori contenuti in un elenco

"1"=>"Algeria",
"2"=>"Argentina",
"3"=>"Australia"

e restituisce a video i risultati filtrati nel formato ["Argentina", "Algeria", "etc"]

a me serviva di poter ottenere lo stesso risultato, es. ["Argentina", "Algeria", "etc"], ma filtrado i valori ottenuti da una select su db.
la soluzione dovrebbe essere:

q = Replace(Request("q"),"'","''")
query = "SELECT nome_campo FROM nome_tabella WHERE nome_campo LIKE '%" & q & "%'"

rs.Open query,conn,1,3Do while not rs.EOF
risposta = risposta & """" & rs("nome_campo ") & """"
rs.MoveNext
If not rs.EOF then risposta = risposta & ","
Loop
Response.Write("[" & risposta & "]")rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>

giusto ?

stasera lo provo e ti faccio sapere.

Grazie