<% uploadDir = "\\192.168.1.4\tesisgalicia.es\www\imagenes\marcas\" ' uploadDir = "d:\xvrt\asired.es\html\desarrollo\Tesis001\imagenes\marcas\" 'uploadDir = "e:\InetPub\wwwroot\desarrollo\tesisGalicia\imagenes\marcas\" pag = int("0" & Request.QueryString("pag")) id = Request.QueryString("ident") SQlQuery="Select * from marcas where idmarca=" & id Set Rsmarcas = ObjDbConnection.execute(SqlQuery) titulo = Rsmarcas("nombre") url = Rsmarcas("url") descripcion = Rsmarcas("descripcion") Dim fs Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(uploadDir&Id&"."&Rsmarcas("extension")) Then imagen= "imagenes\marcas\"&Id&"."&Rsmarcas("extension") else imagen="imagenes\sinImagen.gif" end if %>
           
<< volver
 
<%=titulo%>
<%=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%>
<%if RsMarcas("url")<>"" then%>" target=_blank>enlace al web  <%end if%>
<%Piemarcas%>
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 Rsmarcas = Nothing %>