<% vpn = request("produto") if vpn = "" or isnull(vpn) then vpn = "PRODUTO NAO ENCONTRADO" else vpn =replace(vpn,".","") vpn =replace(vpn,"/","") vpn =replace(vpn,"\","") vpn =replace(vpn,",","") vpn =replace(vpn,";","") if len(vpn)>50 then response.end end if end if MySQL_STRING="Driver={MySQL ODBC 5.1 Driver};Server=robb0501.publiccloud.com.br;Port=3306;Database=OKEY_produtos;User=OKEY_usuario; Password=#okbd2017#;Option=3;" set OBJdbConnection = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") OBJdbConnection.Open MySQL_STRING rs.ActiveConnection = OBJdbConnection if trim(vpn) <> "" then SQL = "SELECT * FROM tabela_preco WHERE codigo ='" & vpn & "'" Set rs=OBJdbConnection.Execute(SQL) if rs.eof then vpreco = "Consulte" vdescpn = "PRODUTO NÃO ENCONTRADO" else vpreco = rs("preco_exibicao") if instr(vpreco,",") =0 then vpreco = vpreco & ",00" end if vdescpn = rs("fornecedor") & " - " & rs("descricao") if vpreco = "0,00" then vpreco = "Consulte" end if vfamilia = rs("familia") & " - " & rs("tipo") if trim(vfamilia) = "" then vfamilia = " - " end if vadicional = rs("fornecedor") & " - " & rs("codigo") & " - NCM : " & rs("ncm") if trim(vadicional) = "" then vadicional = " " end if end if rs.close end if OBJdbConnection.close dim fs set fs=Server.CreateObject("Scripting.FileSystemObject") vproduto_imagem = "/pn-imagens/" & vpn & ".jpg" vproduto_pdf = "/pn-catalogos/" & vpn & ".pdf" vcaminhoD =server.MapPath("/pn-txt/" & vpn & ".txt") Dim vtxtArquivo If (fs.FileExists(vcaminhoD)) Then set fich = fs.OpenTextFile(vcaminhoD, 1,true) vtxtArquivo = fich.readAll() else vtxtArquivo = "SEM DESCRIÇÕES ADICIONAIS PARA O PRODUTO" end if %> <% = vdescpn %> <% = vdfamilia %> /> <% = vdfamilia %> name=Description> <% = vdfamilia %> name=title> <% = vdfamilia %>> <% = vdfamilia %> name=Keywords> <% = vdfamilia %>> <% = vdfamilia %>> <% = vdfamilia %>> <% = vdfamilia %>> />
  • <% = vfamilia %>
<% if fs.FileExists(Server.MapPath(vproduto_imagem))=true then %> alt=<% = vdescpn %> > <% else %> Okey Solutions - Assistencia Zebra Argox Datamax Ribbons e etiquetas <% end if %>
<% if fs.FileExists(Server.MapPath(vproduto_imagem))=true then %>
>
<% else %>
<% end if %>
<%= vpn %>
Preço : <%= vpreco %>
Estoque - CONSULTE O VENDEDOR

<% = vdescpn %>

Quantidade
Informações adicionais :
Especificações
  • Precisando de mais informações, consulte um vendedor

    <% = vtxtArquivo %>

Fale conosco