CodeAve.com/ASP - Access Article Db

CodeAve.com - ASP - Database Table Display

ASP
·Read/Write
·Script Writers
·Database Display
·Response Objects
·Server Variables
·Random Events
·Articles
·Miscellaneous
·Contents
·What's New?
JavaScript
CSS
HTML
Links
Mail List
Search
Sitemap

Access Article Db

Are you looking for a way to get news or articles to your web server quickly? Rather than creating unique .htm pages to display small amounts of text place it into Access. This sample application will hyperlink titles to recent articles, when clicked display the full content of the article and allow for the input of new information. This can be easily integrated into a template to provide quick publication of news on your site. Note the first two Articles have future dates associated with them to ensure they remain on top. Once removed from your local copy all articles will appear id date/time order from the most recent to how ever many you want to display.

•Text View

•Print View

•Mail this Link

<%
on error resume next
'Variables assigned on start of document
'all leading and trailing blanks are removed
'and any single quotes are changed to '
u_action=request.querystring("u_action")
u_title=replace(trim(request.form("u_title")),"'","'")
u_body=replace(trim(request.form("u_body")),"'","'")
u_author=replace(trim(request.form("u_author")),"'","'")
u_log=request.querystring("u_log")
script_name=request.servervariables("script_name")
%>

<%
'Check to see if the user is adding an article
'if so, then display the input form
if u_action <> "add" then

'if the user is not looking for the input field
'then they will be interacting with the db
'in one of three ways.
'1. to insert a new article
'2. to view a specific observation
'3. to display recent headlines
'The following select statement will adjust the
'sql according to which action is requested

select case u_action
case "insert"

sql = "insert into articles (title,body,author)"
sql = sql & " values( '" & u_title & "' , '" & u_body & "' , '" & u_author & "' )"

case "display"
sql="select * from articles where log = "&u_log

case else
sql="select * from articles order by date desc "
end select

accessdb="articles"
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, cn
'if there are no observations found then
'redirect the user to the default view
'except if the user is adding an article
if u_action <> "insert" then
if rs.eof then
response.redirect script_name
end if
end if
'Start html output
%>
<html>
<title>Recent Articles</title>
<body bgcolor="#FFFFFF">

<% 'Display successful addition of article to db
if u_action="insert" then %>
Your Article was added.<br>
<% else
'Display db output %>
<% do while not rs.eof and counter < 6
' Change 6 to any number of Titles you want to display
counter=counter+1 %>
<% if u_action <> "display" then %>
<a href="<%= script_name %>?u_action=display&u_log=<%= rs("log")%>"><%= rs("title") %></a> <%= date %><br>
<% else %>
<b><%= rs("title") %></b><br>
by <%= rs("author") %>
<p>
<pre>
<%= rs("body") %>
</pre>
<% end if
rs.movenext
loop
end if
end if
%>

<% if u_action="add" then
'if the user is adding a new article
'then display the form input fields %>
<script Language="JavaScript">

</script>
<form method="post" action="<%= script_name %>?u_action=insert" onsubmit="return Blank_TextField_Validator(this)">
Title<br>
<input type="text" name="u_title" size="65"><p>
Body<br>
<textarea rows="8" name="u_body" cols="65"></textarea><p>
Author<br>
<input type="text" name="u_author" size="65"><p>

<input type="submit" value="Submit">
</form>
<% else
'if the user is doing anything other than adding an article
'display navigational hyperlinks %>
<p><a href="<%= script_name %>">View Recent Articles</a><br>
<a href="<%= script_name %>?u_action=add">Add Your Article</a>
<% end if %>