ASP program and Web page separation

<!--#include file= "adoconn.asp"-->
<!--#include file= "kkttemplate.asp"-->
<%
'=========================================
' Function: Web page and program detach, and read data from the database
' Author: wangsdong
' Source: www.aspprogram.cn
' Article for the author original, reproduced please indicate the origin of the article, reserved for
' Person information, thank you for your support!
'=========================================
Dim My_color, Kkt, myname, animal, plant
Set kkt = new Kkttemplate
Kkt.set_file "Hndkkttemp", "templeta/4.html"

Sql= "SELECT * FROM News"
Set rs=conn.execute (SQL)
If rs.eof Then
Else
Kkt.set_block "Hndkkttemp", "Newslist", "a"
Do as not rs.eof
Kkt.set_var "title", RS ("title"), False
Kkt.set_var "id", RS ("id"), False
Kkt.parse "A", "newslist", True
Rs.movenext

Loop
End If
Rs.close

set animal=nothing
Kkt.parse "Out", "hndkkttemp", false
Kkt.p ' out '
%