

<%
Dim oCat
Set oCat=Server.CreateObject("adodb.recordset")
Dim sSql
sSql="Select * From CatMast"
oCat.Open(sSql),oCn,1,3
While Not oCat.EOF %>
|
">
<%=oCat.Fields("Category")%>
|
<%
oCat.MoveNext
Wend
%>

<%
Set oCat=Server.CreateObject("adodb.recordset")
sSql="Select * From CatMast"
oCat.Open(sSql),oCn,1,3
While Not oCat.EOF %>
|
">
<%=oCat.Fields("Category")%>
|
<%
oCat.MoveNext
Wend
%>
|
|
Rajasthan is culturally rich and has extensive tradition in art and culture, which
reflects Indian way life. The dance, music and art forms have been watchfully cultivated
and patronised by the erstwhile courts.
Events
 |
 |
|
Rajasthan
Diwas Celebration |
Rajasthan
Diwas Celebration |
 |
 |
|
Rajasthan
Diwas Celebration |
Rajasthan
Diwas Celebration |
 |
 |
|
Rajasthan
Diwas Celebration |
Rajasthan
Diwas Celebration |
 |
 |
|
Rajasthan
Diwas Celebration |
Rajasthan
Diwas Celebration |
|
|
|
|
«
BACK |
NEXT
» |
<%
Dim oAlbumRs, oCatRs
Set oAlbumRs = Server.CreateObject("Adodb.RecordSet")
sSql = "Select Top 4 Albums.AlbumID, AlbumCode, Title, LargeImage,SmallImage, CategoryID, FolderName From " & _
"(Select * From AlbumCategory) as AlbumCategory " & _
"INNER JOIN " & _
"(Select * from Albums where IsNew=yes and AlbumType='A' And AlbumID IN (Select Distinct AlbumID From AlbumCategory) ) as Albums " & _
"ON AlbumCategory.AlbumID=Albums.AlbumID " & _
"Order BY Albums.AlbumID DESC"
sSql = "Select Top 4 * from Albums where IsNew=yes and AlbumType='A' Order BY AlbumID DESC"
oAlbumRs.Open sSql,oCn,3,3
%>
<%
Dim RowCount
RowCount=1
oCat.MoveFirst
While Not oCat.EOF
%>
" target="">
<%=oCat.Fields("Category")%>
<%
If RowCount Mod 4 = 0 Then
Response.Write " "
ElseIf RowCount
<%
RowCount = RowCount + 1
oCat.MoveNext
Wend
%>
|