Advertisement
Guest User

Untitled

a guest
Sep 29th, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 1.28 KB | None | 0 0
  1. '
  2. '//////////////////////////////////////////////////////////////////////////////// CHECK FEATURES
  3. '
  4. dim feature(500)
  5. sql="SELECT * FROM features ORDER BY id DESC LIMIT 1"
  6. set rslastfeat=vanillaconn.execute(sql)
  7. for feat=1 to rslastfeat("id")
  8.     sql="SELECT * FROM features WHERE active=1 AND id=" & feat
  9.     set rsfeat=vanillaconn.execute(sql)
  10.     if rsfeat.eof then
  11.         feature(feat)=0
  12.     else
  13.         sql="SELECT * FROM sites_features WHERE active=1 AND feat_id=" & feat & " AND site_id=" & rssite("id")
  14.         set rsfeat2=vanillaconn.execute(sql)
  15.         if rsfeat2.eof then
  16.             feature(feat)=0
  17.         else
  18.             feature(feat)=1
  19.         end if
  20.         rsfeat2.close
  21.     end if
  22.     rsfeat.close
  23. next
  24. rslastfeat.close
  25.  
  26. dim ecom_feature(500)
  27. sql="SELECT * FROM ecom_features ORDER BY id DESC LIMIT 1"
  28. set rslastfeat=vanillaconn.execute(sql)
  29. for feat=1 to rslastfeat("id")
  30.     sql="SELECT * FROM ecom_features WHERE active=1 AND id=" & feat
  31.     set rsfeat=vanillaconn.execute(sql)
  32.     if rsfeat.eof then
  33.         ecom_feature(feat)=0
  34.     else
  35.         sql="SELECT * FROM sites_ecom_features WHERE active=1 AND feat_id=" & feat & " AND site_id=" & rssite("id")
  36.         set rsfeat2=vanillaconn.execute(sql)
  37.         if rsfeat2.eof then
  38.             ecom_feature(feat)=0
  39.         else
  40.             ecom_feature(feat)=1
  41.         end if
  42.         rsfeat2.close
  43.     end if
  44.     rsfeat.close
  45. next
  46. rslastfeat.close
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement