problema con tag title dinamico da db

[kunder]

Ciao,
devo generare un tag title dinamico che cambia in funzione dedi dati che pesca dal db. La tabella del db contiene un campo ID e un campo Title.

Ho scritto questa funzione:

Function GeneraSchedaTitle(titoloschedaID)

Dim ConnObj, RecordTitoloScheda

if titoloschedaID <> "" then

Set ConnObj = Server.CreateObject("ADODB.Connection")
ConnObj.Open MyConnStr
SQL = "SELECT Title FROM tabella WHERE tabella.ID = " & titoloschedaID
if Debug = True then response.write SQL
Set RecordTitoloScheda = ConnObj.Execute(SQL)

If RecordTitoloScheda.EOF then

GeneraSchedaTitle = ""

else

if RecordTitoloScheda("Title") <> 0 then
GeneraSchedaTitle RecordTitoloScheda("Title")
end if

if RecordTitoloScheda("Title") <> 0 then
TitleText = TitleText & " "
end if

TitleText = TitleText & RecordTitoloScheda("Title")

GeneraSchedaTitle = TitleText & " "

end if

ConnObj.Close
Set RecordTitoloScheda = Nothing

else

GeneraSchedaTitle = " "

end if


End Function

Poi la inserisco nel tag title:

<title>Titolo: <% = GeneraSchedaTitle(ID) %></title>

Ma non mi compare nienete se non Title:

Sembra che no riesce a pescare il valore Title.

Non riesco a capire dove sbaglio.

Qualcuno ha voglia di darmi un suggerimento ?
Grazie

[nippotricco]

<title>Titolo: <% = If RecordTitoloScheda("Title") <> "" Then Response.Write(RecordTitoloScheda("Title")) %></title>

senza usare nessuna funzione

[kunder]

ho provato ma mi dà errore: prevista istruzione.

[fero]

cosi

<title>Titolo: <%If RecordTitoloScheda("Title") <> "" Then Response.Write(RecordTitoloScheda("Title")) %></title>

[nippotricco]

Originariamente inviato da fero
cosi

<title>Titolo: <%If RecordTitoloScheda("Title") <> "" Then Response.Write(RecordTitoloScheda("Title")) %></title>

ho fatto un copia incolla senza farci caso!!

[kunder]

Grazie.
Ora non mi dà errore (anche io ho fatto un copia incolla senza vedere che c'era un = in più) però non mi dà nessun valore e mi riporta nel tag title il percorso completo della pagina....

[kunder]

OK risolto (dopo un buon pranzo....)
Questa è la soluzione:

<title>
<%
Dim ConnObj, RecordTitoloScheda
Set ConnObj = Server.CreateObject("ADODB.Connection")
ConnObj.Open MyConnStr
SQL = "SELECT Title FROM Tabella WHERE Tabella.ID = " & ID
if Debug = True then response.write SQL
Set RecordTitoloScheda = ConnObj.Execute(SQL)

If RecordTitoloScheda("Title") <> "" Then Response.Write(RecordTitoloScheda("Title")) %>
</title>

Spero possa essere utile ad altri