den skriver ingenting... min koder ser sådan her ud:
<%@ Language="VBScript" %>
<% Option Explicit %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "
http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"><html xmlns="
http://www.w3.org/1999/xhtml" >
<head>
<title>Untitled Page</title>
<link rel="stylesheet" href="style.css" TYPE="text/css" />
</head>
<body>
<%
Dim Connection, Dsn, Sql1, Sql2, RecordSet, vare, antal, pris, vaegt, samletpris, sessionID
SessionID = session.SessionID
Session("vare") = Request.QueryString("varenummer")
Session("antal") = Request.QueryString("antal")
Session("vaegt") = Request.QueryString("vaegt")
Session("pris") = Request.QueryString("pris")
Set Connection = Server.Createobject("ADODB.Connection")
Dsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("produkter.mdb")
Sql1 = "SELECT * FROM produkter ORDER BY varenummer"
Connection.Open Dsn
Set RecordSet = Connection.Execute(Sql1)
%>
<table class="tableprodukter" border="1" cellpadding="0" cellspacing="0">
<tr>
<td class="tdvnr">Varenummer</td>
<td class="tdvn">Varenavn</td>
<td class="tdvaegt">Vægt i kg.</td>
<td class="tdpris">Pris i kg.</td>
<td class="tdinfo">Info</td>
<td class="tdantal">Antal</td>
<td class="tdkurv">Kurv</td>
</tr>
</table>
<%Do Until RecordSet.EOF %>
<table class="tableprodukter" border="1" cellpadding="0" cellspacing="0">
<tr>
<td class="tdvnr"><%=RecordSet("varenummer") %></td>
<td class="tdvn" ><%=RecordSet("varenavn") %></td>
<td class="tdvaegt"><%=RecordSet("vaegt") %></td>
<td class="tdpris"><%=RecordSet("pris") %></td>
<td class="tdinfo"><%=RecordSet("Info") %></td>
<form action="index.asp" method="get"><td class="tdantal"><input type="text" name="antal" class="antalbox" /></td>
<td class="tdkurv"><input type="image" src="kurv.gif" class="button" onClick="document.location='?page=index.asp&varernummer=<%=RecordSet("varenummer") %>&varenavn=<%=RecordSet("varenavn") %>&vaegt=<%=RecordSet("vaegt") %>&pris=<%=RecordSet("pris") %>&antal='+ this.form.antal.value;return false;"></td></form>
</tr>
</table>
<%
RecordSet.MoveNext
Loop
RecordSet.Close()
Connection.Close()
Set RecordSet = Nothing
Set Connection = Nothing
%>
</body>
</html>