<% Dim Connect, Classifieds, ItemNum, Query, QuestWords ItemNum = Trim(Request("Item")) If ItemNum = "" Then ItemNum = "2" END IF Query = "SELECT * FROM AnswerItems WHERE ID=" & CleanSql(ItemNum) Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open MM_wadb_STRING Set Classifieds = Connect.Execute(Query) QuestWords=Classifieds("Question") AnsWords = Classifieds("Answer") PenName = Classifieds("PenName") Cat = Classifieds("Category") Classifieds.Close %> <%=QuestWords%>

Category:
<%=Cat%>
Question:
<%=QuestWords%>
Answer:
<%=AnsWords%>
Submitted by:
<%=PenName%>