Hej Det är bättre om du specieficerar vilka fält du vill hämta. Bättre prestanda ok, tack för all hjälp.Hjälp med nyhetscript
Jag håller på med ett nyhetscript. Nu har jag fått problem med själva visningen av nyheterna.
Jag har 2 tabeller, en Redaktion och en Nyheter.
I tabellen Nyheter så sparas Rubrik, Nyhet, Datum samt Skribent_id, Skribent_id är sedan koplad till tabellen Redaktion kolumn ID. I tabellen Redaktion så vill jag att Namn resp. email pressenteras.
Hur gör jag nu för att få fram rätt skribent till nyheten?
min kod jag har som hämtar nyheten är:
<!--#Include file="inc/settings.asp"-->
<link href="../style.css" rel="stylesheet" type="text/css">
<body style="background-color: #FFFFFF" leftmargin="20">
<br>
<font face="Verdana"><span style="font-size: 6pt">
<%
'############### PAGING-SYSTEM ###############
Set objRS = objConn.Execute("SELECT count(*) AS intRecords FROM nyheter")
strCount = 0 ' Nollställer räknaren som ska räkna posterna när vi loopar
intRecords = objRS("intRecords") ' Kollar hur många poster det finns i gästboken
intPagesize = 8 ' Hur många poster per sida
intPages = Int(((intRecords) + (intPageSize) - 1) / (intPageSize)) ' Kollar hur många sidor det finns
On Error Resume Next
intPage = CLng(Request.Querystring("sida"))
If Err then
intPage = 1 ' Om det är fel så kommer man till sida 1
End if
On Error Goto 0
'Kollar så att personen är på någon sida
If int(intPage) = "" OR int(intPage) < 1 then
intPage = 1
End If
'############### NYHETER ###############
Set objRS=objConn.Execute("SELECT * FROM nyheter WHERE kategori='start' ORDER BY datum DESC")
'Gör så att sidan börjar med rätt post!
objRS.Move((intPage*intPagesize)-intPagesize)
Do
' Om det inte finns poster att skriva ut så slutar den loopen (Exit do)
If objRS.EOF then
Exit Do
Response.Write "<b>Det finns inga nyheter!</b>"
' Om det är 10 poster (eller vad du har valt) så slutar den loopa
ElseIf strCount = intPageSize then
Exit Do
End If
' Räknar posterna
strCount = strCount + 1
%>
</span></font>
<table border="0" width="449" cellspacing="0" cellpadding="0">
<tr>
<td class="mork" width="449" valign="top">
<font color="#000000" size="2" face="Verdana"><b><%=objRS("Rubrik")%></b></font><font color="#000000" size="3" face="Verdana"> </font> - <font color="#000000" size="1" face="Verdana"><%=objRS("Datum")%><br>
Skrivet av " style="text-decoration: none"><%=objRS("Skribent")%></font></td>
</tr>
<tr>
<td class="ljus" width="449" valign="top" style="border: 3px solid #C0C0C0">
<font style="font-size: 8pt">
<%=nyhet(objRS("Nyhet"))%>
</font>
<a target="_top" href="http://<%=objRS("lank")%>" style="text-decoration: none">
<font face="Verdana" style="font-size: 8pt"><%=objRS("lanknamn")%></font></a><font size="2" style="font-size: 8pt">
</font>
</td>
</tr>
<tr>
<td width="449" valign="top" class="dot"></td>
</tr>
</table><br>
<font size="1" face="Verdana">
<%
objRS.Movenext
Loop
' En funktion som skriver ut sidorna
Response.Write sidor(intPage,intPages)
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%></font>
</body>
Tacksam för all hjälp jag kan få :D
Sv: Hjälp med nyhetscript
Set objRS=objConn.Execute("SELECT N.Id, N.rubrik,N.datum, N.Nyhet, N.lank, N.lanknamn, R.Skribent, R.Email FROM nyheter N INNER JOIN Redaktionen R ON N.Skribent_id = R.id WHERE N.kategori='start' ORDER BY N.datum DESC")
Kontrollera om rättfält hämtas från rätt tabellSv:Hjälp med nyhetscript
det löste sig med denna.
SELECT nyheter.Datum, nyheter.Rubrik, nyheter.Nyhet, nyheter.lank, nyheter.lanknamn, nyheter.kategori, nyheter.skribent_id, redaktionen.namn, redaktionen.email, redaktionen.ID
FROM redaktionen INNER JOIN nyheter ON redaktionen.ID = nyheter.skribent_id;