Inserire Jscript in asp

[jartuf]

Salve,
ho un codice in jscript, una chat, e vorrei incorporare nella pag principare il codice che mi restituisce gli utenti in chat.

<%
// Stampo i messaggi correnti
for (i=0;i<frase.length;i++) {
  aux = frase[i].split("@");
  if (aux.length>3 && (aux[2]=="" || 
aux[1]==nickname || aux[2]==nickname)) {
    Response.Write("<tr><td class='testoblu' width='40'   align='left'><font face='verdana,arial' color='grey' size='0'>" + aux[0] + "</font></td> ");
    Response.Write("<td align='left' width='40'><font face='verdana,arial' color='blue'    size='2'>" + aux[1] + "</font></td>");
    if (aux[2]!="") Response.Write(" <font face='verdana,arial' color='green'  size='-1'>pvt per  " + aux[2] + "</font>");
    Response.Write("<td align='left'>  ");
    Response.Write("<font face='verdana,arial' size='2'>" + aux[3] + "
");
	    Response.Write("</td></tr>");

  }
}
%>

questo è il codice, ma se lo includo mi dà errore
Errore di compilazione di Microsoft VBScript error '800a03f2'

Previsto identificatore

/inc/dx_cinema.asp, line 39

for (i=0;i<stringa_utente.length;i++)
----^



Grazie

[Ohmnibus]

Hai messo come prima riga del file "<%@LANGUAGE = "JScript" %>"?

[jartuf]

Active Server Pages error 'ASP 0140'

Ordine non corretto per il comando Page

/chat/online.asp, line 1

Come primo comando della pagina ASP specificare il comando @



Cmq ho "quasi" risolto, nel senso che sto provando a tirar fuori l'application tramite asp.

Sai xcaso darmi una mano a "splittare" una query? dovrei pulirla, ho provato così

<% 
x=Application("online") 

x=x & "," & ilnomedelloggato 
Application("online")=x 
x=split(var,"@")
response.write(Application("x")) 
%>

per pulire dopo il carattere @ ma nn succede nulla, o meglio nn visualizza nulla!

[Ohmnibus]

Per quanto riguarda l'errore il problema dipende dal fatto che probabilmente il file in questione viene INCLUSO da un altro ASP. Il comando "@" va indicato una sola volta, e tutti gli asp devono essere del linguaggio specificato. Insomma, non puoi fare metà VBScript e metà JSCript.

Per quanto riguarda il secondo quesito dovresti spiegarmi cosa intendi per "query" (probabilmente intendi l'insieme di dati inviati via get o specificati in coda all'URL - normalmente si intende un comando SQL) ma soprattutto cosè il "var" specificato nel tuo script... così com'e' non visualizza nulla perché:
-var è vuoto
-Il risultato di Split, e quindi x, è un'array.
-Application("x") è una costante, perché "x" è una stringa (non una var). Ma del resto Application(x) non saprei cosa potrebbe restituire, perché x è un array....

...insomma, è difficile dedurre il significato di questo codice...

[jartuf]

Hai ragione, nn ne capisco granchè di asp...
cmq l'alternativa che avevo trovato anzichè impazzire con Jscript x inserirlo è questo codice

<% 
x=Application("online") 
dim nomi
nomi=split(x,"@")
response.write x
%>

ma restituisce il nick "jartuf" con "jartuf@1102374795690 "
questo credo xchè la chat memorizza anche parametri come tempo ecc..
Ho provato come sopra a dividere e farmi restituire solo i caratteri prima della "@" ma nn funge, ovviamente....

La mia interpretazione
'creo una variabile
'assegno a questa il valore di "x" prima della "@"
la richiamo con un response.write

Help me please.... :maLOL:

[supergeniux]

<%
Response.Write "Utenti connessi:

" 
arra = Split(Application("online"),"@") 

for i = 0 to UBound(arra) 
   Response.Write arra(i) & "
" 
next 
%>

[Ohmnibus]

quello che hai scritto fa:
-Crea una variabile
-Divide il contenuto di x usando "@" come delimitatore. Gli elementi così divisi andranno a creare un array messo in nome
-Stampa il contenuto di x esattamente come è stato letto (non sono state fatte modifiche ad x)

Per avere i caratteri prima di "@":

Dim sVar, sNome

sVar=Application("online") '"jartuf@1102374795690"
sVar=sVar & "@" 'Prevent zero lenght error

sNome=Left(sVar, InStr(sVar, "@")-1)
Response.Write sNome

Edit: ovviamente la mia è una risposta a jartuf, non a supergeniux (che ha postato mentre stavo scrivendo la mia risposta)

[jartuf]

x supergeniux_ il tuo script funge, ma nn splitta i nomi..

x Omnibus_il tuo script splitta bene, ma nn fa il ciclo e restituisce solo il primo loggato...

MA VI SIETE MESSI D'ACCORD0? :-)

Cmq sto cercando di "mischiare" i vs contributi molto generosi, speriamo bene.


thanks

Errata corrige:
x supergeniux_ il tuo script elimina il carattere "@" ma lascia il resto. xcui jartuf@123474560 diventa jartuf123474560

[supergeniux]

Mi dici come vengono salvati gli username?

[jartuf]

jartuf@1102445484618

questo è il risultato se nn splitto nulla