MAGNOLIA - LASYA LAYOUT PLAN

 
<% dim rst dim conn Set conn = Server.CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("admin/admin.mdb") & ";" rst.open "Select top 52 * From plot",conn,1,2 'plot_number,description,area,avail_yes 'Response.Write(rst(1)) 'Response.End() dim i dim coords(52) 'coords = Array("2","323,463,424,525", "430,461,516,528", "325,530,423,589", "430,531,515,594", "564,461,652,524", "565,523,653,593", "655,459,740,520", "655,522,736,598", "822,512,916,584", "923,512,1014,585", "820,588,913,655", "919,590,1011,659", "815,659,907,724", "916,663,1006,729", "815,728,901,793", "912,733,1004,798", "808,800,899,865", "908,803,999,869", "805,869,894,936", "1077,528,1167,596", "1173,530,1264,597", "1064,742,1157,808", "1163,745,1254,813", "1062,812,1149,877", "1160,818,1252,886", "1058,884,1145,957", "1157,889,1246,961", "1072,600,1164,666", "1325,536,1420,604", "1430,542,1517,609", "1328,611,1417,679", "1422,617,1516,680", "1323,682,1414,747", "1421,686,1513,753", "1319,753,1409,820", "1415,757,1509,821", "1313,824,1405,891", "1410,827,1504,894", "1587,501,1673,572", "1584,577,1667,629", "1581,634,1669,686", "1574,690,1667,742", "1567,860,1657,914", "1564,919,1648,987", "1572,747,1662,802", "1568,805,1656,855", "1307,894,1401,971", "1406,899,1499,974", "1069,671,1161,738", "1169,675,1260,742", "1168,604,1263,670", "901,876,994,945") coords(1)="87,142,141,175" coords(2)="88,176,141,210" coords(3)="141,177,187,210" coords(4)="140,141,186,175" coords(5)="210,140,253,174" coords(6)="209,171,253,207" coords(7)="253,173,295,212" coords(8)="252,139,296,174" coords(9)="336,166,382,204" coords(10)="334,203,381,237" coords(11)="332,238,378,273" coords(12)="329,274,377,308" coords(13)="328,310,375,342" coords(14)="326,344,371,379" coords(15)="375,344,422,381" coords(16)="376,309,423,342" coords(17)="379,274,427,308" coords(18)="381,240,427,273" coords(19)="381,205,427,239" coords(20)="384,170,430,204" coords(21)="459,173,505,208" coords(22)="458,209,503,243" coords(23)="457,244,502,280" coords(24)="455,281,500,313" coords(25)="452,315,498,348" coords(26)="450,349,496,384" coords(27)="499,350,544,388" coords(28)="500,314,546,349" coords(29)="501,279,548,314" coords(30)="504,244,550,279" coords(31)="506,209,552,244" coords(32)="508,175,552,208" coords(33)="581,179,628,214" coords(34)="581,216,628,250" coords(35)="579,250,626,284" coords(36)="577,285,624,320" coords(37)="577,320,621,353" coords(38)="575,355,618,395" coords(39)="621,358,668,396" coords(40)="624,321,670,355" coords(41)="625,284,672,321" coords(42)="627,250,674,284" coords(43)="628,217,676,251" coords(44)="631,183,679,216" coords(45)="708,157,752,197" coords(46)="708,198,749,227" coords(47)="706,226,751,253" coords(48)="704,254,749,281" coords(49)="702,282,745,312" coords(50)="700,313,745,339" coords(51)="698,339,743,363" coords(52)="696,364,745,400" %> <% do while not rst.eof i = rst(0) %> <% rst.movenext loop rst.close conn.close Set rst = Nothing Set conn = Nothing %> <% function GetDet(a,b,c,d) Dim plot plot = replace(b,"'","\'") msg="" msg=msg & "" msg=msg & "" msg=msg & "" if c="True" then c="Booked" else c="Available" end if msg=msg & "" msg=msg & "
Name : " & replace(d,"""","\'\'") & "
Plot No.: " & a & "
Plot Size : " & replace(plot,"""","\'\'") & "
Status: " & c & "
" GetDet=msg end function %>