Untitled

		if replyRevisions > 0 and int(revID) = int(replyID) and trim(revtype) = "r" then
			set revRec = server.CreateObject("adodb.recordset")
			SQL = "getRevisionsReply '" & topicID & "','" & replyID & "'"
			revRec.Open SQL,DB_CONNECTION,0,1			
			IF NOT revRec.EOF then
				%>
				<b><%=VIEW_REPLY_REVISIONS%></b>
				<%
				DO WHILE NOT revRec.EOF 
					%>
					<table border="1" bordercolor="<%=colorborder%>" width="100%" cellpadding="3" cellspacing="0" ID="Table24">
					<tr><td width="100"><%=VIEW_DATE_REV%></td><td><%=displayDate(formatDateTime(revRec.Fields("revDate"),2)) & "&nbsp;" & formatDateTime(revRec.fields("revDate"),3)%></td></tr>
					<tr><td width="100"><%=VIEW_AUTHOR_REV%></td><td><%=revRec.fields("M_Name")%></td></tr>
					<tr><td valign="top"><%=VIEW_MESSAGE_REV%></td><td><%=formatStr(revRec.Fields("revBody"))%></td></tr>
					</table>
					<img src="/images/pixel.gif" height="3">
					<%
					revRec.MoveNext 
				loop				
			end if	
			
			if revRec.state <> 0 then
				revRec.close
			end if
								
		end if