<%@ Language=VBScript %> <% 'Option Explicit %> <% connectToDb() %> <% Dim strPathToViews strPathToViews = "files/pro_images/" '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 %>
Sitemap
<% strSQL = "SELECT * FROM category_tbl" strSQL = strSQL & " WHERE cat_view='1' AND cat_parent_id='0' ORDER BY cat_order_by ASC" set objRS = objconn.execute(strSQL) if not objRS.EOF then While not objRS.EOF strSQL = "SELECT * FROM category_tbl" strSQL = strSQL & " WHERE cat_view='1' AND cat_parent_id='"& objRS("cat_id") &"' ORDER BY cat_order_by ASC" set objRS2 = objconn.execute(strSQL) if objRS("cat_type") = "menu" then strTmp = objRS("cat_title") elseif objRS("cat_type") = "pro" then strTmp = ""& objRS("cat_title") &"" elseif objRS("cat_type") = "link" then strTmp = ""& objRS("cat_title") &"" end if if not objRS2.EOF then response.write "" response.write "" else response.write "" end if objRS2.Close objRS.MoveNext Wend end if objRS.Close %>
<% killConnectionToDb() %>