Som sagt, har lite problem med det. Jag hade brottom med att sätta upp min sida så jag tog en färgid nyhets publicerings prog färgid från www.dotnetindex.com och den heter Active News. Jag hade servern rullande ett tag o allt funka fint, men jag var tvungen att byta HDD så ja installera om allt och in med sidan igen som jag gjorde en backup på. Men nu funkar det inte. Det står: Finns ingen nyhet, Sorry, There is no news ...

Men det skumma är att stilen på sidan tar den från databasen med inte nyheterna, jag använder Win Server 2003 Enterprice. Nu vet ja inte riktigt va jag ska göra. Tänkte slå ihpå nå eget men jag tycket att det där funkade så bra för så ja vill gärna få igång den.

Rörande din fråga - det går inte att svara på den utan att du ger oss mer information. Det finns tusen varianter varför inget händer - troligast är det ett datum som inte blir korrekt. En variant är att du skickar in engelskt datumformat på svensk databas eller tvärt om.

Ok, hmm, finns inte mycket mer info jag kan ge er. Hade vart lättere om ni fråga va ni vill veta så...
Kom på att ja använder Accsess

men det där med datumet, jag kan försöka på det o se vad som händer.

<%
	page = trim(request.querystring("page")) 
	Dim strLine
	If page = "" Then
	page = 1
	else
	page = cint(page)
	End If


	DisplayNum = 0

	Set oCon = Server.CreateObject ("ADODB.Connection")
	Set Rec = Server.CreateObject ("ADODB.Recordset")

	oCon.Open strCon

	Rec.PageSize = 10
	Rec.CursorLocation = adUseClient		
	
	sql = "Select newsID, headline, source, summary, newsDate from news where status = 1 AND " 
	sql = sql & " DateDiff(""n"", newsDate, Now()) >= 0  order by newsDate desc"

	Rec.Open sql, oCon
	if Rec.EOF OR Rec.BOF Then
	response.write  "<br><br>"
	response.write  "<p align=center><b>Sorry, There is no news ... </b></p>"
	else
	ipage = Rec.PageCount	
	if page = 0 or page > ipage Then
	Rec.AbsolutePage = ipage
	else
	Rec.AbsolutePage = page
	end if
	do while not Rec.Eof AND i < 10
	response.write "<span style=""font-size :  "& Headline_Font_Size &"; FONT-FAMILY: "& Headline_Font_Face_Type &"; line-height :14pt""><b>" & Rec("headline") & "</b><br></span>" & vbcrlf
	response.write "<span style=""font-size :  "& Author_Font_Size &"; FONT-FAMILY: "& Author_Font_Face_Type &"; COLOR : "& Author_Font_Color &"; line-height :12pt"">"& vbcrlf
	response.write "Publish Date : " & Rec("newsDate") & " &nbsp; Source : "& rec("source") &"<br></span>"& vbcrlf
	response.write "<span style=""font-size :  "& Summary_Font_Size &"; FONT-FAMILY: "& Summary_Font_Face_Type &"; COLOR : "& Summary_Font_Color &"; line-height :12pt"">"& vbcrlf
	response.write Rec("summary") & "</span><br><br>"& vbcrlf & vbcrlf & vbcrlf
	i = i + 1
	Rec.Movenext
	loop
	response.write "<span style=""font-size :  "& Summary_Font_Size &"; FONT-FAMILY: "& Summary_Font_Face_Type &"; COLOR : "& Summary_Font_Color &"; line-height :12pt"">"& vbcrlf
	response.write "Total Results : " & Rec.RecordCount & " &nbsp;"
	
				If ipage > 1 Then
	showpages = "<br>More Pages : &nbsp;"

	For z = 1 to ipage
		If z = page then
			showpages = showpages &  "&nbsp;&nbsp;[" & page & "]  &nbsp;"
		Else 
	showpages = showpages & " " & z &  "" & " &nbsp;"
		End If 
	Next 
	response.write  showpages & "&nbsp;&nbsp;"
	End If
	
	if ipage > 1 And page > 1 Then
	response.write  "Previous"
	end if

	response.write  "&nbsp;&nbsp;"
	If ipage > 1 And page < ipage Then
	response.write  "Next Page"
	end if
	
	response.write "</span>"
	Rec.Close
	oCon.Close
	set Rec = nothing
	set oCon = nothing
	End if	
%>

Testa att byta ut sql-satsen mot
sql = "Select newsID, headline, source, summary, newsDate from news where status = 1"

och se om du får något data..

Ohh, det va som fan! tack så hämst mycket ;) löste sej nu.