<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsNyheder Dim rsNyheder_numRows Set rsNyheder = Server.CreateObject("ADODB.Recordset") rsNyheder.ActiveConnection = MM_hid_conn_STRING rsNyheder.Source = "SELECT * FROM tnyheder ORDER BY dato DESC" rsNyheder.CursorType = 0 rsNyheder.CursorLocation = 2 rsNyheder.LockType = 1 rsNyheder.Open() rsNyheder_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsNyheder_numRows = rsNyheder_numRows + Repeat1__numRows %> Velkommen til HID
   

 

 

 

 

 

<% While ((Repeat1__numRows <> 0) AND (NOT rsNyheder.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNyheder.MoveNext() Wend %>
 

Du viderestilles...

 

 

<% rsNyheder.Close() Set rsNyheder = Nothing %>