<%
dim ttitle, bbody, wwriter, ddate, ttime

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("News.mdb")
Conn.Errors.Clear

conn.Execute "INSERT INTO news (body, title, writer, time, date) VALUES ('gil went to the marker' , 'the gil' , 'binder' , '12:22:00' , '23/10/02')"
conn.close
set conn=nothing
%>

Microsoft JET Database Engine error '80040e14' 

Syntax error in INSERT INTO statement. 

/News/add.asp, line 8 

do while not rs("ID") = news_number_page
response.write "<div align.............>"
rs.MoveNext
loop

quote:

---

Have a look in inc_functions.asp and see how snitz does it, I think the specific function in there is called ReplaceURLs (to do [URL] type links) and for Images I think its ReplaceImageTags

When you insert a line (row) into a table its never really going to appear at the top. What you need to do is when you select the items from the database use an ORDER BY clause to get them in the order you want them.

For instance, If I wanted to retrieve the items in your database sorted by Date then I would do something like this

SELECT Body, Title, Writer, Time, Date FROM news ORDER BY Date DESC

The ORDER BY Date DESC tells the database to give the results to me in Descending Date order

Hope that helps a little.

www.daoc-halo.com

---

<%
dim news_number_page, table_border_color, table_bgcolor, text_body_color ,text_writer_color, text_date_color, text_time_color, text_body_font, text_body_size, text_head_font, text_head_size, text_head_color, title_align, body_align, writer_align, time_align, date_align, table_align

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

	Conn.Errors.Clear

	set rs = Server.CreateObject("ADODB.Recordset")

	Sql = "select * from design"
	set rs = Conn.Execute (Sql)
		table_border_color=rs("table_border_color")
		table_bgcolor=rs("table_bgcolor")
		text_body_color=rs("text_body_color")
		text_date_color=rs("text_date_color")
		text_time_color=rs("text_time_color")
		text_body_font=rs("text_body_font")
		text_body_size=rs("text_body_size")
		text_head_font=rs("text_head_font")
		text_head_size=rs("text_head_size")
		text_head_color=rs("text_head_color")
		news_number_page = rs("news_number_page")
		title_align=rs("title_align")
		body_align=rs("body_align")
		time_align=rs("time_align")
		date_align=rs("date_align")
		writer_align=rs("writer_align")
		table_align=rs("table_align")
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing

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

Conn.Errors.Clear

set rs = Server.CreateObject("ADODB.Recordset")

Sql = "SELECT * FROM news ORDER BY ID"
set rs = Conn.Execute (Sql)

do while not rs("ID") = news_number_page
response.write "<div align...>"
rs.MoveNext
loop

rs.close
set rs=nothing
conn.close
set conn=nothing
%>

sSQL = "SELECT * FROM news ORDER BY ID"
set rs = conn.execute(sSQL)
while not rs.EOF
  for each item in rs.fields
    Response.Write item.value & "<BR>"
  next
  rs.MoveNext()
wend
rs.Close()
set rs = nothing

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

Conn.Errors.Clear

set rs = Server.CreateObject("ADODB.Recordset")

Sql = "SELECT * FROM news ORDER BY ID DESC"
set rs = Conn.Execute (Sql)


do while not rs("ID") = news_number_page
response.write "<div al...>"
rs.MoveNext
loop

rs.close
set rs=nothing
conn.close
set conn=nothing

quote:

---

So your Halfway there then.

What relationship has your News_Number_Page to your ID though ? that looks a little weird. To simply print out your Data in ID Order you would do something like this

sSQL = "SELECT * FROM news ORDER BY ID"
set rs = conn.execute(sSQL)
while not rs.EOF
  for each item in rs.fields
    Response.Write item.value & "<BR>"
  next
  rs.MoveNext()
wend
rs.Close()
set rs = nothing

www.daoc-halo.com

---