<% 'Declare variables needed mon = month(now) don = day(now) issueid = request.querystring("id") Set objRS = Server.CreateObject("ADODB.Recordset") Set objCmd = Server.CreateObject("ADODB.Command") objRS.ActiveConnection = objConn objCmd.CommandType = adCmdStoredProc objCmd.CommandText = "select_homepage" objCmd.ActiveConnection = objConn RemParam(objCmd.Parameters) Set objParam = objCMD.CreateParameter("@mon", adInteger, adParamInput, , mon) objCMD.Parameters.Append objParam Set objParam = objCMD.CreateParameter("@don", adInteger, adParamInput, ,don) objCMD.Parameters.Append objParam Set objRS = objCmd.Execute Set objCmd = nothing If objRS.EOF = false then aRS1 = objRS.GetRows set objRS = objRS.NextRecordset If objRS.EOF = false then aRS2 = objRS.GetRows set objRS = objRS.NextRecordset If objRS.EOF = false then aRS3 = objRS.GetRows else note = "not" end if set objRS = objRS.NextRecordset If objRS.EOF = false then aRS4 = objRS.GetRows %>

<%=ars1(37,0)%> advanced search <% if note <> "not" then response.write " " & aRS3(7,0) & " " end if %> Virtual Music: How the Web Got Wired for Sound. Read an excerpt from the recently released book and an interview with its author William Duckworth.

<% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>