|
Welcome
to Khukri Free-Zone…!
To
point us in the right direction, some of you have asked for
an area where you can talk about Khukri XXX Rum and get a
personal response. While others wanted to offer their input
into our range of products and services. And there’s another
group who quite fancied talking to like-minded people about
things like their rum experience, partying with Khukri XXX
Rum and knitting (ok, we made that last one up).
|
|
|
We
may not be able to do all this but we’re committed to keeping
your views in mind and if you’ve got something you want to
say about any aspect of Khukri XXX Rum – click the Add button
just below and fill FREE to write in the KHUKRI ZONE.
Add
your Comments.
If
you just entered some comments and they haven't shown up,
click the Refresh/Reload button on your browser, before you
enter them again or else they will show up twice! :-
|
|
<%
Dim currentPage, rowCount, i
currentPage =Trim(Request ("currentPage"))
if currentPage = "" then currentPage = 1
'connectme1="DSN=dsnhere;uid=;pwd="
connectme1="PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("comments.mdb")
set connectme=Server.CreateObject("ADODB.Connection")
connectme.open connectme1
set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.CursorType = adOpenStatic
rstemp.PageSize = 5
rstemp.open "select * from tblComments ORDER BY dateposted DESC ",connectme
rstemp.AbsolutePage = cINT(currentPage)
rowCount = 0
while not rstemp.EOF and rowCount < rstemp.PageSize
%>
<% 'Do while not rstemp.EOF
%>
"><%=rstemp("fname")%> <%=rstemp("lname")%>
<% if rstemp("city")>"" or rstemp("state")>"" or rstemp("country")>"" then %>
from
<%end if%>
<%=rstemp("city")%>
<% if rstemp("state")>"" then %>
, <%=rstemp("state")%><%=rstemp("state1")%>
<%end if%>
<% if rstemp("country")>"" then %>
<% if rstemp("city")>"" or rstemp("state")>"" then %>
,
<%end if%> <%end if%>
<%=rstemp("country")%><%=rstemp("country1")%>
who visited on <%=rstemp("dateposted")%>
<%=rstemp("rum")%> said:
|
<%
rowCount = rowCount + 1
rstemp.MoveNext
Wend
%>
Page
no : <%
'loop
'Response.Write "
"
for i=1 to rstemp.pageCount %> <%=i%>
<%
next
'rstemp.close
'set rstemp=nothing
%> |
|
