kort forklaring på hvad jeg skal bruge den til :
Jeg er ved at lave en webshop, hvor der er ca 2000 varenumre, nogle af disse bruger samme billede, derfor skal de vises sammen med dette billede alle sammen (ca. 1-8 varer pr. foto)
Der skal altså først sorteres efter et menupunkt (6 forskellige varegrupper 1-6) derefter skal de listes i en tabel med tilhørende foto.
Præsis som de gør i nedenstående script.
Eneste problem med dette script er, at det tager viiildt lang tid at generere siden, dvs. op til ½ minut, så der er megen ventetid når man klikker rundt på siden.
Jeg håber du kan se hvad jeg mener når du kikker på scriptet.
Jeg vil forhøje til 200point, hvis du kan løse det for mig.
Her er "sovsen"
----
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>varer</title>
</head>
<body bgcolor="#50639B" >
<%
kode = Request.Querystring("gr")
%>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data/icl-prisbog.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select distinct foto from Varer where varegruppenr="& kode
Set billedeList = Conn.Execute(strSQL)
%>
<table border="0" width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="3">
<tr>
<td width="100%">
<p align="center">
<img border="0" src="produktfoto/logo-lys[1].gif"><br>
<b><font face="Verdana" size="6" color="#FFFFFF"><% = request("gruppe") %></font></b></td>
</tr>
<tr>
<td width="100%">
</td>
</tr>
<%
' Gennemløb Recordset (rs) med en løkke
Do While Not billedeList.EOF
%>
<tr><td>
<table border="0"><tr><td width="120">
<a href="storfoto.asp?kode=<%response.write billedeList("foto")%>" target="external" onclick="window.open('', 'external', 'width=500,height=500')"><img border="0" src="produktfoto/<%=billedeList("foto")%>_small.jpg" ></a>
</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber2">
<tr>
<td width="8%"><b><font face="Verdana" size="1" color="#C0C0C0">
Varenr. </font></b></td>
<td><b><font face="Verdana" size="1" color="#C0C0C0">Betegnelse
</font></b></td>
<td width="8%" align="center"><b>
<font face="Verdana" size="1" color="#C0C0C0">Lille pk.</font></b></td>
<td width="12%" align="center"><b>
<font face="Verdana" size="1" color="#C0C0C0">Pris</font></b></td>
<td width="8%" align="center"><b>
<font face="Verdana" size="1" color="#C0C0C0">Stor pk.</font></b></td>
<td width="12%" align="center"><b><font face="Verdana" size="1" color="#C0C0C0">
Pris</font></b></td>
<td width="12%" align="center">
<b>
<font face="Verdana" size="1" color="#C0C0C0">Lille pakke</font></b></td>
<td width="12%" align="center">
<b>
<font face="Verdana" size="1" color="#C0C0C0">Stor pakke</font> </b>
</td>
</tr>
<%
strSQL = "Select * from Varer where varegruppenr="& kode&" AND foto = '" & billedeList("foto") & "'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
%>
<form method="POST" action="kurv.asp?kode=bestil">
<input type="hidden" name="kunde" size="20" value="<%response.write session("kunde")%>">
<input type="hidden" name="varenummer" size="20" value="<%response.write rs("nr")%>">
<input type="hidden" name="betegnelse" size="20" value="<%response.write rs("betegnelse")%>">
<input type="hidden" name="foto" size="20" value="<%response.write rs("foto")%>">
<input type="hidden" name="lillepakke" size="20" value="<%response.write rs("lillepak")%>">
<input type="hidden" name="storpakke" size="20" value="<%response.write rs("storpak")%>">
<input type="hidden" name="storpakpr" size="20" value="<%response.write rs("storpakpr")%>">
<input type="hidden" name="lillepakpr" size="20" value="<%response.write rs("lillepakpr")%>">
<tr>
<td width="8%"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("nr")%></font></td>
<td><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("betegnelse")%></font></td>
<td width="8%" align="center"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("lillepak")%> stk.</font></td>
<td width="12%" align="center"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("lillepakpr")%> kr/stk</font></td>
<td width="8%" align="center"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("storpak")%> stk.</font></td>
<td width="12%" align="center"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("storpakpr")%> kr/stk</font></td>
<td width="12%" align="center">
<input type="text" name="lillepakkestk" size="4" onclick="this.value=''" value="0" style="text-align: right"><input type="submit" value="bestil" name="bestil1" style="color: #C0C0C0; border: 0px solid #C0C0C0; background-color: #50639B"></td>
<td width="12%" align="center">
<input type="text" name="storpakkestk" size="4" onclick="this.value=''" value="0" style="text-align: right"><input type="submit" value="bestil" name="bestil" style="color: #C0C0C0; border: 0px solid #C0C0C0; background-color: #50639B"></td>
</tr>
</form>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
%>
</table>
</td></tr>
</table>
<hr style="border: 1px dotted #C0C0C0" color="#C0C0C0" width="800" size="1">
<%
billedeList.Movenext
loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</td></tr>
</table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
