produkter.asp:
..
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "pannor"
kat =(Request.Querystring("kat"))
Session("kat")=kat
show="SELECT * from farg WHERE Kategori=('"& kat & "') ORDER BY Nr"
Set result = Connect.Execute(show) %>
<center>
<table width="50%" align="center" cellspacing="0" cellpadding="0">
<tr><td>
<%do until result.EOF%>
<a href="visaprod.asp?id=<%=result("Nr")%>">
<img src="pannbilder/s<%=result("Nr")%>.jpg" BORDER="0"></a>
</td><td>
<%result.MoveNext
loop %>
</td></tr></table>
<br><font face="Verdana" size="1">
<form>
<select name="dest">
<option value="produkter.asp">Välj produktgrupp</option>
<option value="produkter.asp?kat=1a">1-kupigt obehandlad</option>
<option value="produkter.asp?kat=1b">1-kupigt ytbehandlad</option>
<option value="produkter.asp?kat=2a">2-kupigt obehandlad</option>
<option value="produkter.asp?kat=2b">2-kupigt ytbehandlad</option>
<option value="produkter.asp?kat=2c">2-kupigt högblankd</option>
<option value="produkter.asp?kat=3a">Betongtillbehör</option>
<option value="produkter.asp?kat=1b">1-kupigt ytbehandla</option>
</select>
<input type="button" value="Ok" onClick="location.href=this.form.dest.options[this.form.dest.selectedIndex].value">
</form>
visaprod.asp:
...
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "pannor"
kat =Session("kat")
id = Request.Querystring("id")
show="SELECT * from farg WHERE Kategori=('"& kat & "') ORDER BY Nr"
Set result = Connect.Execute(show)
show2="SELECT * from farg WHERE Nr =('"& id & "')"
Set result2 = Connect.Execute(show2) %>
<center>
<table width="50%" align="center" cellspacing="0" cellpadding="0">
<tr><td>
<%do until result.EOF%>
<a href="visaprod.asp?id=<%=result("Nr")%>">
<img src="pannbilder/s<%=result("Nr")%>.jpg" BORDER="0"></a>
</td><td>
<%result.MoveNext
loop %>
</td></tr></table>
</center>
<font face="Verdana" size="2">
<%do until result2.EOF%>
<br>
<div align="center">
<table border="0" width="95%">
<tr>
<td width="33%" align="right">
\<p align="left"\>
<form>
<select name="dest">
<option value="produkter.asp">Välj produktgrupp</option>
<option value="produkter.asp?kat=1a">1-kupigt obehandlad</option>
<option value="produkter.asp?kat=1b">1-kupigt ytbehandlad</option>
<option value="produkter.asp?kat=2a">2-kupigt obehandlad</option>
<option value="produkter.asp?kat=2b">2-kupigt ytbehandlad</option>
<option value="produkter.asp?kat=2c">2-kupigt högblankd</option>
<option value="produkter.asp?kat=3a">Betongtillbehör</option>
<option value="produkter.asp?kat=1b">1-kupigt ytbehandla</option>
</select>
<input type="button" value="Ok" onClick="location.href=this.form.dest.options[this.form.dest.selectedIndex].value">
</form>
\</td\>
<center>
<td width="33%" rowspan="3">
<font face="Verdana" size=2>
<img src="pannbilder/<%=id%>.jpg"></font></td>
<td width="34%" rowspand="2" rowspan="2">
<font face="Verdana" size=2>
<%=result2("beskrivning")%><br>
Art.nr <i><%=result2("Artnr")%></i> <br>
<%=result2("Fakta")%><br>
<% If result2("prodblad")<>"" Then %>
<a href="<%=result2("prodblad")%>.pdf" target=new>Produktblad</a>
\<%End if%\>
\</font\>
</td>
</tr>
<tr>
<td width="33%" align="left">
\</td\>
\</tr\>
<font face="Verdana" size=2>
<tr>
<td width="33%" align="left"></td>
<td width="34%"></td>
</tr>
</table>
</div>
<p>
<font face="Verdana" size="2">
<%result2.MoveNext
loop %>
..