<%if bloqueio=1 then Server.Transfer("aviso.asp") end if%> <%=Titulo%> <%if MouseDir=1 then%><%end if%> <%if TravaF5=1 then%><%end if%> <%Set conexao = Server.CreateObject("ADODB.Connection") if TipoBd=1 then conexao.Open = "Driver=MySQL ODBC 3.51 Driver; DATABASE="&NomeBanco&"; SERVER="&serverbd&"; UID="&Userbd&"; PASSWORD="&senhabd&"" else conexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\banco\"&NomeBanco&".mdb") end if set rs=conexao.execute("select * from inicial where id=1") conteudo=rs("conteudo") set rs=nothing conexao.close() set conexao=nothing%>
<%=conteudo%>