<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Connectionnoget.asp" -->
<%
Dim forretteroghovedretter
Dim forretteroghovedretter_numRows
Set forretteroghovedretter = Server.CreateObject("ADODB.Recordset")
forretteroghovedretter.ActiveConnection = MM_Connectionnoget_STRING
forretteroghovedretter.Source = "SELECT * FROM [forretter og hovedretter]"
forretteroghovedretter.CursorType = 0
forretteroghovedretter.CursorLocation = 2
forretteroghovedretter.LockType = 1
forretteroghovedretter.Open()
forretteroghovedretter_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
forretteroghovedretter_numRows = forretteroghovedretter_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link href="fhnystyle.css" rel="stylesheet" type="text/css">
</head>
<body>
<p><span class="overskrift0">Forretter og Hovedretter</span> </p>
<%
While ((Repeat1__numRows <> 0) AND (NOT forretteroghovedretter.EOF))
%>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60" valign="top" class="broedtxt"><%=(forretteroghovedretter.Fields.Item("varenr").Value)%></td>
<td width="300" align="left" valign="top"><span class="overskrift1"><%=(forretteroghovedretter.Fields.Item("varenavn").Value)%></span><br>
<span class="broedtxt"><%=(forretteroghovedretter.Fields.Item("varebeskrivelse").Value)%></span>
</td>
<td width="20" align="right" valign="bottom" class="broedtxt">Kr.</td>
<td width="40" align="right" valign="bottom" class="broedtxt"><%= FormatNumber((forretteroghovedretter.Fields.Item("pris").Value), 2, -2, -2, -2) %></td>
</tr>
<tr>
<td colspan="4" valign="top" class="broedtxt"><hr align="center" noshade></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
forretteroghovedretter.MoveNext()
Wend
%>
</body>
</html>
<%
forretteroghovedretter.Close()
Set forretteroghovedretter = Nothing
%>
