|
<%
Set Connts = Server.CreateObject("Adodb.Connection")
Connts.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("\DB\clpbabypre\album.mdb")
set rsts = Server.CreateObject("Adodb.Recordset")
rsts.open "select * from indexpic where ((indexpic.indexlpicshow) <> 'n')",connts
if not rsts.bof then
rsts.movefirst
while not rsts.eof
mindexlpname = rsts("indexlpicname")
%>