Plocka ut särskillda ur en databas

2 svar · 164 visningar · startad av erka 2 apr. 2001

erkaMedlem sedan dec. 19996 522 inlägg

Frågan2 apr. 2001 07:56#1

Jag har stött på ett litet problem. Jag har gjort en nyhets sida där jag plockar ut nyheter som finns på flera spårk. Beroende om man är på den engelska,svenska eller spanska sidan plockas först de nyheterna ut på rätt språk så att säga. De kommer ut så här

Titel på nyhet - Datum
Olika lands flaggor om nyheten även finns på något annat språk
Nyhetens första 300 tecken

osv.

Nu har jag problemet att om vi säger att vi är på svenska sidan, plockar han ut svenska sidorna och sedan flaggorna om den finns på flera språk. Även svenska, hur ska man bära sig åt för att den inte ska ta med den flagga som är huvudspråket ?

Hoppas att ni förstår..

Danke på förhand

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

cyprysMedlem sedan dec. 20003 563 inlägg

2 apr. 2001 08:59#2

Det beror ju på hur du har sagt vilket språk som är huvudsidan.
Det bästa är väl antagligen genom kakor så i sådana fall funkar väl något liknande. Jag vet inte hur du får fram på vilka språk artikeln finns på utöver huvudspråket men skriv gärna det om nedan inte ger någon klarare bild.
Här har jag tänkt mig att det står i en kolumnen sprak av typen "swe, eng, spa"

<%
husp = request cookies("huvudsprak")
spraken = RS("sprak")
spraken = split(spraken, ",")
for each x in spraken
  if x <> husp then
    response.write "<img src=""flagga_"&x&".gif"">"
  end if
next

%>

------------------
MVH // Cyprys
Cyprys bakgård

Om du någonsin ser mig bli misshandlad av polisen, var snäll och lägg ner videokameran och kom och hjälp mig i stället.

erkaMedlem sedan dec. 19996 522 inlägg

2 apr. 2001 09:08#3

vet inte om jag har gjort detta på ett korkat sätt, kom inte på något annat sätt. Denna kod är förenklad eftersom man inte orkar läsa igenom 2322 rader kod som inte hör till..

<% 
	Session.lcid = 1053
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\db\news.mdb" 
 
	SQLStmt= "SELECT News.NewsId, News.NewsPublishdate, News.NewsRemovedate, NewsContent.NewsLanguageid, 	NewsContent.NewsHeader, NewsContent.NewsContent FROM News INNER JOIN NewsContent ON News.NewsId = NewsContent.NewsId where NewsPublishdate <= '"& date &"' AND NewsRemovedate >= '"& date &"' And NewsLanguageId = '"& Request.querystring("LanguageID")&"'"
	SET RS = Connect.Execute(SQLStmt)

Do until RS.EOF 

	Response.Write""& RS("newspublishdate") &""

		newsid = rs("newsid")
		SQLStmt2 = "SELECT newsid, newslanguageid FROM NEWSCONTENT Where NewsId = "& newsid &""
		SET RS2 = Connect.Execute(SQLStmt2)
		Do Until RS2.EOF

	Response.Write"<a href=""news.asp?Show="& RS2("newsid") &"&NewsLanguageID="& RS2("newslanguageid") &""><img src=""/bin/images/flags/"& RS2("newslanguageid") &".gif"" border=""0""></a>"
		
		RS2.MoveNext
		Loop
		RS2.Close
		SET RS2 = Nothing

	Response.Write"<br>"& RS("newsheader") &""
	Response.Write""& Left(rs("newscontent"),220) &"...<br>"
	Response.Write"<a href=""news.asp?Show="& RS2("newsid") &"&NewsLanguageID="& RS2("newslanguageid") &"">Läs mer</a><br><br>"           

RS.MoveNext
Loop 
RS.Close
Set RS = Nothing
%>

------------------
1 Man, 1 Million dead, The odds are just about even - Ash