- ASP - Database Table Display
·Script Writers
·Database Display
·Response Objects
·Server Variables
·Random Events
·What's New?
Mail List


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.
View the Output
Text View
Print View
Mail this Link
Download the Code

on error resume next
'Variables assigned on start of document
'all leading and trailing blanks are removed
'and any single quotes are changed to &#39;

'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

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

<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") %>
<%= rs("body") %>
<% end if 
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">
function Blank_TextField_Validator(form)

if (form.u_title.value == "")
alert("Please fill in the title field.");
return (false);

if (form.u_body.value == "")
alert("Please fill in the body field.");
return (false);

if (form.u_author.value == "")
alert("Please fill in the author field.");
return (false);

return (true);

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

<input type="submit" value="Submit">
<% 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 %>




ASP: What's New? | Articles | Script Writers | Database Display | Read/Write
Server Variables | Response Objects | Random Events | Miscellaneous
HTML: Forms | Hyperlinks | Headers | Tables | Hyperlinks | Headers | Text Display
JavaScript: Document Info | Forms | Images | Navigation | Script Writers
CSS: Basics | Page Display | Text Display | Script Writers | Miscellaneous
  • 2014 michael kors
  • air max women 2013
  • 2014 michael kors
  • air max 2014
  • oakley glasses
  • oakley glasses

  • Maps: Map Script Writers | Bing Maps | Google Maps
  • bottes fr
  • ugg boot
  • Privacy Statement is hosted by
    Donate Food Online with a Mouse Click at
    Donate Land Online with a Mouse Click at
    © 1999 - 2018
    All Rights Reserved

  • Kids jordan 6 rings
  • Jordan retro 10
  • Jordan retro 3