<%@ Language=VBScript %> <% frontpage = true dim objConn ' Our Connection Object dim rsCateg 'as ADODB.Recordset Set objConn = CreateObject("ADODB.Connection") set rsCateg = Server.CreateObject("ADODB.Recordset") objConn.open connStr function showmedia ' here we retrieve the column names set objRS1 = objConn.Execute("SHOW columns FROM content") If Not objRS1.EOF then datArray = objRS1.GetRows End if colLength = ubound(datArray,2) dim nameArray() redim nameArray(colLength) dim typeArray() redim typeArray(colLength) for i = 0 to colLength nameArray(i) = datArray(0,i) typeArray(i) = datArray(1,i) 'set some preset valz if datArray(0,i) = "id" then iid = i if datArray(0,i) = "filename" then ifilename = i if datArray(0,i) = "imgfilename" then iimgfilename = i if datArray(0,i) = "artist" then iartist = i if datArray(0,i) = "title" then ititle = i if datArray(0,i) = "description" then idescription = i if datArray(0,i) = "category" then icategory = i if datArray(0,i) = "filetype" then ifiletype = i if datArray(0,i) = "uid" then iuid = i if datArray(0,i) = "comments" then icomments = i if datArray(0,i) = "uservotes" then iuservotes = i if datArray(0,i) = "avgscore" then iavgscore = i if datArray(0,i) = "totalviews" then itotalviews = i if datArray(0,i) = "subdate" then idate = i next ' and now the media dim norezult norezult = false ob = " ORDER BY " & ob strSQL = "SELECT * FROM content WHERE active = '1' ORDER BY subdate DESC LIMIT 5" set objRS1 = objConn.Execute(strSQL) If Not objRS1.EOF then theArray = objRS1.GetRows arrayLength = ubound(theArray,2) else norezult = true End if '----display media for i = 0 to arrayLength %> <% ' detect what file type dash = instrrev(thearray(ifiletype,i),"-") + 1 slash = instrrev(thearray(ifiletype,i),"/") + 1 if slash > dash then ftype = mid(thearray(ifiletype,i),slash) else ftype = mid(thearray(ifiletype,i),dash) end if fileext = Server.MapPath("contentbin") if thearray(iimgfilename,i) <> "" and es.FileExists(fileext & servPRESETslash & thearray(iimgfilename,i)) then %>

<%elseif lcase(ftype) = "jpeg" or lcase(ftype) = "pjpeg" then %>

<%else%>

<%end if response.write "
" & mid(thearray(icategory,i),1, 10) & "
" & thearray(ititle,i) & "
" if i <> arrayLength then %>
<% end if next end function %> <% function editedpages strSQL = "select name, pagetype, id FROM editedpages where childof='0' and active = '1'" set objRS1=objConn.execute(strSQL) If not objRS1.eof then resultArray = objRS1.GetRows length = ubound(resultArray,2) else length = -1 End if objRS1.close %> <%for i = 0 to length%> →<%=resultArray(0,i)%>
<%next end function %>

"Curated" Media
<%editedpages%> →Films and music at the MFA
→You can still watch trailers from theWoods Hole Film Festival.

Newest
The Best: User Voted

Spread the Word!
Know anyone who would like this site? Click here to let 'em know.

Newest media:

<%showmedia%>

Welcome to the VisualBoston Project. We want your videos!

Our goal is to capture EVERYTHING New England on film and put it here. Music, film, arts, events, travel, and anything else YOU can think of. Just create a membership ("Join Us"), and submit away!

<% set objRS1 = objConn.Execute("SELECT * from coverage LIMIT 1") if not objRS1.eof then %>

Know how to make a video? Here are the current requests from people who want your help!

<%end if%> NEW: We now have a NEWS section. Check it out, and make sure you submit your own news!

What's HOT? Films and music at the MFA. Have your own events? Make sure you submit them. Are you a band or an artist with an upcoming show? Want someone to video it? Post a request!

Happy holidays, y'all! <% 'environmental web site of the day dim earray() set ee=es.OpenTextFile(Server.MapPath("fblog.txt"),1,false) do while ee.ReadLine <> "*ewebsiteofday" loop startday = ee.readline i = -1 do i = i + 1 redim preserve earray(i) earray(i) = ee.ReadLine loop while earray(i) <> "x" ee.close 'response.write i var1 = DateDiff("d", startday, Date)/i var2 = fix(var1) var3 = round((var1 - var2)* i) %>

Also, visit our green link of the day: <%=earray(var3) %>

As always, there is more to come, so keep coming back! Thanks, Alex.

<% set ee=es.OpenTextFile(Server.MapPath("fblog.txt"),1,false) do while ee.ReadLine <> "*edpick" loop i = 0 do thedate = ee.ReadLine theevent = ee.ReadLine whatday = date 'whatday = "7/30/2005" ' for testing loop while theevent <> "x" and thedate <> cstr(whatday) doit = -1 if theevent <> "x" then %>

Editor's Pick of the Day:

<%=theevent%>

<% end if%>

<% dim catarray() sub getcategories(ctype) redim catarray(0) dim es, ee set es=Server.CreateObject("Scripting.FileSystemObject") set ee=es.OpenTextFile(Server.MapPath("fblog.txt"),1,false) do while ee.ReadLine <> "*" & ctype loop i = 0 do catarray(i) = ee.ReadLine i = i + 1 redim preserve catarray(i) loop while catarray(i-1) <> "x" ee.close if ctype = "eventcategories" then whichpage= "events.asp" else whichpage= "media.asp" end if i = 0 do while i < ubound(catarray)-1 if len(catarray(i)) + len(catarray(i+1)) < 16 AND i < ubound(catarray)-2 then %> <%=catarray(i)%> | <%=catarray(i+1)%>
<% i = i + 2 else %> <%=catarray(i)%>
<% i = i + 1 end if loop end sub %>

Media Categories

Events

Users

<% getcategories "categories" %>

Show All
Today | Tomorrow

<% getcategories "eventcategories" %>

→Join
All Users

Artist | Film/video maker
Musician | Regular Joe

Band/musical group
Comedy club or group
Experimental arts organization
Film festival  |   Film studio
Museum/gallery  |   Music venue
Theater group  |   Theater venue
Visual arts org  |   Other

<% if len(session("memberuid"))=0 then%> Join Us! | <%end if%> <%=myarray(0,0)%> - <%=myarray(1,0)%> - <%=myarray(2,0)%> - <%=myarray(3,0)%> - <%=myarray(4,0)%> | Other stuff: About - Get Covered - Submit

(For the PRODUCTION COMPANY site, click here)