opskriftscript driller
jeg har været ved at bygge om på et gammelt opskriftscript jeg havde.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 kikser lige her :-(
scriptet ligger på dette link: http://dianna.dk/opskrift
opskrift.asp hvor overskriften på opskriften i den enkelte kategori vises ser således ud:
<div align="center">
<center>
<table border="0" width="100%">
<tr>
<td width="100%" align="center">
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
If Request.QueryString("id") <> "" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM opskrift WHERE (ID = " & Request.QueryString("id") & ")"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
Response.write "<font face='Verdana' size='2'><TABLE WIDTH=""50%"" BORDER=""0"" BGCOLOR=""#EFDEBD"" BORDERCOLOR=""#EFDEBD""><TR VALIGN=""top""><TD><A HREF=""view.asp?id="& rs("id") & """>"& rs("overskrift") & "<br></A></TABLE><BR>"
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
End If
%>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<p align="center"> <%If Clng(intPage) > 1 Then
Response.Write "<font face='Verdana' size='2'><a href=default.asp?page=" & intPage - 1 & ">Tilbage</a>"
Else
Response.Write "<font face='Verdana' size='2'>Tilbage"
End If%>
<font face='Verdana' size='2'>|<a href="searchform.asp">Søg en opskrift</a> | <a href="ny.asp">Nyeste opskrifter</a> | <a HREF="tilfny.asp" TARGET="_top">Tilføj opskrift</a> |<%
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%>
</td>
</tr>
</table>
</center>
</div>
</BODY>
