<% sql = "SELECT * FROM datat ORDER BY Kertoja" %>

<% If rs.EOF Then Response.Write"

" Response.Write "

Ei lisättyjä tietoja.
" Response.Write "Takaisin

" Else %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>

Kertoja	Sadun otsikko
<%=rs.Fields("Kertoja").Value%>	<%=rs.Fields("Otsikko").Value%>	">

<% End If %>