%
SQL = "SELECT * FROM pages WHERE IDNum = "&PageID&";"
Set RS = Conn.Execute(SQL)
IF not RS.EOF THEN
IF lang = 2 THEN
rubrik = RS("en_rubrik")
brodtext = RS("en_brodtext")
ELSE
rubrik = RS("rubrik")
brodtext = RS("brodtext")
END IF
counter = RS("counter") + 1
END IF
RS.Close
SQL = "UPDATE pages SET counter = "&counter&" WHERE IDNum = "&pageID&";"
Conn.Execute(SQL)
%>
<%=brodtext%>