<% Dim sPath, sScriptDir, sDSN Const adOpenKeyset = 1 Const adLockPessimistic = 2 sScriptDir = Request.ServerVariables("SCRIPT_NAME") sScriptDir = StrReverse(sScriptDir) sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/")) sScriptDir = StrReverse(sScriptDir) sPath = Server.MapPath(sScriptDir) & "\" sDSN="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/dados/bct3.mdb") Dim sScript, iAdminStatus, sPagina, Tela sScript = Request.ServerVariables("SCRIPT_NAME") Dim RsCat, sSQLCat,v_ordem Dim RsRot, sSQLRot sSQLRot = "SELECT * FROM pagina ORDER BY data" set RsRot=Server.CreateObject("ADODB.Recordset") RsRot.Open sSQLRot, sDSN, adOpenKeySet, adLockPessimistic If Not RsRot.Bof then RsRot.Movefirst Else RsRot.AddNew RsRot("data")=now() RsRot.Update End if sDSN="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/dados/bct3a.mdb") sSQLCat = "SELECT * FROM liberacao ORDER BY valor" set RsCat=Server.CreateObject("ADODB.Recordset") RsCat.Open sSQLCat, sDSN, adOpenKeySet, adLockPessimistic If Not RsCat.Bof then RsCat.Movefirst Else RsCat.AddNew RsCat("texto")="Inserir Item " RsCat.Update End if %> .asp" name="q2" scrolling= <% if RsCat("valor")="S" then %> "yes" <% Else %> "no" <%End if%> > <% RsCat.Close Set RsCat = Nothing %>