Plocka ut från db till två variabler

3 svar · 332 visningar · startad av glidarn 4 dec. 2002

glidarnMedlem sedan aug. 200228 inlägg

Frågan4 dec. 2002 10:56#1

Hur kan jag ändra i den här koden så att den senaste inlagda posten i news hamnar i strLatestNews och de övriga nio i strOldNews?

<%
 
	Dim strNews

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("tobias.mdb")

   	SQL = "SELECT TOP 10 newsId, newsDate, newsLatest FROM news" 'ORDER BY newsId DESC
	
	Set RecSet = Conn.Execute(SQL)
	
	RecSet.movefirst
	
	Do Until RecSet.EOF
		
		strNews = strNews & "<br>" & RecSet("newsid") & "<br>" 
		strNews = strNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
		strNews = strNews & RecSet("newslatest")
		strNews = strNews & " <br><br>"
		
		RecSet.movenext
		
	Loop
	
	Response.Write "&txtNews=" & strNews
	Conn.close
%>

BrimbaMedlem sedan dec. 19995 874 inlägg

4 dec. 2002 11:02#2

En temporär lösning kan vara exempelvis:

<%
 
	Dim strLatestNews, strOldNews

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("tobias.mdb")

   	SQL = "SELECT TOP 10 newsId, newsDate, newsLatest FROM news" 'ORDER BY newsId DESC
	
	Set RecSet = Conn.Execute(SQL)
	
	RecSet.movefirst
	
	Do Until RecSet.EOF
		
		if (len(trim(strLatestNews)) = 0) then
			strLatestNews = strLatestNews & "<br>" & RecSet("newsid") & "<br>" 
			strLatestNews = strLatestNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
			strLatestNews = strLatestNews & RecSet("newslatest")
			strLatestNews = strLatestNews & " <br><br>"
		else
			strOldNews = strOldNews & "<br>" & RecSet("newsid") & "<br>" 
			strOldNews = strOldNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
			strOldNews = strOldNews & RecSet("newslatest")
			strOldNews = strOldNews & " <br><br>"
		end if
		RecSet.movenext
		
	Loop
	
	Response.Write "&txtNews=" & strOldNews
	Conn.close
%>

LarsGMedlem sedan dec. 200012 464 inlägg

4 dec. 2002 11:05#3

Dim strLatestNews,strOldNew,First

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("tobias.mdb")

   	SQL = "SELECT TOP 10 newsId, newsDate, newsLatest FROM news ORDER BY newsId DESC"
	
	Set RecSet = Conn.Execute(SQL)
	
	RecSet.movefirst
	
        First = true
	Do Until RecSet.EOF
		
                 if  first then 
  		     strLatestNews = strLatestNews & "<br>" & RecSet("newsid") & "<br>" 
		     strLatestNews = strLatestNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
		      strLatestNews = strLatestNews & RecSet("newslatest")
		     strLatestNews = strLatestNews & " <br><br>"
		     first = false
                else
                      strOldNews = strOldNews & "<br>" & RecSet("newsid") & "<br>" 
		     strOldNews = strOldNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
		      strOldNews = strOldNews & RecSet("newslatest")
		     strOldNews = strOldNews & " <br><br>"
                end if
		RecSet.movenext
		
	Loop

glidarnMedlem sedan aug. 200228 inlägg

4 dec. 2002 11:10#4

Jorå det funkade precis som jag hade tänkt mig, tack.