Send a support message
<%
set dw=Server.CreateObject("ADODB.Connection")
'Open Database Connection
dw.open = "Provider=SQLOLEDB;Data Source=212.140.121.40;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%>
