<% '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 %>

<%= rs("date") %>
"><%= rs("title") %>  
<% else %> <%= rs("title") %>

Автор
<%= rs("author") %>

<%= rs("body") %>
<% 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 %>

Посмотреть существующие записи
Добавить запись в книгу
<% end if %>