<% SQLNotams = "Select TimeFrame, Notam From Notams WHERE Deleted <> 1"
Set rsNotams = Conn.Execute(SQLNotams)
Do While Not rsNotams.EOF
Ntimeframe = trim(rsNotams("TimeFrame"))
Nnotam = trim(rsNotams("Notam"))
%>EFFECTIVE: <%=Ntimeframe%>
<%=Nnotam%>