" End If Response.write "

" & vbcrlf & "

" If Mid(objRS("tl"),3,1) = "#" Then Response.write Mid(objRS("tl"),4) Else Response.write objRS("tl") End If Response.write "

<% If Session("vareid") <> "" And Session("vareid") <> 0 Then Response.write "" Else Response.write "" End If %>

<% = varetitel %>

<% = undertitel %>

<% '''''''''''''''''''''''''Hent varer'''''''''''''''''''''''''''''''''''' sql = "SELECT * FROM varer WHERE billede > 0 AND billede = """ & Session("vareid") & """ ORDER BY varer.varenummer" Set objRS = Conn.Execute(sql) While Not objRS.EOF %> <% '''''''''''''''''''''''slut hent varer'''''''''''''' objRS.Movenext Wend objRS.Close %>

<% If Session("vareid") <> "" And Session("vareid") <> 0 Then %> Varenr. <% End If %>

<% If Session("vareid") <> "" And Session("vareid") <> 0 Then Response.write xa1 End If%>

<% If Session("vareid") <> "" And Session("vareid") <> 0 Then Response.write xa2 End If%>

<% If Session("vareid") <> "" And Session("vareid") <> 0 Then %> Antal/pk<% End If %>

<% If Session("kunde") <> "" And Session("vareid") <> 0 Then %>Pris<% End If %>

<% If Session("kunde") <> "" And Session("vareid") <> 0 Then %>Indkøbskurv<% End If %>

<% = objRS("varenummer") %>

<% = objRS("b1") %>

<% = objRS("b2") %>

<% = objRS("antal") %>

<% If Session("kunde") <> "" Then Response.write objRS("pris") & " DKK" End If %>

<% If Session("kunde") <> "" Then %>);return(false);"><% End If %>