%@LANGUAGE="VBSCRIPT"%>
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "form1") Then
MM_editConnection = MM_mitchell_STRING
MM_editTable = "freereport"
MM_editRedirectUrl = "formaction.asp?action=freereport"
MM_fieldsStr = "sell|value|sell1|value|sell2|value|buyer|value|buyer1|value|fname|value|lname|value|email|value|iam|value"
MM_columnsStr = "sell|none,'Y','N'|sell1|none,'Y','N'|sell2|none,'Y','N'|buyer|none,'Y','N'|buyer1|none,'Y','N'|fname|',none,''|lname|',none,''|email|',none,''|iam|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
session(MM_fields(MM_i)) = Request.Form(MM_fields(MM_i)) 'this sets the session for a given field name
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
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
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
%>
Staging a Fabulous Kitchen | Mitchell Team | Real Estate Newmarket, RealCanada Networks
Staging A Fabulous Kitchen
The kitchen is the most important room in the house. It is a crucial selling point and minor remodeling is one of the most cost-effective investments you can make when it comes time to sell.
Here are a few ways to make your kitchen more appealing to buyers on a low budget.
New paint is a solution if your kitchen colour is outdated. Repaint dark, dramatic walls in soft neutrals, taupes and light greens for a more spacious feel. The colours you choose should complement the cabinets, floor and countertops and will need to work with the colour scheme in the rest of the home.
If your kitchen cabinets are not in good condition or outdated, one of the easiest ways to revitalize a cabinet is to paint. Upgrading the hardware will also give the kitchen a newer fresh look.
Have modern and energy efficient lighting in the kitchen. Choose lighting that works with either a contemporary or tradional décor. Under-cabinet lighting will create a more user-friendly kitchen.
Create a spacious and organized kitchen “Clutter be gone” Store or get ride of items you don’t use daily on top of countertops, kitchen cabinets, refrigerator and microwave. Buyers should see this as an inviting spotless kitchen with plenty of counter space to entertain. Pack up the cupboards and drawer of things not used to give the illusion of lots of storage space.
Less is more; remove all extra furnishings in the kitchen to create good traffic flow.
Remove heavy dated window coverings and replace them with simple shades. It is important to have natural lighting in the kitchen.
Add the WOW factor by staging the kitchen with large art, flowers, fruit bowls with green apples and new towels
Replace or refresh counter top if needed, fresh caulking and grout on countertops.
If your sink and faucet look old and outdated replace them with new updated ones. This will go along way towards improving the look of your kitchen.
Make the kitchen sparkle with freshly washed windows, floors, appliance and countertops. If the floor is worn in spots consider an area rug.