<%@ Language=VBScript %> <% DIM conn,conString,gallerySQL,pictureSQL,galleryRS //On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & application("conString") gallerySQL = "SELECT gallery_id,gallery_name,gallery_description,gallery_thumbnail FROM gallery " Set galleryRS = conn.Execute(gallerySQL) //If (Session("SessionUser") = "") Then // Session("SessionUser") = "guest" // Session("SessionPermissions") = "read" //End If if StrComp(Session("SessionPermissions"),"admin") = 0 then canCreate = true else canCreate = false end if %> Cliodhna Quinlan

cliodhnaquinlan

<% while not galleryRS.EOF %> <% galleryRS.MoveNext wend %> <% if canCreate = true then %> <% end if%>

	">	"> <%=galleryRS("gallery_name")%> <% if canCreate = true then %> ">modify \| ">delete <% end if %>
		about
	new gallery
	login (<%=Session("SessionUser")%>)

<% conn.close set galleryRS = nothing set conn = nothing %>