Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%@ Language=VBScript %>
- <%option explicit%>
- <%
- dim frontend_page
- frontend_page = 1 ' SETTING DATABASE PATH
- %>
- <!--#include file="./include/global.asp"-->
- <!--#include file="./include/cwl_lib.asp"-->
- <% dim str_sql,rs_pro,tot_rec ,i,j,count,disp_count,rs_pro3,no_img,pass
- dim prop_id,rs_pro1,img_id,img_wid,img_hgt,img_name,rs_pro2,int_pro_id,str_category_name,int_category_id
- dim prop_state,prop_city,prop_street,prop_pin,str_meta_keyword,str_meta_description,img_desc
- dim reg_pro_name,reg_pro_email,reg_pro_phone,reg_pro_comment , prop_type, typetitle
- pass = ""
- no_img = 0
- if request("property")<> "" then
- int_pro_id = request("property")
- int_pro_id = clng(int_pro_id)
- 'str_sql = "select * from tbl_property_image where int_property_id="&int_pro_id&" and bit_disp = 1 and bit_active = 1"
- str_sql = "select * from tbl_property_image where int_property_id="&int_pro_id&" and bit_disp = 1 "
- OpenADORecordSet strConnectionString,str_sql,rs_pro
- if rs_pro.recordcount > 0 then
- no_img = 0
- img_name = rs_pro("str_image_name")
- img_wid = rs_pro("int_image_width")
- img_hgt = rs_pro("int_image_height")
- img_desc = rs_pro("str_image_desc")
- else
- no_img = 1
- end if
- CloseADORecordSet(rs_pro)
- str_sql = "select * from tbl_property where int_property_id ="&int_pro_id
- OpenADORecordSet strConnectionString,str_sql,rs_pro1
- prop_state = rs_pro1("str_property_state")
- prop_city = rs_pro1("str_property_city")
- prop_street = rs_pro1("str_property_street")
- prop_pin = rs_pro1("str_property_pin")
- int_category_id = rs_pro1("int_category_id")
- int_category_id = cint(int_category_id)
- if int_category_id = 1 then
- str_category_name = "Lands"
- else
- str_category_name = "Homes"
- end if
- str_meta_keyword = rs_pro1("str_meta_keyword")
- str_meta_description = rs_pro1("str_meta_description")
- prop_type=str_category_name
- %>
- <!--#include file="inc-details.asp"-->
Add Comment
Please, Sign In to add comment