<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DSN=d5469_yac;Password=yac002"
Dim SQL
SQL = "SELECT * From Delar"
rs.Open SQL, Conn, 1, 2
Do While Not rs.EOF
%>
<% Response.Write rs("Rubrik") %>
<% Response.Write rs("Info") %>
<% Response.Write rs("Pris") %>
<%
rs.MoveNext
Loop
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
