Αρχή :: Ενότητες :: Scripting :: Απαντήσεις     
 

Forum

paroysiash se dio stiles - Από {mpempe}

exo mia selida poy paroysiazei kapoia proionta
ta bgazei to ena kato apo to allo.

Ti prepei na prostheso ston kodika gia na moy ta vgazei se dio stiles?

Sas paratheto ton kodika

<%
Randomize
CONST numFeatured = 6

' Retrieve Featured Products
sqlString = "SELECT product_id, product_picture, product_name, product_category, product_price, p_etos " &_
"FROM Products WHERE product_featured = 1 " &_
"AND product_status=1 " &_
"ORDER BY product_name "

SET Featured = Con.Execute( sqlString )
IF NOT Featured.EOF THEN
featuredArray = Featured.GetRows()
Featured.Close

' Display Featured Products
topFeatured = UBOUND( featuredArray, 2 ) + 1
skip = topFeatured / numFeatured
IF topFeatured <= numFeatured THEN skip = 1
%>

cellpadding=5 cellspacing=0>
<%
FOR i = 0 TO topFeatured - 1 STEP skip
offset = RND * ( skip - 1 )
productID = featuredArray( 0, i + offset )
productPicture = featuredArray( 1, i + offset )
productName = featuredArray( 2, i + offset )
productCategory = featuredArray( 3, i + offset )
productprice = featuredArray( 4, i + offset )
etos = featuredArray( 5, i + offset )
%>




<%
NEXT
%>

<% IF productPicture <> "?????" THEN %>

HSPACE=4 VSPACE=4 BORDER=1 align="center" width="60" height="41">
<% END IF %>


<%=productCategory%>  <%=productName%>


Τιμή <%=productprice%> Ευρώ , Μοντέλο <%=etos%>

<%
END IF
%>

 




tip: Gr και διεθνή domain names με δωρεάν web hosting * F5 για νέο tip

   Πίσω στην προηγούμενη σελίδα






Η Εταιρία | Web Hosting | Domain names | Web Information | Υπηρεσίες | Resellers | Υποστήριξη |
Copyright © 2007–09 4GR.NETWORKS, All rights reserved.