<% response.ContentType = "text/xml" Dim sConnection Dim objConn Dim sQueryString Dim objRS Dim objRS2 Dim sQuery Dim sfeedsQuery Dim sRec Dim sBib Dim sLink Dim sDataArray Dim sTitle Dim sAuthor Dim sSummary Dim sPubdate Dim sSyndetics Dim sJacket Dim sRecAdded Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DSN=newmat2" sQueryString = Request.QueryString("id") sfeedsQuery = "SELECT * from feeds WHERE id=" & sQueryString & "" Set objRS2 = objConn.Execute(sfeedsQuery) sQuery = "SELECT main3.*, DATE_FORMAT(recadded,'%a, %d %b %Y %T') AS rfcpubdate FROM main3 INNER JOIN (SELECT MAX(iid) AS iid FROM main3 group by iid) ids ON main3.iid = ids.iid " sQuery = sQuery & "WHERE location LIKE '" & ObjRS2("loc") & "%' and main3.data LIKE '%" & ObjRS2("data") & "%' and main3.level LIKE '" & ObjRS2("level") & "' and main3.format LIKE'" & ObjRS2("format") & "'" sQuery = sQuery & "GROUP BY mid ORDER BY pubdate DESC, mid DESC LIMIT 10" Set objRS = objConn.Execute(sQuery) response.write("") response.write("") response.write("") response.write("") response.write("CountyCat - " & ObjRS2("title") & "") response.write("New materials available to users of the Milwaukee County Federated Library System") response.write("") response.write("60") while (not ObjRS.EOF) sRecAdded = ObjRS("rfcpubdate") sCafe = "http://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=MCFL97008&Password=CC29541&Return=1&Type=S&Value=" & ObjRS("isbn") & "&erroroverride=1" sJacket = "" sRec = ObjRS("mid") sSummary = ObjRS("summary") sBib = Left(sRec, Len(sRec) - 1) sBib = Right(sBib, Len(sBib) -1) sLink = "" sDataArray = split(ObjRS("data"), "|") sAuthor = sDataArray(0) sTitle = sDataArray(1) sImprint = sDataArray(2) If ObjRS("isbn") = "" Then sJacket ="" End If response.write("") response.write("" & sLink & "") response.write("" & sLink & "") response.write("" & "<![CDATA[" & sTitle & "]]>") response.write("" & "" & sAuthor & "" & " " & sImprint & "
" & sSummary & "
]]>
") response.write("" & sRecAdded & " CDT") response.write("
") objRS.MoveNext Wend response.write("
") response.write("
") objRS.Close Set objRS = Nothing objRS2.Close Set objRS2 = Nothing objConn.Close Set objConn = Nothing %>