%
if Session("username") <> "" then
strName=Session("username")
dim rsUser,cmdUser
set rsUser = Server.CreateObject("Adodb.Recordset")
set cmdUser = Server.CreateObject("Adodb.Command")
cmdUser.CommandText = "SP_GetUserDetail"
cmdUser.CommandType = &H0004
cmdUser.ActiveConnection = con
cmdUser.Parameters.append cmdUser.CreateParameter("@UserName",200,&H0001,200,strName)
rsUser.Open cmdUser,,3,3
end if
set rsForums = Server.CreateObject("Adodb.Recordset")
set cmdForums = Server.CreateObject("Adodb.Command")
cmdForums.CommandText = "SP_GetForums"
cmdForums.CommandType = &H0004
cmdForums.ActiveConnection = con
rsForums.Open cmdForums,,3,3
%>
<%
if cint(strPosts) > 0 then
Response.Write rsForums("LastPost")
Response.Write " "
Response.Write ""&rsForums("LastPostBy")&""
else
Response.Write "-"
end if
%>