If kode virker ikke?!

Hej, jeg har denne her kode som skal tjekke i databasen om der står noget i input feltet, men det virker ikke. Hvad kan være galt?
<%
'DATABASE ADGANGEN STÅR HER:)

strSQL = "SELECT * FROM elever WHERE id=1001"
Set rs = Conn.Execute(strSQL)
if rs.bof or rs.eof then
%>
Kunne ikke findes
<%
else
Do
Mail = rs("mail")
%>
<% if mail <> "" then %>
Hej
<% else %>
Fejl
<% end if %>
<%
  rs.MoveNext

Loop While Not rs.EOF
end if
Conn.Close
Set Conn = Nothing
%>