Dresser - Divisão Válvulas

<% Option Explicit dim conexao,quantcaminho,caminho dim conexao1,quantcaminho1,caminho1 dim str,reg,str1,reg1 dim CodUsuario,NomeBlog,Usuario dim CodBlog CodBlog = request("CodBlog") 'abrir conexao,pegar dados blog set conexao = server.CreateObject("ADODB.Connection") quantcaminho = Len(server.MapPath(".")) - 7 caminho = Mid(server.MapPath("."),1,quantcaminho) &"\Adm\Dados\Modulos.mdb" conexao.Open "DBQ="& caminho &";DRIVER={Microsoft Access Driver (*.mdb)}" 'pegar dados set reg = server.CreateObject("ADODB.Recordset") str = "SELECT A.* FROM Blog AS A WHERE A.CodBlog="& CodBlog &" AND A.Visivel='SIM'" reg.Open str,conexao if not reg.EOF then CodUsuario = reg.fields("CodUsuario") NomeBlog = reg.fields("Nome") end if 'fechar reg.Close set reg = Nothing conexao.Close set conexao = Nothing 'abrir conexao, pegar usuario---------------------------------------------- set conexao1 = server.CreateObject("ADODB.Connection") quantcaminho1 = Len(server.MapPath(".")) - 7 caminho1 = Mid(server.MapPath("."),1,quantcaminho1) &"\Adm\Dados\Sistema.mdb" conexao1.Open "DBQ="& caminho1 &";DRIVER={Microsoft Access Driver (*.mdb)}" 'pegar dados set reg1 = server.CreateObject("ADODB.Recordset") str1 = "SELECT A.Nome FROM Usuarios AS A WHERE A.CodUsuario="& CodUsuario &"" reg1.Open str1,conexao1 if not reg1.EOF then Usuario = reg1.fields("Nome") end if 'fechar reg1.Close set reg1 = Nothing conexao1.Close set conexao1 = Nothing %> Dresser - Divisão Válvulas

VEJA MAIS

Blog Dresser

	Mapa do site
	Adicionar a favoritos
	Voltar para página anterior

<%=NomeBlog%>

postado por: <%=Usuario%>

<% 'abrir conexao,pegar dados blog set conexao = server.CreateObject("ADODB.Connection") quantcaminho = Len(server.MapPath(".")) - 7 caminho = Mid(server.MapPath("."),1,quantcaminho) &"\Adm\Dados\Modulos.mdb" conexao.Open "DBQ="& caminho &";DRIVER={Microsoft Access Driver (*.mdb)}" 'pegar dados set reg = server.CreateObject("ADODB.Recordset") str = "SELECT A.* FROM Blog_Conteudos AS A WHERE A.CodBlog="& CodBlog &" AND A.Visivel='SIM' ORDER BY A.Data DESC" reg.Open str,conexao if not reg.EOF then while not reg.EOF with response .write "" .write "" .write "" .write "" end with 'proximo reg.MoveNext wend end if 'fechar reg.Close set reg = Nothing conexao.Close set conexao = Nothing %>

Data	Título
"& Day(reg.fields("Data")) &"/"& Month(reg.fields("Data")) &"/"& Year(reg.fields("Data")) &"	"& reg.fields("Titulo") &"

Voltar para lista (BLOG)