|
|
<%
if Session("UID") <> "" AND Session("TIPOUSER") > 0 then strIVA = "PVD - IVA NO INCLUIDO" else strIVA = "PVP - IVA INCLUIDO"
%>
Gextcomputer, S.L.
<%
if Session("UID")<>"" then%>
Cliente: <%=ucase(Session("NOMBREUSER"))%>
<%end if%>
<%=strIVA%>
<% FechaLocal = DateAdd("h", +Application("HoraMadrid"), Now) %>
<%=FormatDateTime(FechaLocal, vbLongDate)%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT idart, codart, descrip, nomimg, caracter, pvd, pvp FROM tbl_art WHERE promo <> 0"
rs.Open strSQL, conn
%>
<%
do until rs.EOF
%>
| <%
if isnull(rs("nomimg")) or rs("nomimg") = "" then
NombreImagen = "GEXT50.JPG"
else
NombreImagen = rs("nomimg")
end if
%>
|
<%=rs("descrip")%>
<%
lngTexto = 190
strCaracter = trim(rs("caracter"))
if strCaracter <> "" or not isnull(strCaracter) then
if len(strCaracter) > lngTexto then
strDescrip = left(strCaracter, lngTexto)
posicion = InStrRev(strDescrip, " ")
strDescrip = left(strDescrip, posicion) & "..."
else
strDescrip = strCaracter
end if
else strDescrip = "- Sin descripción -"
end if
%>
<%=strDescrip%>
<%
if strCaracter <> "" or not isnull(strCaracter) then
%> más <%
end if
%>
|
<%
if Session("UID") <> "" AND Session("TIPOUSER") > 0 then
%>
PVD:
<%=FormatNumber(rs("PVD"),2,-1,-1)%>
€<%
else
%>
PVP:
<%=FormatNumber(rs("PVP") + (rs("PVP") * ValorIVA),2,-1,-1)%>
€ <%
end if
%>
|
|
<%
rs.MoveNext
loop
rs.Close
set rs=nothing
set rs = Server.CreateObject("ADODB.Recordset")
sql = "select NSESIONES from tbl_totales where IDUSER = 1"
rs.Open sql, conn
Visitas = rs("NSESIONES")
rs.close
set rs=nothing
conn.Close
set conn = nothing
%>
Agregar Gextcomputer a sus Favoritos
Establecer Gextcomputer como su Página de Inicio
Hemos recibido <%=FormatNumber(Visitas,0,-1,-1)%>
visitas
|
|
|
|
