Avatar billede Slettet bruger
28. januar 2002 - 20:57 Der er 4 kommentarer og
1 løsning

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">&nbsp;<%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> |&nbsp;&nbsp;<a href="ny.asp">Nyeste opskrifter</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a HREF="tilfny.asp" TARGET="_top">Tilføj opskrift</a>&nbsp;&nbsp;|<%
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>
Avatar billede coltau Juniormester
28. januar 2002 - 21:11 #1
Du skal anvende en while-løkke hvis du skal udskrive flere end en opskrift. Sådan:

    rs.Open strSQL, myConn, 1, 3

    do while not rs.EOF
      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.MoveNext
    loop
' slet    If Not (rs.BOF Or rs.EOF) Then
' flyt    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>"
' slet      rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
' slet  End If

Men jeg tror ikke at det er problemet. Hvad hedder feltet med kategori. ?
Avatar billede Slettet bruger
28. januar 2002 - 21:23 #2
jeg kan evt sende dig scriptet så er det måske nemmere at se fjelen :o)

i databsen har jeg oprettet to taller den ene hedder "opskrift" og den anden hedder "cat" hvor kategorierne bliver trukket ud på forsiden
Avatar billede coltau Juniormester
28. januar 2002 - 21:38 #3
Send det til claus@coltau.dk - men jeg skal kende de to tabelnavne + deres indhold af felter. Eller send databasen/testdatabase med. (Zippet)
Avatar billede Slettet bruger
28. januar 2002 - 21:43 #4
jeg har pakket og sendt det til dig :-)
Avatar billede Slettet bruger
28. januar 2002 - 22:33 #5
takker for hjælpen nu køre det som det skal :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester