Guest User

Untitled

a guest
Jun 18th, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.15 KB | None | 0 0
  1. <%@ Language=VBScript %>
  2. <%option explicit%>
  3. <%
  4. dim frontend_page
  5. frontend_page = 1 ' SETTING DATABASE PATH
  6. %>
  7. <!--#include file="./include/global.asp"-->
  8. <!--#include file="./include/cwl_lib.asp"-->
  9. <% dim str_sql,rs_pro,tot_rec ,i,j,count,disp_count,rs_pro3,no_img,pass
  10. dim prop_id,rs_pro1,img_id,img_wid,img_hgt,img_name,rs_pro2,int_pro_id,str_category_name,int_category_id
  11. dim prop_state,prop_city,prop_street,prop_pin,str_meta_keyword,str_meta_description,img_desc
  12. dim reg_pro_name,reg_pro_email,reg_pro_phone,reg_pro_comment , prop_type, typetitle
  13. pass = ""
  14. no_img = 0
  15. if request("property")<> "" then
  16. int_pro_id = request("property")
  17. int_pro_id = clng(int_pro_id)
  18. 'str_sql = "select * from tbl_property_image where int_property_id="&int_pro_id&" and bit_disp = 1 and bit_active = 1"
  19. str_sql = "select * from tbl_property_image where int_property_id="&int_pro_id&" and bit_disp = 1 "
  20.  
  21. OpenADORecordSet strConnectionString,str_sql,rs_pro
  22. if rs_pro.recordcount > 0 then
  23. no_img = 0
  24. img_name = rs_pro("str_image_name")
  25. img_wid = rs_pro("int_image_width")
  26. img_hgt = rs_pro("int_image_height")
  27. img_desc = rs_pro("str_image_desc")
  28. else
  29. no_img = 1
  30. end if
  31. CloseADORecordSet(rs_pro)
  32. str_sql = "select * from tbl_property where int_property_id ="&int_pro_id
  33. OpenADORecordSet strConnectionString,str_sql,rs_pro1
  34. prop_state = rs_pro1("str_property_state")
  35. prop_city = rs_pro1("str_property_city")
  36. prop_street = rs_pro1("str_property_street")
  37. prop_pin = rs_pro1("str_property_pin")
  38. int_category_id = rs_pro1("int_category_id")
  39. int_category_id = cint(int_category_id)
  40. if int_category_id = 1 then
  41. str_category_name = "Lands"
  42. else
  43. str_category_name = "Homes"
  44. end if
  45. str_meta_keyword = rs_pro1("str_meta_keyword")
  46. str_meta_description = rs_pro1("str_meta_description")
  47. prop_type=str_category_name
  48. %>
  49.  
  50.  
  51. <!--#include file="inc-details.asp"-->
Add Comment
Please, Sign In to add comment