<%@ Language=VBScript %>

<% mysql = "select * from whatsnew where display=1 order by sort" set rsnew = server.CreateObject("ADODB.Recordset") set rsnew = con.execute(mysql) if not rsnew.EOF then %> <% while not rsnew.EOF%> <% rsnew.MoveNext wend %> " ><%=rsnew("title")%> <% end if rsnew.Close set rsnew = nothing %> <% if request.querystring("id")<>"" then sqld = "select * from whatsnew where id="&request.querystring("id") set rsd = server.createobject("ADODB.Recordset") rsd.open sqld,con,adOpenStatic %> <% if rsd("filepath") <> "" and rsd("imgdisplay") = true then %> <%end if %> News Title : <%=rsd("title")%> Description: <%=rsd("contents")%> <% path1 = rsd("filepath") MyStr = Right(path1, 3) %> <% if MyStr = "gif" or MyStr = "jpg" then %> " width="150"> <%else%> " target="_blank">Click <%end if %> <% end if %>