Sub rutine vil ikke som jeg ønsker!

Jeg kunne godt bruge lidt hjælp til en subrutine der driller.

Jeg kalder en sub med denne linie,
SEOinfo intID

og sub'en ser sådan her ud,
--
    Sub SEOinfo(intID)
        dim strSQL
        dim rs
        dim strSEOname
       
        strSQL="SELECT SEOname FROM menu WHERE id="&intID&" AND active=1 AND OnlineDate <= #" & strCurrentDate & "# AND OfflineDate >#" & strCurrentDate & "#"
        'Response.Write strSQL
        set rs=conn.Execute(strSQL)
        While Not rs.EOF
            strSEOname = rs("seoname")
            'Response.Write strSEOname
        rs.Movenext
        Wend
    End Sub
--

Men den giver mig ikke noget retur til print på skærmen.

strSQL ser sådan her ud,
"SELECT SEOname FROM menu WHERE id=1 AND active=1 AND OnlineDate <= #2008-3-1# AND OfflineDate >#2008-3-1#" så den virker fint.

Ved en udskrift direkte fra sub'en med response.write strSEOname kommer den rette tekst også frem!

Kan du se hvad der går galt?
Jeg kan ikke se det?