%
'* PRESENTERAR INFORMATION OM KUNDEN, SÖKORD, BESKRIVNING
'**************************************************************
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "DSN=KT080128_webman;UID=;pwd="
SQL = ""
Set rsKund = CreateObject("ADODB.Recordset")
Set rsKund.ActiveConnection = objConn
rsKund.Open "SELECT * FROM head"
Do While Not rsKund.EOF
%>
<%= rsKund("title")%>
">
">
">
<%
rsKund.MoveNext
Loop
rsKund.close
set rsKund = Nothing
objConn.close
set objConn = Nothing
%>
<%
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "DSN=KT080128_webman;UID=;pwd="
SQL = ""
Set rsSok = CreateObject("ADODB.Recordset")
Set rsSok.ActiveConnection = objConn
rsSok.Open "SELECT * FROM tblContact order by contactID"
%>
<%= rsSok("name") %>
<%= rsSok("Head") %>
<%
rsSok.close
set rsSok = Nothing
objConn.close
set objConn = Nothing
%>