<% dim conn dim connstr on error resume next connstr="DBQ="+server.mappath("../Database/#base.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr %> <% set rs=server.createobject("adodb.recordset") sql="select * from products order by id" rs.open sql,conn,1,1 do while not rs.eof%> <% Style_No=rs("Style_No") Style_No1=replace(Style_No," ","_") Style_No1=replace(Style_No1,"-","_") Img_Name=rs("Img_Name") %> <%=Style_No%>
<% rs.movenext loop set rs=nothing %>