<%@LANGUAGE="VBSCRIPT"%> <% Dim Telefonliste Dim Telefonliste_numRows Set Telefonliste = Server.CreateObject("ADODB.Recordset") Telefonliste.ActiveConnection = MM_Leksjon8_STRING Telefonliste.Source = "SELECT * FROM telefonliste" Telefonliste.CursorType = 0 Telefonliste.CursorLocation = 2 Telefonliste.LockType = 1 Telefonliste.Open() Telefonliste_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Telefonliste_numRows = Telefonliste_numRows + Repeat1__numRows %> Untitled Document

Select Coffee

<% While ((Repeat1__numRows <> 0) AND (NOT Telefonliste.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Telefonliste.MoveNext() Wend %>
Firmanavn Kontaktperson Adresse Tlf Postnr Poststed
<%=(Telefonliste.Fields.Item("Firmanavn").Value)%> <%=(Telefonliste.Fields.Item("Kontaktperson").Value)%> <%=(Telefonliste.Fields.Item("Adresse").Value)%> <%=(Telefonliste.Fields.Item("Tlf").Value)%> <%=(Telefonliste.Fields.Item("Postnr").Value)%> <%=(Telefonliste.Fields.Item("Poststed").Value)%>

 

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