opskriftscript driller
Jeg sidder pusler med et gammel opskriftscript jeg havde liggende. Når jeg klikker på en kategori for at se opskrifterne i den enkelte kategori viser den ikke opskrifterne, men når man klikker på "Nyeste opskrifter" vises opskriften fint. Hvad er der galt siden jeg ikke kan få opskrifterne til at blive vist under den rigtige kategori?Default.asp ser således ud:
<html>
<head>
<title>Opskrifter</title>
<link rel="stylesheet" type="text/css" href="css.asp">
<style TYPE="text/css">
a:link { text-decoration: none ; color:#573507 }
a:visited { text-decoration: none ; color:#573507 }
a:active { text-decoration: none ; color: #573507 }
a:hover { text-decoration: underline and overline ; color: #573507 }
</style>
</head>
<body text="#573507" bgcolor="#EFDEBD" link="#573507" vlink="#573507" alink="#573507"><br>
</font></td>
</tr>
</table>
</center>
</div>
<center><table BORDER=0 CELLSPACING=0 COLS=1 WIDTH="200">
<tr>
<td>
<HR SIZE=1 COLOR=#573507>
<CENTER><FONT FACE="VERDANA" SIZE="2">Opskrifter</FONT></CENTER>
<HR SIZE=1 COLOR=#573507></td>
</tr>
</table></center>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM cat ORDER BY cat ASC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
Response.Write "<center><table BORDER=0 CELLSPACING=0 COLS=1 WIDTH='200'>"
Response.Write "<tr>"
Response.Write "<UL>"
Response.Write "<LI><A HREF=""opskrift.asp?id="& rs("id") & """>"& rs("cat") & "</A>"
Response.Write "</UL>"
Response.Write "</TD>"
Response.Write "</TR>"
Response.Write "</TABLE>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write " "
%>
</font>
</p>
<div align="center">
<center>
<tr>
<td width="20%" height="1">
<p align="center"> <font face="Verdana" size="2"><%If Clng(intPage) > 1 Then
Response.Write "<a href=default.asp?page=" & intPage - 1 & ">Tilbage</a>"
Else
Response.Write "Tilbage"
End If%>
<font face="Verdana" size="2" >| <a href="searchform.asp"><font face="Verdana" size="2" >Søg en opskrift</font></a> | <a href="ny.asp"><font face="Verdana" size="2">Nyeste opskrifter</font></a>| <a HREF="tilfny.asp" TARGET="_top"><font face="Verdana" size="2">Tilføj opskrift</font></a> | <font face="Verdana" size="2">
<%
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default.asp?page=" & intPage + 1 & ">Næste side</a> "
Else
Response.Write "Næste side"
End If%></font></p>
</td>
</tr>
</table>
</center>
</div>
</BODY>
