Powered by Digital Vision <%
dburl="blog2008\rfvv8d5@\#glo_99bal#.mdb"
db=dburl


Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>

<!--#include file="blog2008/inc/function_pjf.asp"-->

<%

total=int(conn.execute("select sub_no from system")(0))
ii=0

set rshw=server.createobject("adodb.recordset")
sql="select * from hw where jia=true order by hw_id desc"
rshw.open sql,conn,1,1

do while not rshw.eof

url=url&"<a href="""&root&formatname(rshw("hw_name"),rshw("hw_id"))&""" title="""&rshw("hw_name")&""">"&rshw("hw_name")&"</a><br>"

rshw.movenext
loop

 

set rshw=server.createobject("adodb.recordset")
sql="select * from hw where jia=false order by hw_id desc"
rshw.open sql,conn,1,1

do while not rshw.eof and ii<total

url=url&"<a href="""&root&formatname(rshw("hw_name"),rshw("hw_id"))&""" title="""&rshw("hw_name")&""">"&rshw("hw_name")&"</a><br>"

ii=ii+1

rshw.movenext
loop

response.write url
%>

-realizzazione siti web