Sortering av nyheter...

8 svar · 266 visningar · startad av westminster 9 aug. 2004

westminsterMedlem sedan aug. 20045 inlägg

Frågan9 aug. 2004 11:53#1

...har läst inläggen här men det fungerar inte för mig :-(

Så här ser min kod ut och då kommer den senaste nyheten nederst men jag vill att det skall komma i omvänd ordning så att den senaste nyheten kommer överst.

Tack på förhand ;-)

<%
option explicit
dim objNewsService, NewsServiceRs, counter 
set objNewsService = CreateObject("nyheter.NewsService")
set NewsServiceRs = objNewsService.List ()
%>
<html>
<head>
<title>Nyheter</title>
<script LANGUAGE="JavaScript">
<!-- #include file="include/js_image.asp" -->
</script>
<!-- #include file="include/style.asp" -->
<script language="JavaScript">
<!-- #include file="include/js_dhtml.asp" -->
function read(id){
  var popupWin=null;
	var url = new String("getNewsService.asp?getNews=" + id)
		url += "&s=" + "<%=Server.URLEncode(now)%>"
	popupWin = window.open(url, "mail", "titelbar=0,channelmode=0,screenX=0,left=0,screenY=0,top=0,hotkeys=0,dependent=0,directories=0,fullscreen=0,location=0,menubar=0,resizable=0,scrollbars=yes,status=0,toolbar=0,width=310,height=560");
	if (popupWin == null){
		alert("Javascript fel: kunde inte öppna hjälpfönstret");
	}
}
</script>

</head>
<body background="pix/bkg4.jpg" bgcolor="#FFFFFF" marginwidth="0" marginheight="0" topmargin="0" leftmargin="0" ONLOAD="preloadImages();">
<table width="610" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="80"><img src="pix/p.gif" width="2" height="1" hspace="39"></td>
<td width="460"><img src="pix/p.gif" width="2" height="1" hspace="229"></td>
<td width="70"><img src="pix/p.gif" width="2" height="1" hspace="34"></td>
</tr>
<tr>
<td></td>
<td>
	<img src="pix/p.gif" width="1" height="1" vspace="10"><br>
	<table border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td>
				<img src="pix/rubrik/nyhet_rubrik.gif" width="383" height="24"></td>
			<td rowspan="2">
				<img src="pix/r_anm4.gif" width="76" height="71"></td>
		</tr>
		<tr>
			<td>
				<img src="pix/rubrik_linje.gif" width="383" height="47"></td>
		</tr>
	</table>
	<img src="pix/p.gif" width="1" height="1" vspace="10"><br>
	<img src="pix/p.gif" width="1" height="1" vspace="10"><br>
	<table width="470" border="0" cellspacing="0" cellpadding="0">
	<tr>
		<td width="120"><img src="pix/p.gif" width="2" height="1"></td>
		<td width="350"><img src="pix/p.gif" width="2" height="1"></td>
	</tr>
<%
set objNewsService = CreateObject("nyheter.NewsService")
set NewsServiceRs = objNewsService.List ()

	%>
	<tr>
		<td width="120" align="left" valign="top"><img src="pix/Nyheter/<%=NewsServiceRs("NWS_Picture")%>" width="100" height="100"></td>
		<td width="350" align="left" valign="top"><font size="2" face="verdana, arial, helvetica"><p>
		<b><%=NewsServiceRs("NWS_HeadLine")%></b>_<% = FormatDateTime(NewsServiceRs("NWS_Date"), vbShortDate)%>
		<br>
		<br>
		<% = Left(NewsServiceRs("NWS_Text"), instr(65,NewsServiceRs("NWS_Text")," ")) & "..."%>
		<br>
		<a href="javascript:read('<%=NewsServiceRs("NWS_Id")%>')">Läs mer</a></p>
		<p>
		<hr size="1" color="#999999" width="100%"></p>
		</font>		
		</td>
	</tr>
	<%
	NewsServiceRs.MoveNext
loop
%>
	</table>
	<br><a href="javascript:history.go(-1)"><img src="pix/pil_v.gif" width="30" height="30" border="0"></a><br><br>
</td>
<td></td>
</tr>
</table>
</body></html>

@ndersMedlem sedan juni 200032 967 inlägg

9 aug. 2004 11:56#2

Tre saker:

Använd [kod]-taggar så blir det lättare för oss att läsa den kod du bifogar.
Vad är "nyheter.NewsService" för någonting? Det är sannolikt i det objektet man får sätta sortering.
Välkommen till webForum! :bire

westminsterMedlem sedan aug. 20045 inlägg

9 aug. 2004 12:04#3

1.) Skall läsa regler och bättra mig ;-)
2.)Vet faktiskt inte vad det är. Allt detta är ett lik efter någon annan men som jag aktiverat. När jag aktiverade "eländet" så fungerar det för andra att skriva nyheter men jag vill att det skall vara en annan ordning.
3.) Tack! Har läst otaligt antal forum men fann tack och lov detta på svenska.

@ndersMedlem sedan juni 200032 967 inlägg

9 aug. 2004 12:41#4

Det ser ut som att det returneras någon sorts recordset av NewsService i alla fall. Man kanske kan prova om detta fungerar:

set NewsServiceRs = objNewsService.List ()
NewsServiceRs.MoveLast

' en massa kod

NewsServiceRs.MovePrevious
loop

Annars kan vi säkert hitta på något annat sätt att vända på recordsetet. :-)

Mvh

@ndersMedlem sedan juni 200032 967 inlägg

9 aug. 2004 12:50#5

Nu när jag ser efter så ser jag inte att loopen påbörjas någonstans.... :-o

Är det där all kod?

(Förresten, det vore finfint om du kunde redigera in [kod]-taggar i huvudinlägget i den här tråden, det ser ganska kladdigt ut. :-) )

Mvh

westminsterMedlem sedan aug. 20045 inlägg

9 aug. 2004 12:54#6

TUSEN TACK @NDERS
den vänder detta hur bra som helst men jag får ett litet error på sidan som ser ut som följer...

___________________________________________________
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

/nyhet4.asp, line 65
___________________________________________________

westminsterMedlem sedan aug. 20045 inlägg

9 aug. 2004 12:56#7

Ändrade till BOF och det fungerar perfekt!

Tusen tack Anders för all hjälp till en NEWBIE som mig

:birp

@ndersMedlem sedan juni 200032 967 inlägg

9 aug. 2004 12:57#8

Jo, jag kände på mig att du skulle få det felmeddelandet. Har du ingen loopstart någonstans? En "Do while not NewsServiceRs.EOF" eller så?

Edit: Jo så alltså. Bra att du fick det att funka. Jag kan dock inte se var du lade in BOF istället, men det är väl inte så viktigt. :-)

Jag föreslår dock att du massakrerar NewsService-komponenten eller vad det nu är, och skriver egen kod för att hämta från, och skriva till, databasen. Då kan du lösa allt på rätt sätt istället.
:)

Mvh

westminsterMedlem sedan aug. 20045 inlägg

9 aug. 2004 13:03#9

Inte vad jag vet...(vet inte ens vad loopstart är, hehehe) hur som, nu fungerar det och jag är glad. Inte bara glad jag känner lycka efter att hållt på med detta i flera flera dagar.

Måste lära mer eftersom detta var betydligt roligare än vad jag föreställt mig.