Delta properties Grand rapids & midwest

Space ID#:

There are multiple benefits of moving into a space at Plant Two:

1. Convenience of location
2. Elevator / Handicap accessible
3. Ample Parking
4. Exit 83 on US-131 downtown Grand Rapids
5. Warehousing space available onsite

Come check us out or call (616) 243-9000 for more information on how to get your office in one of Grand Rapids' historic buildings.

You can also email Rick today for the latest availability.

Space of the Moment

<% Dim spacesCon Dim rsSpaces Dim strSQL Set spacesCon = server.CreateObject("ADODB.Connection") spacesCon.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("database/availablespaces.mdb") Set rsSpaces = Server.CreateObject("ADODB.Recordset") rsSpaces.cursortype = 3 strSQL = "SELECT * FROM availablespaces WHERE availablespaces.offmarket = No;" rsSpaces.Open strSQL, spacesCon Dim randomrec randomrec = Cint(rsspaces.recordcount) rsspaces.movefirst Dim rndnum Randomize Timer rndnum = (Int(RND * randomrec)) rsspaces.move rndnum Response.write("" & rsSpaces("Address") & "" & "
") Response.write(rsSpaces("City") & "
") Response.write(rsspaces("suite") & "
") IF rsSpaces("squarefootage") = "0" THEN Response.Write("") ELSE Response.Write(rsSpaces("squarefootage")) IF rsSpaces("squarefootage") = "0" THEN Response.Write("") ELSE Response.Write(" " & rsSpaces("sqft") & "
") IF rsSpaces("Price") = "0" THEN Response.Write("Please Call!") ELSE Response.Write("$" & rsSpaces("Price") & ".00") IF rsSpaces("Price") = "0" THEN Response.Write("") ELSE Response.Write(rsSpaces("Priceper") & "
") Response.write(rsspaces("features") & "
") IF rsSpaces("office") = True THEN Response.Write("Office space available" & "
") End If IF rsSpaces("Retail") = True THEN Response.Write("Retail space available" & "
") End If IF rsSpaces("Storage") = True THEN Response.Write("Storage space available" & "
") End If IF rsSpaces("Warehouse") = True THEN Response.Write("Warehouse space available" & "
") End If IF rsSpaces("Manufacturing") = True THEN Response.Write("Manufacturing space available" & "
") End If IF rsSpaces("Drivein") = True THEN Response.Write("Drive-in space available" & "
") End If IF rsSpaces("Hobbyartist") = True THEN Response.Write("Hobby/Artist space available" & "
") End If rsspaces.close set rsspaces = nothing spacesCon.close set spacescon = nothing %>