Hvad gør jeg galt her

<%
sql="SELECT Count(Front.id) as Rc from Front;"
Set Rs = Conn.Execute (sql)
    if Rc<1 then
    strtext ="Denne besked vises fordi tabellen er tom"
    strdato=(date)
    strhead="Ingen poster"
    else
    sql = "SELECT * FROM Front ORDER BY id desc limit 1 ;"
    Set Rs = Conn.Execute (sql)
    strtext = Replace(rs("message"), vbCrLf, "<br />")
    strdato=rs("dato")
    strhead=rs("head")
    end if

%>