<% vcodigo = request("codigo") Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/okey.mdb") & ";Persist Security Info=False" SQL = "SELECT * FROM TABELA_PRECO WHERE codigo ='" & vcodigo & "'" Set RS=OBJdbConnection.Execute(SQL) if rs.eof then Response.Redirect "http://www.okey.com.br" response.End() end if vdescricao = RS("descricao") Filepath = server.mappath("\" & request("fornecedor") & "\imagens\" & vcodigo & ".jpg") 'Response.Write filepath ' Create a filesystem object Dim FSO set FSO = server.createObject("Scripting.FileSystemObject") ' Map the logical path to the physical system path Dim Filepath if FSO.FileExists(Filepath) Then vfoto = "http://www.okey.com.br/"& request("fornecedor") & "/imagens/" & vcodigo & ".jpg" else vfoto = "http://www.okey.com.br/imagens/semimagem.gif" end if 'Response.Write vfoto vfotog="http://www.okey.com.br/"& request("fornecedor") & "/imagens/" & vcodigo & "_g" & ".jpg" %>
OKEY DO BRASIL
 
VENDAS (Brasil) :(11) 4818-1000 | (11) 3222-5570 | (11) 4413-1071
 
REVEDAS : SEJA REPRESENTANTE NA SUA CIDADE
Foto do produto
>
  Descrição do produto
 
 

<%= vdescricao %>
 
PRECO : R$ <%= RS("PRECO_EXIBICAO")%>
 
target="_blank" >Ampliar imagem
PARTNUMBER : <%= vcodigo%>