<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
 
SMALL CYCLADES MANAGER >HOTELS (EN) MANAGER>VIEW/MODIFY ENTRIES
<% FUNCTION fixme(theString) fixme=REPLACE(theString,"'","`") END FUNCTION hdd=request.QueryString("whichnew") sit=request.QueryString("situation") 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 if sit ="no" then sql="UPDATE `hotelsen2` SET `photo` = 'yes' WHERE `id` = " & hdd myconnection.execute sql sql2="CREATE TABLE `photocar" & hdd & "` (`id` INT NOT NULL AUTO_INCREMENT ,`pic` TEXT NOT NULL ,PRIMARY KEY ( `id` ) );" myconnection.execute sql2 end if %> WELCOME TO PHOTOALBUM FOR ENTRY WITH ΙD: <% response.Write (hdd) %>
<% session("piocar")=request.QueryString("whichnew") set ets=server.CreateObject("adodb.recordset") ets.activeconnection=myconnection sql3="SELECT * FROM `photocar" & request.QueryString("whichnew") & "` order by id " ets.open sql3,myconnection do while not ets.eof and rowcount <% ets.movenext loop %>
ID ΦΩΤΟΓΡΑΦΙΑΣ PHOTO DELETE
<% response.write "" & ets.fields("id") & "" %> <% if ets.fields("pic")="yes" then response.write "
" else response.write "
" end if %>
<% response.write "" %>
<% response.write "" %> >>INSERT NEW PHOTO
>>HOTELS(EN) MANAGER
>>MAIN MENU