<% ThisURL = request.ServerVariables("URL") UScore = InStr(1, ThisURL, "-") DotPos = Len(ThisURL) - 4 ForumID = mid(ThisURL, UScore + 1, DotPos - UScore) sql = "SELECT Title FROM pspForums Where ForumID = " & ForumID SET rs = conn.execute(sql) If NOT rs.EOF Then ForumTitle = rs("Title") End If %> Sony PSP Forum Index

Sony PSP Forum

Post new Topic <% sql = "SELECT T.TopicID, T.Title, U.UserName, T.ReplyCnt, T.ShortD, TopicType " & _ " FROM PSPTopics T " & _ " INNER JOIN PSPUsers U ON U.UserID = T.UserID " & _ " WHERE ForumID = " & ForumID & _ " ORDER BY TopicType desc, TopicDate" SET rs = conn.execute(sql) While NOT rs.EOF response.Write("") response.Write("") response.Write("") response.Write("") response.Write("") rs.MoveNext Wend %>

<%=ForumTitle%>
Title	Replies	Last Post
") If rs("TopicType") = 1 Then Response.Write("Sticky: ") End If response.Write("" & rs("Title") & " ") If rs("TopicType") = 1 Then response.Write(" " & rs("ShortD") & " ") Else response.Write(" " & rs("ShortD") & " ") End If response.Write("	" & rs("ReplyCnt") & "	" & rs("ReplyCnt") & "