<%
Function space_Enter(contentstr)
space_enter=Replace(Cstr(contentstr),Chr(10)," ")
End Function
%>
<%
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("cbrx.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
sqlstr="select * From cbrx where id="&request("id")&""
rs.open sqlstr,conn
%>