<% 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 Länkar" rs.Open SQL, Conn, 1, 2 Do While Not rs.EOF %>

<% Response.Write rs("Beskrivning") %>

" target="_blank"><% Response.Write rs("Länk") %>

<% rs.MoveNext Loop rs.Close Conn.Close Set rs = Nothing Set Conn = Nothing %>