<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Set Conn = server.CreateObject("ADODB.Connection") Conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=212.199.44.55; Database=ligraf; User=ligraf; Password=fgjn$1!; Option=3;" Conn.Execute("SET NAMES hebrew") Dim thisPage thisPage="Sales" %>

<% x = 9 %> <% set rs = Conn.Execute("Select replace(itemLongDescr, '2009', '2010') as itemLongDescr from myadmin_texts where ID = 5") rsarray = rs.GetRows %> <%=rsarray(0,0)%> <% set rs = Conn.Execute("Select ID, itemTitle, itemLongDescr from myadmin_texts where itemType = 1 AND Active = 1 order by itemOrder") rsarray = rs.GetRows numrows = ubound(rsarray,2) for i = 0 to numrows Step 3 %> <% Next %>      <%=rsarray(1,i)%> <% if (numrows >= i + 1) then %>      <%=rsarray(1,i+1)%> <% end if %> <% if (numrows >= i + 2) then %>      <%=rsarray(1,i+2)%> <% end if %> <% if (numrows >= i + 1) then %> <% end if %> <% if (numrows >= i + 2) then %> <% end if %> <%=rsarray(2,i)%> <% if (numrows >= i + 1) then %> <%=rsarray(2,i+1)%><% end if %> <% if (numrows >= i + 2) then %> <%=rsarray(2,i+2)%><% end if %> "> <% if (numrows >= i + 1) then %>"><% end if %> <% if (numrows >= i + 2) then %>"><% end if %>