<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
SMALL CYCLADES MANAGER >REAL ESTATE (GR) 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=VXJjMXwm; OPTION=3" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN set ets=server.CreateObject("adodb.recordset") ets.activeconnection=myconnection ets.CursorType=adOpenStatic ets.Pagesize=10 rowcount=0 sql="SELECT * FROM `news` WHERE 1 ORDER BY date desc" ets.open sql,myconnection ets.Absolutepage=pg do while not ets.eof and rowcount <% ets.movenext loop %>
ID LINK NEWS TITLE DATE CURRENT NEWS PICTURE DELETE
<% response.write ets.fields("id") %> <% response.write " "& ets.fields("shortnews") & " " %> <% response.write ets.fields("longnews") %> <% response.write ets.fields("title") %> <% response.write ets.fields("date") %> <% response.write " "& ets.fields("todays") %> <% response.write "" & ets.fields("picture") & " " %> <%response.write "" %>
     
<% for i=1 to ets.Pagecount response.write" "& i & " " next %>
>>REAL ESTATE (GR) MANAGER
>>MAIN MENU