<%@ Language=VBScript %>
<%
' asp funkcije i subrutine
Dim con, RS, cSQL
Set con = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
con.Open "DSN=birchland"
cSQL = "select * From Help"
Set RS = con.Execute(cSQL)
%>
Birchland Realty
<% Do While Not RS.EOF %>
<% If RS("title") <> "" Then %>
<%= RS("title") %>
<% End If %>
<%= RS("help") %>
