<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
SMALL CYCLADES MANAGER >REAL ESTATE (GR) MANAGER>VIEW/MODIFY ENTRIES
<% FUNCTION fixme(theString) fixme=REPLACE(theString,"'","`") END FUNCTION shorty=request.Form("short") lonqnews=request.Form("long") hdd=request.form("hd") titlerr=request.form("titler") price=request.form("price") hdd=request.form("hd") priority=request.form("priority") prtype=request.form("prtype") island=request.form("island") look=request.form("look") myDSN="DSN=smallcyclades_com;uid=ferrari;pwd=VXJjMXwm;" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN sql="UPDATE `estategr` SET `title` = '" & fixme(titlerr) & "',`ektasi` = '" & fixme(shorty) & "',`desc` = '" & fixme(lonqnews) & "',`price` = '" & fixme(price) & "',`priority` = '" & fixme(priority) & "',`type` = '" & fixme(prtype) & "',`nisi` = '" & fixme(island) & "',`lookingfor` = '" & fixme(look) & "' WHERE `id` = " & hdd myconnection.execute sql %> CHANGE COMPLETE ON ENTRY NO <% response.Write (hdd) %>
>>VIEW/ MODIFICATE REAL ESTATE (GR)
>>REAL ESTATE (GR) MANAGER
>>MAIN MENU