Kategorivisning - Request.Querystring("Kategori")
Jeg har følgende 2 filer.En kategori.asp - der udskriver kategorierne &
En links.asp - der skal vise indholdet i de enkelte kategori.
Det skal her være muligt at oprette, rettet og gøre ved, men jeg får følgende fejl når jeg sender kategorien med
som en tekst streng. Altså: links.asp?Kategori=Drivere
Men jeg får en fejl i visningen af links.asp ??!!! Kan nogen hjælpe..
Her er koden til kategori.asp:
<html>
<head>
<link href="../style/indhold.css" rel="stylesheet" type="text/css">
<title>Kategori</title>
</head>
<body topmargin="2" leftmargin="2">
<center>
<div align="center">
<center>
<table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%">
<tr>
<td colspan="2"><b>Links</b><br><br></td>
</tr>
<tr>
<td align="center" valign="top">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../log/forhandlere.mdb")
Conn.Open DSN
strSQL = "Select * From Kategori"
Set rs = Conn.Execute(strSQL)
Response.Write "<center><table width='' cellspacing=0 cellpadding=4 border=1 style='border-collapse: collapse' bordercolor='#111111'>"
Do while not rs.eof
Response.Write "<TR><TD valign='top' width='100%'><b><a href='links.asp?Kategori=" & RS("Kat") & "'>" & rs("Kat") & "</a></b></td></tr>"
rs.MoveNext
Loop
Response.Write "</tr></table></center><br><br>"
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Koden til links.asp:
<html>
<head>
<link href="../style/indhold.css" rel="stylesheet" type="text/css">
<title>Links</title>
</head>
<body topmargin="2" leftmargin="2">
<center>
<div align="center">
<center>
<table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%">
<tr>
<td colspan="2"><b>Links</b><br><br></td>
</tr>
<tr>
<td align="center" valign="top">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../log/forhandlere.mdb")
Conn.Open DSN
strSQL = "Select * From Links WHERE Kategori = " Request.Querystring("Kategori")
Set rs = Conn.Execute(strSQL)
Response.Write "<table width='90%' cellspacing=0 cellpadding=4 border=1 style='border-collapse: collapse' bordercolor='#111111'><tr><TD colspan='2' bgcolor='#7F99B2'><font color='#FFFFFF'><b>" & rs("kategori") & ":</b></font></td></tr>"
Do while not rs.eof
Response.Write "<tr><TD valign='top' width='100%'><b>" & "<a target='_blank' href=" & rs("Link") & ">" & RS("Navn") & "</a></b></td></tr>"
rs.MoveNext
Loop
Response.Write "</tr></table><br><br>"
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
