<%
Dim connStr1
connStr1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
connStr1 = connStr1 & Server.MapPath("admin/FileDB.mdb")
Set rstemp = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")
str = "SELECT * FROM Party where id<>0"
rstemp.Open str, connStr1
while Not rstemp.eof %>
|
