
HOME > LOCATION > ROOMS > FACILITIES > RATES > BOOKING > GALLERY > MENU > LINKS
%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% strSQL = "SELECT imgID, imgTitle, imgURL FROM tblGallery" Conn.Open conn_string Set rsSQL = conn.Execute(strSQL) If Not rsSQL.EOF Then x=1 Do Until rsSQL.EOF galleryLinks = galleryLinks & (" " & x & " ") x=x+1 rsSQL.MoveNext Loop End If Set rsSQL = Nothing Conn.Close %>

HOME > LOCATION > ROOMS > FACILITIES > RATES > BOOKING > GALLERY > MENU > LINKS