[Resolvido] Consulta sql

[saloeric 1]

Boa tarde, tou aqui com uma dúvida, tenho a seguinte consulta:

 

sql="select top 5 * from noticias where data > now()-5 order by principal desc,data desc"

ora isto retorna as 5 noticias em que a data seja inferior a 5 dias, mas para além disso eu queria retornar um registo em que este está marcado como 1 e neste registo a data pode ser inferior a 5 dias, não existe um comando tipo exepção para seleccionar todos os registos com data inferior a 5 com exepção do registo que esteja seleccionado com 1.

 

Não sei se me fiz perceber http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[xanburzum 169]

use o AND na SQL

[saloeric 1]

Boas, obrigado pela resposta, resolvi mas com o or

 

sql="select top 5 * from noticias where data > now()-5 or principal=1 order by principal desc,data desc"

 

Uma outra dúvida existe alguma função para converter a data em formtado RFC822 (utilizada em rss) para um dos formatos existentes no vbscript?

[saloeric 1]

já descobri no google:

function parseRSSDate(sRSSDate)
'	take RFC822-formatted date string and return VBScript date object
'	ie: "Fri, 13 Jun 2008 16:33:50 GMT"	

	dim sDay, sMonthName, sMonthNum, sYear, sHour, sMinute, sSecond
	dim oRE, oMatches, oMatch
	dim sDate, oDate
	
	set oRE = new regexp
		oRE.IgnoreCase	= True
		oRE.Global		= True
		oRE.Pattern		= "^([A-Za-z]{3}),\s([0-9]{1,2})\s([A-Za-z]{3})\s([0-9]{4})\s([0-9]{2}):([0-9]{2}):([0-9]{2})"
		set oMatches = oRE.Execute(sRSSDate)
			if oMatches.count > 0 then
				set oMatch = oMatches(0)
					sDay		= oMatch.SubMatches(1)
					sMonthName	= oMatch.SubMatches(2)
					sMonthNum	= monthVal(sMonthName)
					sYear		= oMatch.SubMatches(3)
					sHour		= oMatch.SubMatches(4)
					sMinute		= oMatch.SubMatches(5)
					sSecond		= oMatch.SubMatches(6)
					sDate = sMonthNum & "/" & sDay & "/" & sYear
					oDate = cDate(sDate)
				set oMatch = nothing
			end if
		set oMatches = nothing
	set oRE = nothing
	parseRSSDate = oDate
end function

function monthVal(sMonthName)
	' return month number (1-12) from month name
	dim rv
	dim aMonths : aMonths = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
	for i = 0 to uBound(aMonths)
		if sMonthName = aMonths(i) then rv = i+1
	next
	monthVal = rv
end function

[xanburzum 169]

beleza...