<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
SMALL CYCLADES MANAGER >GALLERY (EN) MANAGER>VIEW/MODIFY ENTRIES
<% pg=trim(request("pg")) if pg="" then pg=1 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 set ets=server.CreateObject("adodb.recordset") ets.activeconnection=myconnection ets.CursorType=3 ets.CursorLocation = 3 ets.Pagesize=10 rowcount=0 sql="SELECT * FROM `galleryen` ORDER BY `priority`" ets.open sql,myconnection ets.Absolutepage=pg do while not ets.eof and rowcount <% ets.movenext loop %>
ID ISLAND TITLE DESCRIPTION KEYWORDS TYPE PRIORITY PICTURE PHOTO PREVIEW DELETE
<% response.write ets.fields("id") %> <% select case ets.fields("islands") case "1" response.write "Donoussa" %> <% case "2" response.write "koufonissia" %> <% case "3" response.write "Schinoussa" %> <% case "4" response.write "Iraklia" %> <% end select %> <% response.write ets.fields("title") %> <% response.write ets.fields("description") %> <% set ets12=server.CreateObject("adodb.recordset") ets12.activeconnection=myconnection sql12="SELECT * FROM `keyss` where owner =" & ets.fields("id") ets12.open sql12,myconnection do while not ets12.eof response.write ets12.fields("keyword") response.write ", " ets12.movenext loop %> <% if ets.fields("type")="1" then response.Write("horizontal") else response.Write("vertical") end if %>  <% response.write ets.fields("priority") %>
<% response.write "" & ets.fields("photo") & " " %>
<% if ets.fields("photo")="no" then response.Write("no photo available") else response.write "" end if %>
<%response.write "" %>
 
Pages : <% for i=1 to ets.Pagecount response.write" "& i & " " next %>
>>GALLERY (EN) MANAGER
>>MAIN MENU