% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" ValorIVA = Application("IVA") Set conn = Server.CreateObject("ADODB.Connection") strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=www.gextcomputer.com;DATABASE=deltashop;UID=gextcomputer;PWD=deltashop05; OPTION=3" conn.open strConn %>
|
|
<%
on error resume next
if Session("UID") <> "" AND Session("TIPOUSER") > 0 then strIVA = "PVD - IVA no incluido" else strIVA = "PVP - IVA incluido"
%>
Gextcomputer, S.L. <%=strIVA%> <% if Session("UID")<>"" then%>Cliente: <%=ucase(Session("NOMBREUSER"))%> <%end if dim strSQL dim NumFamilia NumFamilia=request.querystring("IDFAMILIA") if NumFamilia="" then NumFamilia=24 end if Session("PaginaOrigen") = "tb_articulos.asp?IDFAMILIA=" & NumFamilia 'si no existe idfam en tbl_art da un error strSQL="SELECT idart, codart, descrip, tbl_Marcas.idmarca, tbl_Familias.idfam, pvd, pvp, tbl_art.nomimg, caracter, linkart, FAMILIA, NOMARCA FROM tbl_art INNER JOIN tbl_Familias ON tbl_art.idfam = tbl_Familias.IDFAM INNER JOIN tbl_Marcas ON tbl_art.idmarca = tbl_Marcas.idmarca WHERE tbl_Familias.IDFAM=" & NumFamilia & " ORDER BY NOMARCA, CODART ASC" set rs=Conn.Execute(strSQL) %> <%=ucase(rs("FAMILIA"))%>
|
Distribuidores de Material Informático Gextcomputer, S.L. Unipersonal c/Magnolia, 7 28522 Rivas Urbanizaciones (Madrid) Spain Tfno: 91 499 03 02 - Fax: 91 499 03 29
Copyright © 2003-<%=year(now)%> manbos.com |