<%@ Language=VBScript %> <% 'Option Explicit %> <% connectToDb() %> <% Dim strPathToViews, search_text strPathToViews = "files/pro_images/" search_keyword = clean_variable(Request("search_keyword"),0) 'this code is for default texts and images from homepage strSQL = "SELECT * FROM product_tbl" strSQL = strSQL & " WHERE pro_view='1' AND pro_homepage='1' LIMIT 1" set objRS = objconn.execute(strSQL) if not objRS.EOF then ' While not objRS.EOF pro_id = objRS("pro_id") pro_title = objRS("pro_title") pro_desc = objRS("pro_desc") pro_cat_join = objRS("pro_cat_join") pro_image_0 = objRS("pro_image_0") pro_image_1 = objRS("pro_image_1") pro_image_2 = objRS("pro_image_2") ' objRS.MoveNext ' Wend end if objRS.Close %>
<% if pro_image_1 <> "" then %> Vellagio images <% end if %>



Gallery
<% killConnectionToDb() %>