%
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
%>