%@LANGUAGE="VBSCRIPT"%> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_ConnBooks_STRING Recordset1.Source = "SELECT * FROM Books ORDER BY Number DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_ConnBooksComments_STRING Recordset2.Source = "SELECT * FROM bookscomments ORDER BY Num DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 3 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 1 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 10 Dim Repeat2__index Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %>
![]() ![]() |
||||||
|
HOME |
LITERARY NEWS | BOOKSHOP | WRITING | contact us | ||
Rejection
letters |
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
|
||||||
|
IN
THE LITMAG this
month |
|||||||
|
name:
|
<%=(Recordset2.Fields.Item("Name").Value)%> |
|
email:
|
<%=(Recordset2.Fields.Item("Email").Value)%> |
|
topic:
|
<%=(Recordset2.Fields.Item("Topic").Value)%> |
|
comment:
|
<%=(Recordset2.Fields.Item("Comments").Value)%> |
silverfish books, 67-1 jalan telawi tiga, bangsar baru, 59100 kuala lumpur, malaysia. tel: (603) 228 448 37, email: sbooks@streamyx.com
<% Recordset1.Close() %> <% Recordset2.Close() %>