<%
set conn=server.CreateObject("adodb.connection")
conn="provider=Microsoft.Jet.oledb.4.0;Data Source="&server.MapPath("1.mdb")
set Rs=server.createobject("adodb.recordset")
rs.open "select * from url order by id desc",conn,3,2
%>
" target="_self" title=<%=rs("vname")%>> <% if len(trim(rs("vname")))>10 then response.Write left(trim(rs("vname")),10)&"..." else response.Write trim(rs("vname")) end if %> |