<%
set rsn=server.CreateObject("adodb.recordset")
dim new_id,query
if request("id") <> "" then
new_id=request("id")
query="select * from news where news_id="&new_id
counts = 1
else
query="select * from news "
counts = 2
end if
rsn.Open query,conn
%>
<%
Function WordWrap(OrigString)
StrLength = Len(OrigString)
intPosition = 1
StrWrapNumber = 80
StrLoop = StrLength\ StrWrapNumber
If StrLoop > 0 then
For LoopStep = 0 to StrLoop
WrapString = Mid(OrigString, intPosition, StrWrapNumber)
Response.Write WrapString
Response.Write " "
intPosition = intPosition + StrWrapNumber
Next
Else
Response.Write OrigString
End if
End Function
%>
Scantec Planning Consault
![](/images/up/<%=rsn.fields("news_image")%>)
