<%
'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
'exceot 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
%>
Гостевая книга СПЭК!
<% 'Display successful addition of article to db
if u_action="insert" then %>
Ваша запись добавлена.
<% 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 %>
<% 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 %>
<% else
'if the user is doind anything other than adding an article
'display navigational hyperlinks %>
