% on error resume next 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") %> <% if u_action <> "add" then 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= "Data Source=" & Server.Mappath("db/noticias.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" '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 %>
|
||||||||||||||||||||||||||||||||