<% Function FormatNull(ByVal v) Dim s s = " " If Not IsNull(v) Then If Len(v) Then s = Trim(v) End If End If FormatNull = s End Function Dim dbConn set dbConn = server.createobject("ADODB.Connection") dbConn.open "OVGallery" Dim lGalleryID, lPageID lGalleryID = Request("GID") lPageNumber = Request("PID") sSQL = "SELECT tblGalleryImage.*, tblGallery.GalleryName, tblGallery.Description, tblGallery.PageCount, tblGallery.ImagePath from tblGalleryImage INNER JOIN tblGallery ON tblGalleryImage.GalleryID = tblGallery.GalleryID WHERE tblGalleryImage.PageNumber = " & lPageNumber & " AND tblGallery.GalleryID = " & lGalleryID Dim rsGallery set rsGallery= dbConn.execute(sSQL) Dim sGalleryName, sGalleryDescription sGalleryName = rsGallery.Fields("GalleryName") sGalleryDescription = rsGallery.Fields("Description") Dim iPageCount iPageCount = rsGallery("PageCount") Dim sImage1, sImage2, sImage3, sImage4, sImage5, sImage6, sImage7, sImage8, sImage9, sImage10 Dim sTitle1, sTitle2, sTitle3, sTitle4, sTitle5, sTitle6, sTitle7, sTitle8, sTitle9, sTitle10 sImage1 = " " sImage2 = " " sImage3 = " " sImage4 = " " sImage5 = " " sImage6 = " " sImage7 = " " sImage8 = " " sImage9 = " " sImage10 = " " sTitle1 = " " sTitle2 = " " sTitle3 = " " sTitle4 = " " sTitle5 = " " sTitle6 = " " sTitle7 = " " sTitle8 = " " sTitle9 = " " sTitle10 = " " Do While Not rsGallery.EOF Select Case rsGallery("SlotNumber") Case 1 sImage1 = "" sTitle1 = FormatNull(rsGallery("Title")) Case 2 sImage2 = "" sTitle2 = FormatNull(rsGallery("Title")) Case 3 sImage3 = "" sTitle3 = FormatNull(rsGallery("Title")) Case 4 sImage4 = "" sTitle4 = FormatNull(rsGallery("Title")) Case 5 sImage5 = "" sTitle5 = FormatNull(rsGallery("Title")) Case 6 sImage6 = "" sTitle6 = FormatNull(rsGallery("Title")) Case 7 sImage7 = "" sTitle7 = FormatNull(rsGallery("Title")) Case 8 sImage8 = "" sTitle8 = FormatNull(rsGallery("Title")) Case 9 sImage9 = "" sTitle9 = FormatNull(rsGallery("Title")) Case 10 sImage10 = "" sTitle10 = FormatNull(rsGallery("Title")) End Select rsGallery.MoveNext Loop %> odissi vilas - <%=sGalleryName%>

<%=sGalleryDescription%>
<%=sImage1%> <%=sImage2%> <%=sImage3%> <%=sImage4%> <%=sImage5%>
<%=sTitle1%> <%=sTitle2%> <%=sTitle3%> <%=sTitle4%> <%=sTitle5%>
<%=sImage6%> <%=sImage7%> <%=sImage8%> <%=sImage9%> <%=sImage10%>
<%=sTitle6%> <%=sTitle7%> <%=sTitle8%> <%=sTitle9%> <%=sTitle10%>
<% Dim iPage If iPageCount > 1 Then For iPage = 1 to iPageCount If iPage <> 1 Then Response.Write " | " End If %> <%=iPage%> <% Next End If %>

 
HOME | ODISSI | SRI VISHNU TATTVA DAS | GURUS | ODISSI VILAS | PERFORMANCES
REVIEWS | UPCOMING EVENTS | GALLERY | LINKS | CONTACT
©2005 ODISSI VILAS
<% dbConn.Close set dbConn = Nothing %>