<%
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.Open "Select * from Messages where Countries LIKE '%Germany%' and Status = 'Live' order by ID desc ", conn
'Recordset1.CursorType = 0
'Recordset1.CursorLocation = 2
'Recordset1.LockType = 1
'Recordset1.Open()
Recordset1_numRows = 15
%>
<%
Repeat1__numRows = 15
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
|
|
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
|