Dresser - Divisão Válvulas

<% Option Explicit dim conexao,caminho,quantcaminho,conexao1,caminho1,quantcaminho1 dim str,reg,str1,reg1 dim Titulo,Layout_1a,Layout_2a,Layout_2b,Layout_3a,Layout_3b,Layout_3c,Layout_3d dim CodImg1,CodImg2,Imagem1,Imagem2,Largura1,Largura2,Altura1,Altura2 dim CodFree CodFree = request("CodFree") 'pegando layout---------------------------------------------------------------------------- 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)}" 'pegando dados set reg = server.CreateObject("ADODB.Recordset") str = "SELECT A.* FROM Noticias AS A WHERE A.CodFree="& CodFree &"" reg.MaxRecords = 3 reg.Open str,conexao 'resolvendo tamanho Titulo = reg.fields("Titulo") Largura1 = reg.fields("Largura1") Altura1 = reg.fields("Altura1") Largura2 = reg.fields("Largura2") Altura2 = reg.fields("Altura2") %> Dresser - Divisão Válvulas

NOTÍCIAS

Lista de Notícias

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

<%=Titulo%>

<%=Day(reg.fields("Data")) &"/"& Month(reg.fields("Data")) &"/"& Year(reg.fields("Data"))%>

<% 'pegando codigo imagem CodImg1 = reg.fields("CodImg1") CodImg2 = reg.fields("CodImg2") Imagem1 = "

" Imagem2 = "

" if reg.fields("Tipo") = 1 then Layout_1a = reg.fields("Texto1") %>

<%=Layout_1a%>

<% elseif reg.fields("Tipo") = 2 then Layout_2a = reg.fields("Texto1") Layout_2b = reg.fields("Texto1a") 'resolvendo imagem 1-------------------------------------------------------------------------------------- if reg.fields("Local1") = "C" then set reg1 = server.CreateObject("ADODB.Recordset") str1 = "SELECT ImagensCliente.ArquivoImg FROM ImagensCliente WHERE ImagensCliente.CodImgCliente="& CodImg1 &"" reg1.Open str1,conexao Imagem1 = "

" 'fechar reg1.Close set reg1 = Nothing elseif reg.fields("Local1") = "P" then set reg1 = server.CreateObject("ADODB.Recordset") str1 = "SELECT ImagensProduto.ArquivoImg FROM ImagensProduto WHERE ImagensProduto.CodImgProduto="& CodImg1 &"" reg1.Open str1,conexao Imagem1 = "

" 'fechar reg1.Close set reg1 = Nothing elseif reg.fields("Local1") = "S" then 'abrir conexao 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)}" set reg1 = server.CreateObject("ADODB.Recordset") str1 = "SELECT ImagensSistema.ArquivoImg FROM ImagensSistema WHERE ImagensSistema.CodImgSistema="& CodImg1 &"" reg1.Open str1,conexao1 Imagem1 = "

" 'fechar reg1.Close set reg1 = Nothing conexao1.Close set conexao1 = Nothing end if %>

<%=Imagem1%>

<%=Layout_2a%>

<%=Layout_2b%>

<% elseif reg.fields("Tipo") = 3 then Layout_3a = reg.fields("Texto1") Layout_3b = reg.fields("Texto1a") Layout_3c = reg.fields("Texto2") Layout_3d = reg.fields("Texto2a") 'resolvendo imagem 1-------------------------------------------------------------------------------------- if reg.fields("Local1") = "C" then set reg1 = server.CreateObject("ADODB.Recordset") str1 = "SELECT ImagensCliente.ArquivoImg FROM ImagensCliente WHERE ImagensCliente.CodImgCliente="& CodImg1 &"" reg1.Open str1,conexao Imagem1 = "

" 'fechar reg1.Close set reg1 = Nothing conexao1.Close set conexao1 = Nothing end if 'resolvendo imagem 2-------------------------------------------------------------------------------------- if reg.fields("Local2") = "C" then set reg1 = server.CreateObject("ADODB.Recordset") str1 = "SELECT ImagensCliente.ArquivoImg FROM ImagensCliente WHERE ImagensCliente.CodImgCliente="& CodImg2 &"" reg1.Open str1,conexao Imagem2 = "

" 'fechar reg1.Close set reg1 = Nothing elseif reg.fields("Local2") = "P" then set reg1 = server.CreateObject("ADODB.Recordset") str1 = "SELECT ImagensProduto.ArquivoImg FROM ImagensProduto WHERE ImagensProduto.CodImgProduto="& CodImg2 &"" reg1.Open str1,conexao Imagem2 = "

" 'fechar reg1.Close set reg1 = Nothing elseif reg.fields("Local2") = "S" then 'abrir conexao 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)}" set reg1 = server.CreateObject("ADODB.Recordset") str1 = "SELECT ImagensSistema.ArquivoImg FROM ImagensSistema WHERE ImagensSistema.CodImgSistema="& CodImg2 &"" reg1.Open str1,conexao1 Imagem2 = "

" 'fechar reg1.Close set reg1 = Nothing conexao1.Close set conexao1 = Nothing end if %>

<%=Imagem1%>

<%=Layout_3a%>

<%=Layout_3b%>

<%=Layout_3c%>

<%=Imagem2%>

<%=Layout_3d%>

<% end if 'fechar reg.Close set reg = Nothing conexao.Close set conexao = Nothing %>

Imprimir dados