I får lige hele koden til min shop.asp :
<% @ LANGUAGE = VBScript %>
<%
' Vi åbner forbindelse til databasen
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=D:\mrsskipper.dk\database\produkter.mdb;" &_
"Persist Security Info=False;"
%>
<%
Dim rst
Set rst = Server.CreateObject("ADODB.Recordset")
Dim strSQL
if request("mode") = "" then
strSql = "Select * from qryProdukter"
%>
<%
rst.Open strSQL, con, 3, 1, 1
%>
<% billede = rst("thumbs") %>
<% billedestor = rst("billedenavn") %>
<html>
---->> unødvendig kode ----<<<
<% do while not rst.EOF %>
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="198" valign="top"><pre>Kategori: <%=rst("kategori")%>
Billedenr.: <%=rst("id")%>
Pris: <%=rst("pris")%> kroner.</pre></td>
<td width="21" rowspan="2" valign="top"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="581" rowspan="4" align="right" valign="top"> <a href="java script:openWin('/html/galleripopup.asp?kode=<%=rst("id")%>');">
<% response.write "<img border=""1"" src=""" & rst("thumbs") & """>"%>
</A> </td>
</tr>
<tr>
<td valign="top"> </td>
</tr>
<tr>
<td valign="top"> </td>
<td width="21" valign="top"></td>
</tr>
<tr>
<td width="198" valign="top"></td>
<td width="21" valign="top"></td>
</tr>
<tr>
<td valign="top"></td>
<td width="21" valign="top"></td>
<td width="581" valign="top">
<form method="post" action="shop.asp?mode=tilkurv&kode=<%=rst("id")%>&pris=<%=rst("pris")%>">
<input type="submit" value="Bestil vare">
</form></td>
</tr>
<tr bgcolor="#666666">
<td colspan="3" height="2"></td>
</tr>
</table>
<% rst.movenext
Loop %>
<% end if %>
<a href="kurv.asp">Se kurvens indhold</a></tr>
</table></td>
</tr>
</table>
<tr>
<td>
<%
'\\ Start ASP'en når man lægger noget i indkøbskurven
If Request("mode") = "tilkurv" Then
'\\ Start Tjekker om Antallet man har skrevet er et tal eller ingen tegn
If IsNumeric(request.form("antal")) or request.form("antal") = "" Then
'\\ Start Skriver antallet i en variabel
if request.form("antal") = "" then
antal = 1
else
antal = request.form("antal")
end if
'// Slut Skriver antallet i en variabel
'\\ Start Tjekker om stregkoden allerede er lagt i db'en en gang
if session("kode" & request("kode")) = "" then
'\\ Start hvis ikke stregkoden findes i en session
if session("kurvnr") = "" or session("kurvnr") = 0 then
session("kurvnr") = 1
else
session("kurvnr") = session("kurvnr") + 1
end if
session("vare" & session("kurvnr")) = request("kode") & " " & antal
session("kode" & request("kode")) = session("kurvnr")
'// Slut hvis ikke stregkoden findes i en session
else
'\\ Start hvis stregkoden findes i en session
antal2 = Split(session("vare" & session("kode" & request("kode"))), " ")
session("vare" & session("kode" & request("kode"))) = request("kode") & " " & Int(antal) + antal2(1)
'// Slut hvis stregkoden findes i en session
end if
'// Slut Tjekker om stregkoden allerede er lagt i db'en en gang
end if
'// Slut Tjekker om Antallet man har skrevet er et tal
end if
'// Slut ASP'en når man lægger noget i indkøbskurven
---->> unødvendig kode <<------
- kan det bruges?
