<%@ Language=VBScript %> <% 'Option Explicit %> <% connectToDb() %> <% 'SQLtext = "SELECT * FROM category_tbl ORDER BY cat_title ASC" 'set rstemp=objconn.execute(SQLtext) 'while not rstemp.EOF ' response.write "
cat_title:" & rstemp("cat_title") ' ' rstemp.moveNext 'wend 'set rstemp=Nothing mod_var_one = replace(request("mod_var_one"),"-"," ") SQLtext = "SELECT * FROM category_tbl WHERE cat_title LIKE '%" & mod_var_one & "%'" 'response.write "
SQLtext:" & SQLtext set rstemp=objconn.execute(SQLtext) if not rstemp.EOF then cat_id = rstemp("cat_id") end if set rstemp=Nothing 'response.write "
cat_id:" & cat_id Dim strPathToViews, cat_id strPathToViews = "/files/pro_images/" if cat_id = "" then cat_id = clean_variable(Request("cat_id"),0) end if 'this code is for sure, when Article don't have any images so then show homepage texts and images 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") pro_image_3 = objRS("pro_image_3") ' objRS.MoveNext ' Wend end if objRS.Close strSQL = "SELECT * FROM product_tbl" if cat_id <> "" then strSQL = strSQL & " WHERE pro_view='1' AND pro_cat_join='"& cat_id &"' ORDER BY pro_order_by ASC LIMIT 1" else strSQL = strSQL & " WHERE 1=1" end if 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") 'response.write "
-->" & pro_title 'response.write "
-->" & pro_desc pro_cat_join = objRS("pro_cat_join") pro_image_0 = objRS("pro_image_0") if objRS("pro_image_1") <> "" then pro_image_1 = objRS("pro_image_1") end if if objRS("pro_image_2") <> "" then pro_image_2 = objRS("pro_image_2") end if if objRS("pro_image_3") <> "" then pro_image_3 = objRS("pro_image_3") end if ' objRS.MoveNext ' Wend end if objRS.Close %>
<% if pro_image_1 <> "" then %>Vellagio images<% end if %>
<% if pro_image_0 <> "" then %><% else %><%= pro_title %><% end if %>
<%= pro_desc %>
<% if pro_image_3 <> "" then %><% end if %>
    website design by skylab <% killConnectionToDb() %>