<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
SMALL CYCLADES MANAGER >REAL ESTATE (GR) MANAGER>INSERT NEW ENTRY
<% FUNCTION fixme(theString) fixme=REPLACE(theString,"'","`") END FUNCTION shorty=request.Form("short") lonqnews=request.Form("long") titlerr=request.form("titler") price=request.form("price") 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="INSERT INTO `estategr` ( `id` , `title` , `ektasi` , `desc` , `price` , `pic` , `priority` , `type` , `nisi` , `lookingfor` ) VALUES ('', '" & fixme(titlerr) & "', '" & fixme(shorty) & "', '" & fixme(lonqnews) & "', '" & fixme(price) & "', 'no" & "', '" & fixme(priority) & "', '" & fixme(prtype) & "', '" & fixme(island) & "', '" & fixme(look) & "');" myconnection.execute sql %> NEW ENTRY COMPLETED
>>REAL ESTATE (GR) MANAGER
>>MAIN MENU