<% Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://www.malvernmums.org.uk/tinc?key=2mFjuRcF", False xml.Send codetxt=xml.responseText startpos=instr(codetxt,"") response.write "
Malvern Today "&mid(codetxt,startpos,endpos-1)&"   
" Set xml = Nothing %>
<%Session.LCID = 2057 on error resume next Set cn = Server.CreateObject("ADODB.Connection") DSNName = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/mums.mdb") cn.Open DSNName sqlstr="select top 1 * from messages t1,members t2 where mesg_type = 3 and t1.posted_by = t2.usernm order by mesg_id desc" set forum=cn.execute(sqlstr) sqlstr="select top 1 * from messages t1,members t2 where mesg_type = 4 and t1.posted_by = t2.usernm order by mesg_id desc" set forum3=cn.execute(sqlstr) sqlstr="SELECT discussion.discussion_id, discussion.discussion_desc, " + _ " Max(messages.mesg_dt) AS last_post, Count(messages.mesg_dt) as no_of_posts" + _ " FROM discussion LEFT JOIN messages ON discussion.discussion_id = messages.discussion_id " + _ " GROUP BY discussion.discussion_id, discussion.discussion_desc order by Max(messages.mesg_id) desc ;" set forum2=cn.execute(sqlstr) response.write("

Welcome to "&session("sitename")&"

") if unescape(""&forum("mesg_txt")) <> "" then response.write("

"&unescape(""&forum("mesg_txt"))&"

") end if response.write("

Main Picture

Why not post some messages for other members on our forums?

  • "" then response.write(" style='cursor:pointer' onclick='window.location=""forum_detail.asp?discussion_id="&forum2("discussion_id")&"""' ") end if %> ><%=trim(unescape(forum2("discussion_desc")))%>
    <% response.write(""&mid(unescape(forum99("mesg_txt")&" "),1,200)&"...") set forum99 = Nothing %>
  • "" then response.write(" style='cursor:pointer' onclick='window.location=""forum_detail.asp?discussion_id="&forum2("discussion_id")&"""' ") end if %>><%=trim(unescape(forum2("discussion_desc")))%>
    <% response.write(""&mid(unescape(forum99("mesg_txt")&" "),1,200)&"...") set forum99 = Nothing %>
  • "" then response.write(" style='cursor:pointer' onclick='window.location=""forum_detail.asp?discussion_id="&forum2("discussion_id")&"""' ") end if %>><%=trim(unescape(forum2("discussion_desc")))%>
    <% response.write(""&mid(unescape(forum99("mesg_txt")&" "),1,200)&"...") set forum99 = Nothing %>
  • "" then response.write(" style='cursor:pointer' onclick='window.location=""forum_detail.asp?discussion_id="&forum2("discussion_id")&"""' ") end if %>><%=trim(unescape(forum2("discussion_desc")))%>
    <% response.write(""&mid(unescape(forum99("mesg_txt")&" "),1,200)&"...") set forum99 = Nothing %>

<%=unescape("" & forum3("mesg_txt"))%>