|
<%
function getLenTip (byval text, byval n)
dim tmp_len
tmp_len = len(text)
if tmp_len > n then
text = left(text, n)
if tmp_len >= (n+1) then text = text & "..."
end if
getLenTip = text
end function
%>
<%
set objconn = server.createobject("adodb.connection")
objconn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("news206.mdb")
set rs = server.createobject("adodb.recordset")
cmd = "SELECT * FROM news ORDER BY StartDate DESC"
rs.open cmd, objconn, 1,3
if rs.eof then
else
%>
|
We accept the following
payment methods:
 |
|
|
 RelatedLinks |
|
|
¡@
¡@
¡@
¡@
¡@
¡@
¡@
¡@ |
