 |
|
|
<%
Set rshead = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT blogus.* FROM blogus where active='Yes' ORDER BY word_id Desc;"
rshead.Open strSQL, strConnString, 1, 3
rshead.PageSize = intRecordsPerPage
If NOT rshead.EOF Then rshead.AbsolutePage = page
If rshead.EOF Then
rshead.Close
Set rshead = Nothing
Set strConnString = Nothing
Else
Response.Write ""
Response.Write " "
totale = rshead.RecordCount
For u=1 to intRecordsPerPage
If rshead.EOF Then Exit For
dates = rshead("date")
dates = FormatDateTime(dates, 2)
%>
From <% = rshead("fname") %>, <% = rshead("country") %>, <%=Dates%> - <% = rshead("blog") %>
|
<%
rshead.movenext
Next
%>
|
<%
Response.Write ""
End If
rshead.Close
Set rshead = Nothing
Set strConnString = Nothing
mainhd = 800
%>
|
|
Blog US!!
Please Write Your Comments Below - About Your Own Recent Stay With Us….. |
|
| The above information is confidential and will be sent via secure site.
|
|
| |
|
