<% editid = Request.QueryString("editid") IF editid <> "" THEN 'currentdate = Date Set ShowConn = Server.CreateObject("ADODB.Connection") ShowConn.open info_db Set rsList = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM news WHERE id = " & editid & " ORDER BY id" rsList.Open strSQL, ShowConn, 1, 1 While NOT rsList.EOF varid = rsList("id") vardate = rsList("dateadded") vartitle = rsList("title") varstory = rsList("story") varimage = rsList("image") %>

STORY TITLE :		DATE ADDED :
IMAGE :
NEWS STORY : <%=varstory%>

To Delete This Record Click Here. Removing entries is PERMINANT.
DELETE <% rsList.Movenext Wend rsList.Close Set rsList = Nothing ShowConn.Close Set ShowConn = Nothing ELSE%>

STORY TITLE :		DATE ADDED :
IMAGE :
NEWS STORY :

<%END IF%>