<%@LANGUAGE="VBSCRIPT"%> <% ' *** Redirect If Session Variable Does Not Exist ' *** MagicBeat Server Behavior - 2016 - by Jag S. Sidhu - www.magicbeat.com If Session("svAccess") = "" Then Response.Redirect("login_failed.asp") End If %> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: set variables If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_connCapRes_STRING MM_editTable = "Property_Details" MM_editColumn = "ID" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "edit_your_listing_ok.asp" MM_fieldsStr = "sale_status|value|askingprice|value|summery|value|description|value|numberofbedrooms|value|numberofreceptions|value|numberofbathrooms|value|numberoggarages|value|property_type|value|property_style|value|tenure|value|years_remaining|value|property_age|value|garden|value|location|value|area|value|garaging|value|commercial|value|feature_one|value|feature_two|value|feature_three|value|feature_four|value|feature_five|value|property_name_or_number|value|property_street_name|value|property_town_or_area|value|property_county|value|property_postcode_or_zip|value|country|value|date_time|value" MM_columnsStr = "Sale_Status|',none,''|Property_Price|none,none,NULL|Summery|',none,''|Description|',none,''|Number_of_Bedrooms|',none,''|Number_of_Receptions|',none,''|Number_of_Bathrooms|',none,''|Number_of_Garages|',none,''|Property_Type|',none,''|Property_Style|',none,''|Tenure|',none,''|Years_Remaining|',none,''|Property_Age|',none,''|Garden|',none,''|Location|',none,''|Area|',none,''|Garaging|',none,''|Commercial|',none,''|Main_Feature1|',none,''|Main_Feature2|',none,''|Main_Feature3|',none,''|Main_Feature4|',none,''|Main_Feature5|',none,''|Property_Name_or_Number|',none,''|Property_Street_Name|',none,''|Property_Town_or_Area|',none,''|Property_County|',none,''|Property_Postcode_or_Zip|',none,''|Property_Country|',none,''|Date_Amended|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Update Record: construct a sql update statement and execute it If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rs_listing__MMColParam rs_listing__MMColParam = "1" if (Session("svAccess") <> "") then rs_listing__MMColParam = Session("svAccess") %> <% set rs_listing = Server.CreateObject("ADODB.Recordset") rs_listing.ActiveConnection = MM_connCapRes_STRING rs_listing.Source = "SELECT * FROM Property_Details WHERE ID = " + Replace(rs_listing__MMColParam, "'", "''") + "" rs_listing.CursorType = 0 rs_listing.CursorLocation = 2 rs_listing.LockType = 3 rs_listing.Open() rs_listing_numRows = 0 %>

Please select the details you would like to edit. [Password] [Contact Details] [Property] [Photographs] Your Property ID: CR<%=(rs_listing.Fields.Item("PID").Value)%> EDIT YOUR PROPERTY DETAILS Status of Sale <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Sale_Status").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> For Sale Sold ( Subject to contract) Sold ( Listing will be removed) Remove This Property Asking Price (do not use £ sign) £ "> Summery (200 max.) "> Description <%=(rs_listing.Fields.Item("Description").Value)%> Number of Bedrooms <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Number_of_Bedrooms").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> 0 1 2 3 4 5 6 7 8 9 10 Number of Receptions <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Number_of_Receptions").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> 0 1 2 3 4 5 6 7 Number of Bathrooms <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Number_of_Bathrooms").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> 0 1 2 3 4 5 6 7 Number of Garages <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Number_of_Garages").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> 0 1 2 3 4 5 6 7 Property Type House Bungalow Maisonette Flat/Apartment Commercial Land Unique <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Property_Type").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> Property Style Detached Semi-Detached End Terrace Terraced Ground Floor Lower Ground Floor Upper Floor Penthouse Commercial Single Plot Multial Plot <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Property_Style").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> Tenure Freehold Leasehold Share of Freehold <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Tenure").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> Years Remaining if Leasehold "> Property Age New Build Modern Post War Pre War Period Plot Only Commercial <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Property_Age").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> Garden? No Garden Courtyard Communal Small Medium Large 1+ Acres 5+ Acres 10+ Acres <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Garden").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> Location Estate Non-Estate <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Location").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> Area Rural Semi Rural City Town Village <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Area").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> Garaging No Parking On Road Parking Off Road Parking Garaging <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Garaging").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> Commercial Non Commercial Guest House/Hotel Shop Office Pub/Restaurant Agricultural Land Other Commercial <% While (NOT rs_listing.EOF) %> " selected ><%=(rs_listing.Fields.Item("Commercial").Value)%> <% rs_listing.MoveNext() Wend If (rs_listing.CursorType > 0) Then rs_listing.MoveFirst Else rs_listing.Requery End If %> FIVE MAIN FEATURES (OPTIONAL) Feature One "> Feature Two "> Feature Three "> Feature Four "> Feature Five "> ADDRESS OF PROPERTY FOR SALE Name/Number "> Street Name "> Town/Area "> County/State "> Postcode/Zip "> Country "> ">

AsOne new media	Home | Our Services | Mortgages | Edit Your Listing Contact National Residence Terms & Conditions | Privacy Policy | Site Map

<% rs_listing.Close() %>