Salve a tutti, avrei una semplice domanda da fare:

Nella prima Function ASP apro una tabella e vado a verificare se il valore
passato nel parametro esiste in un campo del recordset.

<%
' ----------------------------------------------------------------------------
Function Utente_registrato(u)
' ----------------------------------------------------------------------------
SqlString="SELECT * FROM utenti "
SqlString=SqlString & " WHERE " & pnl(2) & " = '" & u & "'"
Apri_Pnl SqlString
set RSPNL=session("RS_Pnl")
Utente_registrato = NOT RSPNL.Eof
Chiudi_Pnl
End Function
%>

Nella seconda Sub in VB, nel caso che la risposta della function sia vera
appare un messaggio di avviso.

<script language="vbscript">
' ----------------------------------------------------------------------------
Sub controlla_dati
' ----------------------------------------------------------------------------
Dim TheForm, Testo, Titolo, Acapo
Set TheForm = document.forms(this)
Titolo="Attenzione!!"
Acapo=chr(13) & Chr(10)
xr=TheForm.usr.Value
If <%=Utente_registrato(xr)%> then
testo="Username " & ucase(xr) & " già utilizzato."
testo=testo & acapo & "Cambiare nome."
MsgBox Testo,0,Titolo
TheForm.usr.Focus
Exit sub
end if
TheForm.submit
End Sub
</script>

La funzione ASP viene riconosciuta e letta da VB, ma non riesco a passare il parametro (il valore della variabile xr). Se inserisco a mano, tra le parentesi, per esempio, "Pippo" (<%=Utente_registrato("PIPPO")%>), tutto funziona perfettamente.

Potete darmi una soluzione a questo problema??

Grazie
Giovanni