|
|
<%
Set objFileSys = Server.CreateObject("scripting.FileSystemObject")
Set Thefolder = objFileSys.GetFolder(strCaminho_titleimg)
Set Thefiles = TheFolder.files
For Each Thefiles in TheFiles
if TheFiles.Name = "title"&strTipContent&".gif" then
TipContent = TheFiles.Name
exit for
end if
next
Set objFileSys = nothing
Set Thefolder = nothing
Set Thefiles = nothing
%>
<%
'Set objFileSys = Server.CreateObject("scripting.FileSystemObject")
'Set Thefolder = objFileSys.GetFolder(strCaminho_icoImg)
'Set Thefiles = TheFolder.files
'For Each Thefiles in TheFiles
'if TheFiles.Name = strTipContent&".jpg" then
'TipContent = TheFiles.Name
'exit for
'end if
'next
'Set objFileSys = nothing
'Set Thefolder = nothing
'Set Thefiles = nothing
%>
<%if isEmpty(TipContent) then%><%else%> <%end if%> |
 |
|
<%
' if isEmpty(tipProd) then
' strTipContent = "produtos"
' else
' strTipContent = tipProd
' end if
'
' Set objRS = Server.CreateObject("ADODB.Recordset")
' strSQL = "SELECT tipoId FROM tipContent WHERE tipo = '"&strTipContent&"'"
' objRS.open strSQL, objConexao
' if objRs.EOF then
' 'response.redirect ("message.asp?msg=Em breve, novos conteúdos")
' else
' strTipoId = objRS("tipoId")
' set objRS = nothing
'
' Set objRS = Server.CreateObject("ADODB.Recordset")
' strSQL = "SELECT contentId, imagem, titulo"&session("lang")&" as aliasTitulo, content"&session("lang")&" as aliasContent FROM Content WHERE default = true and tipoId = " & strTipoId
' objRS.open strSQL, objConexao
' End If
%>
|
<%
'''''''''''''''''''''''''
'''''''''''''''''''''''''
''''Conteúdo opcional''''
'''''''''''''''''''''''''
'''''''''''''''''''''''''
%>
<% strTipContent = request.QueryString("link")%>
<% strContentId = request.QueryString("Id")%>
<%if strContentId <> "" then%>
<%
Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT imagem,titulo as aliasTitulo ,content as aliasContent FROM product where contentId = " & strContentId
objRS.open strSQL, objConexao
%>
<%
strAliasTitulo = objRS("aliasTitulo")
strAliasContent = objRS("aliasContent")
'obs = objRs("obs")
%>
Você está navegando em:
| >> <%=(request("varCat"))&" /"&Left(strAliasTitulo,45)&" ..."%> |
 Especificação do Produto |
<%img = objRs("imagem")%>
<%if img <> "" then%>
Foto Ilustrativa
<%else%>Produto sem imagem<%end if%> |
Nome do Produto |
Descrição |
| <%=strAliasTitulo%> |
<%=strAliasContent%> |
 Solicitar Orçamento |
<%
end if
'objRs.Close
set objRs = nothing
%>
<%
varId = request.QueryString("varId")
byPass = request.QueryString("byPass")
if not isEmpty("varId") and byPass = "true" then
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM product where tipoId = "&varId&" order by codigo asc"
RS.open SQL, objConexao
%>
Relação de Produtos:
<%if rs.eof then%>
| Aguarde, em breve novos produtos. |
<%else%>
<%
Do while not Rs.eof
%>
<%img = Rs("imagem")%>
<%if img <> "" then%>
Foto Ilustrativa<%end if%>
|
|
|
<%
' end if
Rs.MoveNext
LOOP
end if
%>
<%if not isEmpty(request.QueryString("tipo")) then%>
| [VEJA TODAS AS CATEGORIAS DE PRODUTOS] |
<%end if%>
<%
Set RS = Nothing
end if
%>
<%
tipoId = request.QueryString("tipoId")
if isEmpty(tipoId) then
'Set Categoria = Server.CreateObject("ADODB.Recordset")
'strSQL = "SELECT * FROM tipo"
'Categoria.open strSQL, objConexao
Set teste = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tipProd order by descricao asc"
teste.open strSQL, objConexao
%>
<%'else%>
<%
'Set objRS = Server.CreateObject("ADODB.Recordset")
'strSQL = "SELECT * FROM tipProd where tipo = '"&tipProd&"'"
'objRS.open strSQL, objConexao
%>
<%
'end if
IF teste.eof then
%>
Prezado Internauta,
Aguarde, estamos em manutenção para melhor atendê-lo.
Webmaster.
<%else%>
Especificação por categoria. Clique para visualizar os Produtos.
<%
tipo = request.QueryString("tipo")
if isEmpty(tipo) then
Set Categoria = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tipo order by numberOrder asc"
Categoria.open strSQL, objConexao
else
Set Categoria = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tipo where name = '"&tipo&"' order by numberOrder asc"
Categoria.open strSQL, objConexao
end if
Do while not Categoria.eof
idTipo = Categoria("idTipo")
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tipProd where idTipo = "&idTipo&" order by descricao asc"
objRS.open strSQL, objConexao
%>
<%=Categoria("descricao")%>
<%
Do while not objRs.eof
%>
<%varId = objRs("tipoId")%>
<%=objRs("descricao")%>
<%
objRs.MoveNext
LOOP
objRs.close
set objrs = nothing
categoria.MoveNext
LOOP
Set categoria = Nothing
%>
<%'else%>
|
<%
'strTipoId = objRS("tipoId")
end if
teste.close
set teste = nothing
'End If
'End If
else
%>
<%
'Do while not objRs.eof
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM product where tipoId = "&tipoId&" order by codigo asc"
RS.open SQL, objConexao
if rs.eof then
%>
Prezado Internauta,
Aguarde, estamos em manutenção para melhor atendê-lo.
Webmaster
<%else%>
| Clique para visualizar os Produtos.
|
<%
Do while not Rs.eof
%>
<%img = Rs("imagem")%>
<%if img <> "" then%>
Foto Ilustrativa<%end if%>
|
|
|
<%
' end if
Rs.MoveNext
LOOP
%>
<%
Rs.Close
set Rs = nothing
%>
|
<%end if%>
<%end if%>
|
|
|
|
|
|
|
|