<% uploadDir = "\\192.168.1.4\tesisgalicia.es\www\imagenes\productos\" 'uploadDir = "d:\xvrt\asired.es\html\desarrollo\Tesis001\imagenes\productos\" 'uploadDir = "e:\InetPub\wwwroot\desarrollo\tesisGalicia\imagenes\productos\" pag = int("0" & Request.QueryString("pag")) cat = int("0" & Request.QueryString("cat")) subca = int("0" & Request.QueryString("subca")) id = Request.QueryString("ident") SQlQuery="Select * from productos where idproducto=" & id Set RsProd = ObjDbConnection.execute(SqlQuery) nombre = RsProd("nombre") descripcion = RsProd("descripcion") Dim fs Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(uploadDir&Id&"."&RsProd("extension")) Then imagen= "imagenes\productos\"&Id&"."&RsProd("extension") else imagen="imagenes\sinImagen.gif" end if %>
           
<% SQLQuery = "select * from categorias where idcategoria="&cat Set catnom = OBJdbConnection.Execute(SQLQuery) cat1 = catnom("nombre") if subca<>0 then SQLQuery = "select * from subcategorias where idsubcategoria="&subca Set subcanom = OBJdbConnection.Execute(SQLQuery) sub1 = subcanom("nombre") else sub1 = "Otras subcategorías" end if %>
<%=cat1%> - <%=sub1%> << volver
 
<%=nombre%>
<%=left(Descripcion,30)%><%if imagen<>"" then%> <%End If%><%if len(descripcion)>30 then%><%descripcion2=Mid(Descripcion,31,len(descripcion)-30)%><%=Left(descripcion2,750)%><%if len(descripcion2)>750 then%><%=Mid(descripcion2,751,len(descripcion2)-750)%><%end if%><%end if%>
<%PieOfertas%>
ESPAÑA: Alemparte Nº 29 A. Areas. 36860 Ponteareas. Pontevedra. Telf: 986 642299 / 986 660243 Fax: 986 661995 - E-mail: comercial@tesisgalicia.es
PORTUGAL: R. Sarmento Beires, 102 - 4450 - 723 Leça da Palmeira Telf: +351 22 999 60 70 Fax: +351 22 999 60 71 Movel: +351 91 929 25 49
Aviso Legal
<% Set RsProd=nothing Set catnom=nothing Set subcanom=nothing %>