<% Set db = Server.CreateObject("ADODB.Connection") set rs = server.createObject("ADODB.Recordset") ' if request("action")="edit" then if len(request("album1"))=0 then myError="Must select all albums to display." if len(request("album2"))=0 then myError="Must select all albums to display." if len(request("album3"))=0 then myError="Must select all albums to display." if len(request("album4"))=0 then myError="Must select all albums to display." if len(request("album5"))=0 then myError="Must select all albums to display." if len(request("album6"))=0 then myError="Must select all albums to display." if len(myError)<1 then response.write "Updating Albums to Display... " db.execute("UPDATE frontpage SET album1='" & request("album1") & "', album2='" & request("album2") & "', album3='" & request("album3") & "', album4='" & request("album4") & "', album5='" & request("album5") & "', album6='" & request("album6") & "' WHERE id='1'") response.write "Done." end if else rs.open "select * from frontpage", db if NOT rs.eof then album1=rs("album1") album2=rs("album2") album3=rs("album3") album4=rs("album4") album5=rs("album5") album6=rs("album6") end if rs.close end if if len(myerror)>0 then response.write "Error: " & myError & "

" %>

Album 1 <% rs.open "select * from albums", db do while NOT rs.eof ifSelected="" if rs("id")=album1 then ifSelected=" selected" response.write "" & rs("title") & "" & vbCrLf rs.movenext loop rs.close %>
Album 2 <% rs.open "select * from albums", db do while NOT rs.eof ifSelected="" if rs("id")=album2 then ifSelected=" selected" response.write "" & rs("title") & "" & vbCrLf rs.movenext loop rs.close %>
Album 3 <% rs.open "select * from albums", db do while NOT rs.eof ifSelected="" if rs("id")=album3 then ifSelected=" selected" response.write "" & rs("title") & "" & vbCrLf rs.movenext loop rs.close %>
Album 4 <% rs.open "select * from albums", db do while NOT rs.eof ifSelected="" if rs("id")=album4 then ifSelected=" selected" response.write "" & rs("title") & "" & vbCrLf rs.movenext loop rs.close %>
Album 5 <% rs.open "select * from albums", db do while NOT rs.eof ifSelected="" if rs("id")=album5 then ifSelected=" selected" response.write "" & rs("title") & "" & vbCrLf rs.movenext loop rs.close %>
Album 6 <% rs.open "select * from albums", db do while NOT rs.eof ifSelected="" if rs("id")=album6 then ifSelected=" selected" response.write "" & rs("title") & "" & vbCrLf rs.movenext loop rs.close %>

<% set rs=nothing db.close set db=nothing %>