<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
SMALL CYCLADES MANAGER >CAFE (GR) MANAGER>VIEW/MODIFY ENTRIES
<% FUNCTION fixme(theString) fixme=REPLACE(theString,"'","`") END FUNCTION island=request.Form("island") title=request.Form("title") hdd=request.form("hd") desc=request.form("desc") typer=request.form("look") telephone=request.form("telephone") priority=request.form("priority") myDSN="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=smallcycl.ipowermysql.com; DATABASE=ferrari_default; UID=ferrari;PASSWORD=VXJjMXwm; OPTION=3" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN sql="UPDATE `cafegr` SET `priority` = '" & fixme(priority) & "',`island` = '" & fixme(island) & "',`title` = '" & fixme(title) & "',`description` = '" & fixme(desc) & "',`telephone` = '" & fixme(priority) & "',`type` = '" & fixme(typer) & "' WHERE `id` = " & hdd myconnection.execute sql %> CHANGE COMPLETE ON ENTRY NO <% response.Write (hdd) %>
>>VIEW/ MODIFICATE CAFE (GR)
>>CAFE (GR) MANAGER
>>MAIN MENU