<%@ Language=VBScript codepage=1255%>

		<% response.write "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" set rs=Server.CreateObject("ADODB.recordset") sql="SELECT * FROM news" rs.Open sql, conn,2,3 do until rs.EOF if rs("pic_b")<>"" then 'thelink=rs("link") 'response.write thelink & " " response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" else response.write "" response.write "" end if rs.movenext loop rs.Close set rs=nothing Conn.Close set Conn=nothing response.write " " if rs("link")<>"" then response.write "" end if response.write ""&Convers(rs("kot"))&"" if rs("link")<>"" then response.write "" end if response.write "  " if rs("text1")<>"" then response.write reverseP(cstr(rs("text1")),35) end if response.write "   " response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write " " if rs("link")<>"" then response.write "" end if response.write ""&Convers(rs("kot"))&"" if rs("link")<>"" then response.write "" end if response.write "  " if rs("text1")<>"" then response.write reverseP(cstr(rs("text1")),65) end if response.write "   " %>