<% IF request.QueryString("lg") = "UK" then%> <% set dw=Server.CreateObject("ADODB.Connection") 'Open Database Connection dw.open = "Provider=SQLOLEDB;Data Source=home.infohost.co.uk;User ID=FM;Password=computers1;Initial Catalog=maddie_new" reponse = "SELECT top 500 * FROM Support2 WITH (NOLOCK) WHERE SPublic = 'true' and SApproved = 'true' order by SDate DESC" set comments=Server.CreateObject("ADODB.recordset") comments.Open reponse, dw, 3 if request.QueryString("page") = "" then page = 0 else page = cint(request.QueryString("page")) * 20 end if %> <% If comments.EOF And comments.BOF Then page = page - 1 end if comments.move page pageend = page + 20 items = page %> <%do until items = pageend items = items + 1%>

From: <%=comments("SName")%><%=comments("SDate")%>

<%=comments("SMemo")%>

<% comments.movenext if items = comments.recordcount then items = pageend end if LOOP comments.close comments.Open reponse, dw, 3 %>

<% for pages = 0 to (comments.recordcount/20 - 1) pagesend = 20 if pages = pageend then pagenow = (pagesend/20) end if%> <% if cint(pages) = cint(request.QueryString("page")) then %> Page  <%response.Write(pages+1)%>     <%else%> Page  <%response.Write(pages+1)%>     <%end if%> <%next%>

Showing last <%=comments.recordcount%> comments

<%comments.close%> <%end if%> <% IF request.QueryString("lg") = "PT" then%> <% set dw=Server.CreateObject("ADODB.Connection") 'Open Database Connection dw.open = "Provider=SQLOLEDB;Data Source=home.infohost.co.uk;User ID=FM;Password=computers1;Initial Catalog=maddie_new" reponse = "SELECT top 500 * FROM Support2 WITH (NOLOCK) WHERE SPublic = 'true' and SApproved = 'true' order by SDate DESC" set comments=Server.CreateObject("ADODB.recordset") comments.Open reponse, dw, 3 if request.QueryString("page") = "" then page = 0 else page = cint(request.QueryString("page")) * 20 end if %> <% If comments.EOF And comments.BOF Then page = page - 1 end if comments.move page pageend = page + 20 items = page %> <%do until items = pageend items = items + 1%>

From: <%=comments("SName")%><%=comments("SDate")%>

<%=comments("SMemo")%>

<% comments.movenext if items = comments.recordcount then items = pageend end if LOOP comments.close comments.Open reponse, dw, 3 %>

<% for pages = 0 to (comments.recordcount/20 - 1) pagesend = 20 if pages = pageend then pagenow = (pagesend/20) end if%> <% if cint(pages) = cint(request.QueryString("page")) then %> Page  <%response.Write(pages+1)%>     <%else%> Page  <%response.Write(pages+1)%>     <%end if%> <%next%>

Showing last <%=comments.recordcount%> comments

<%comments.close%> <%end if%> <% IF request.QueryString("lg") = "ES" then%> <% set dw=Server.CreateObject("ADODB.Connection") 'Open Database Connection dw.open = "Provider=SQLOLEDB;Data Source=home.infohost.co.uk;User ID=FM;Password=computers1;Initial Catalog=maddie_new" reponse = "SELECT top 500 * FROM Support2 WITH (NOLOCK) WHERE SPublic = 'true' and SApproved = 'true' order by SDate DESC" set comments=Server.CreateObject("ADODB.recordset") comments.Open reponse, dw, 3 if request.QueryString("page") = "" then page = 0 else page = cint(request.QueryString("page")) * 20 end if %> <% If comments.EOF And comments.BOF Then page = page - 1 end if comments.move page pageend = page + 20 items = page %> <%do until items = pageend items = items + 1%>

From: <%=comments("SName")%><%=comments("SDate")%>

<%=comments("SMemo")%>

<% comments.movenext if items = comments.recordcount then items = pageend end if LOOP comments.close comments.Open reponse, dw, 3 %>

<% for pages = 0 to (comments.recordcount/20 - 1) pagesend = 20 if pages = pageend then pagenow = (pagesend/20) end if%> <% if cint(pages) = cint(request.QueryString("page")) then %> Page  <%response.Write(pages+1)%>     <%else%> Page  <%response.Write(pages+1)%>     <%end if%> <%next%>

Showing last <%=comments.recordcount%> comments

<%comments.close%> <%end if%>