<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
SMALL CYCLADES MANAGER >GALLERY (EN) MANAGER>VIEW/MODIFY ENTRIES
<% FUNCTION fixme(theString) fixme=REPLACE(theString,"'","`") END FUNCTION island=request.Form("island") title=request.Form("title") titlegr=request.Form("titlegr") desc=request.form("description") descgr=request.form("descriptiongr") priority=request.form("priority") kateuthinsi=request.form("kateuthinsi") hdd=request.form("hd") myDSN="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=smallcycl.ipowermysql.com; DATABASE=ferrari_default; UID=ferrari;PASSWORD=!antihack!; OPTION=3" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN sql="UPDATE `galleryen` SET `islands` = '" & fixme(island) & "',`title` = '" & fixme(title) & "',`titlegr` = '" & fixme(titlegr) & "',`description` = '" & fixme(desc) & "',`descriptiongr` = '" & fixme(descgr) & "',`type` = '" & fixme(kateuthinsi) & "',`priority` = '" & fixme(priority) & "' WHERE `id` = " & hdd myconnection.execute sql set ets14=server.CreateObject("adodb.recordset") sql4="select * from `keyss` where `owner` =" & hdd ets14.open sql4,myconnection if not ets14.eof then sql20="delete from keyss where `owner` =" & hdd myconnection.execute sql20 myArray = Split(request("keyss"),",") For i = LBound(myArray) TO UBound(myArray) sql2="INSERT INTO `keyss` ( `id` , `keyword` , `owner`, `islands`) VALUES ('', '" & fixme(myArray(i)) & "', '" & hdd & "', '" & request.Form("island") &"');" myconnection.execute sql2 Next else myArray = Split(request("keyss"),",") For i = LBound(myArray) TO UBound(myArray) sql3="INSERT INTO `keyss` ( `id` , `keyword` , `owner`, `islands`) VALUES ('', '" & fixme(myArray(i)) & "', '" & hdd & "', '" & request.Form("island") &"');" myconnection.execute sql3 Next end if sql20="delete from keyss where `keyword` =''" myconnection.execute sql20 %> CHANGE COMPLETE ON ENTRY NO <% response.Write (hdd) %>
>>VIEW/ MODIFICATE GALLERY EN)
>>GALLERY (EN) MANAGER
>>MAIN MENU