Simpel ASP.....

vtype=Request.querystring(\"type\")

SQLSTRING=\"SELECT * FROM database WHERE type=\'\"&vtype&\"\'\"

Den øverste linie skal bare stå et sted i toppen. Den anden linie skal naturligvis passes til din database.

Frem over burde det så være muligt for dig at lave et link:
vis.asp?type=Printer

eller hvad du nu vil se.

Håber det kan gøre det, hvis du har siden liggende vil jeg gerne rette den til så den kommer til at virke.

Lav link til vis.asp med:

vis.asp?type=Grafikkort
vis.asp?type=Printer

På siden som lister produkterne skal du så bruge:

strType=Request.QueryString(\"type\")

Og så tilføjer du i din sql:

strSql = \"SELECT * FROM Produkter Where PType = \'\" & strType & \"\'\"

Udskift produkter of ptype med navne som passer til din tabel.

Mvh
dudal

Min Vis.asp ser nu sådan ud.. Jeg fatter ikke lige hvad det er jeg skal gøre..


<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#BFB49E\">
<div align=\"center\">
  <table bgcolor=\"#FFFFFF\" width=\"928\" border=\"1\" height=\"635\">
    <tr>
      <td bgcolor=\"#BFB49E\" valign=\"top\" height=\"595\" width=\"171\">
        <div align=\"center\">
          <p>&nbsp;</p>
          <p>&nbsp;</p>
          <p><object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"145\" height=\"352\">
              <param name=movie value=\"Image/menu1.swf\">
              <param name=quality value=high>
              <embed src=\"Image/menu1.swf\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"145\" height=\"352\">
              </embed>
            </object></p>
        </div>
      </td>
      <td valign=\"top\" height=\"595\" width=\"741\">
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <table width=\"100%\" border=\"1\">
          <tr>
            <td width=\"76\">Type</td>
            <td width=\"115\">Navn</td>
            <td width=\"93\">Win95</td>
            <td width=\"91\">Win98</td>
            <td width=\"94\">WinME</td>
            <td width=\"93\">WinNT4</td>
            <td width=\"91\">Win2k</td>
            <td width=\"93\">Linux</td>
          </tr>
        </table>
        <%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
strSQL = \"Select * From drivere\"
Set RS = Conn.Execute(strSQL)
%> <% if rs.EOF then
Response.write \"<font face=\"\"Tahoma\"\" size=\"\"2\"\"><i>Der er ingen ting i databasen...</i></font>\"
else
Do Until rs.EOF%>
        <table width=\"100%\" border=\"1\" height=\"10\" cellpadding=\"1\" cellspacing=\"1\">
          <tr>
            <td width=\"76\"><%= RS(\"Type\")%></td>
            <td width=\"114\"><%= RS(\"Navn\")%></td>
            <td width=\"93\"><a href=\"filer/<%= RS(\"filWin95\")%>\"><%= RS(\"Windows95\")%></A></td>
            <td width=\"91\"><a href=\"filer/<%= RS(\"filWin98\")%>\"><%= RS(\"Windows98\")%></a></td>
            <td width=\"95\"><a href=\"filer/<%= RS(\"filWinME\")%>\"><%= RS(\"WindowsME\")%></a></td>
            <td width=\"93\"><a href=\"filer/<%= RS(\"filWinNT4\")%>\"><%= RS(\"WindowsNT4\")%></a></td>
            <td width=\"91\"><a href=\"filer/<%= RS(\"filWin2k\")%>\"><%= RS(\"Windows2000\")%></a></td>
            <td width=\"93\"><a href=\"filer/<%= RS(\"filLinux\")%>\"><%= RS(\"Linux\")%></a></td>
          </tr>
        </table>
        <%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
      </td>
    </tr>
  </table>
  <p>&nbsp; </p>
</div>
</body>
</html>

Jeg har fikset det.. og begge måder virker.. så i får lov til at dele pointene.... Tak skal i have..