Selvfølgelig må du se siden ;-)
Den kommer her:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../../../Connections/Online.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("book_nr") <> "") Then
Recordset1__MMColParam = Session("book_nr")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Online_STRING
Recordset1.Source = "SELECT * FROM dbo.gods_tabel WHERE book_nr = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY linie ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
Session("Usernr")=Session("Usernr")
session("book_nr")=session("book_nr")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="
http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<script type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<!--#include file="../../../../Connections/tjek.asp" -->
</head>
<body class="style1">
<%
dim lin, maerk, ant, enh, besk, vol, vaeg, di
lin=40
maerk=120
ant=50
enh=50
besk=120
vol=90
vaeg=60
di=110
%>
<table border="0">
<tr>
<td class="style1" <%response.Write("width='" & lin & "'")%>>Linie</td>
<td class="style1" <%response.Write("width='" & maerk & "'")%>>Mærke/Nr.</td>
<td class="style1" <%response.Write("width='" & ant & "'")%>>Antal</td>
<td class="style1" <%response.Write("width='" & enh & "'")%>>Enhed</td>
<td class="style1" <%response.Write("width='" & besk & "'")%>>Beskrivelse</td>
<td class="style1" <%response.Write("width='" & vol & "'")%>>Volume</td>
<td class="style1" <%response.Write("width='" & vaeg & "'")%>>Vægt</td>
<td class="style1" <%response.Write("width='" & di & "'")%>>Dimensioner</td>
</tr>
</table>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<table border="0">
<tr>
<td class="style1" <%response.Write("width='" & lin & "'")%>><%=(Recordset1.Fields.Item("linie").Value)%></td>
<td class="style1" <%response.Write("width='" & maerk & "'")%>><%=(Recordset1.Fields.Item("Mrk_nr").Value)%></td>
<td class="style1" <%response.Write("width='" & ant & "'")%>><%=(Recordset1.Fields.Item("Antal").Value)%></td>
<td class="style1" <%response.Write("width='" & enh & "'")%>><%=(Recordset1.Fields.Item("enhed").Value)%></td>
<td class="style1" <%response.Write("width='" & besk & "'")%>><%=(Recordset1.Fields.Item("Gods_beskr").Value)%></td>
<td class="style1" <%response.Write("width='" & vol & "'")%>><%=(Recordset1.Fields.Item("vaegt").Value)%> <span class="style8"><%=(Recordset1.Fields.Item("volume").Value)%></span></td>
<td class="style1" <%response.Write("width='" & vaeg & "'")%>><%=(Recordset1.Fields.Item("gods_kilo").Value)%> kg</td>
<td class="style1" <%response.Write("width='" & di & "'")%>><%=(Recordset1.Fields.Item("gods_dim").Value)%> cm</td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<p>
<label class="style1">
<input name="Button" type="button" class="style1" onClick="parent.hoved.location='taellinier.asp?status=tilfoej'" value="Tilføj linier" />
<input name="Submit2" type="button" class="style1" onClick="parent.hoved.location='taellinier.asp?status=afsend'" value="Afslut booking" />
</label>
</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
