%@Language=VBScript%>
<%
Set cn = Server.CreateObject("ADODB.Connection")
If Session("Members") = true then
cn.Open "mvcDSN"
else
cn.Open "mvcDSN"
end if
Set conn1 = Server.CreateObject("ADODB.Recordset")
conn1.ActiveConnection = cn
conn1.CursorType = adOpenKeyset
conn1.LockType = adLockPessimistic
strQRY = "SELECT * FROM AboutUs ORDER by iDate"
conn1.open strQRY
dContent = conn1("Content")
conn1.close
cn.close
mContent = Replace(dContent, Chr(10), "
")
%>