<%
Nr= request.QueryString("nr")
Land= request.QueryString("Land")
sqlstr= "select * from content where nr = " & Nr
SET RS = vb.Execute (sqlstr)
inhalt=replace(rs("inhalt"),"<","<")
inhalt=replace(inhalt,">",">")
inhalt1= replace(inhalt,Chr(13),"C")
%>