Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db1.mdb") set rs=server.CreateObject("adodb.recordset") sqlstr="select * from test where id='"&id&"'" rs.open sqlstr,conn,1,3 if rs.bof then Response.Redirect(response.write rs("url"))
end if rs.close conn.close set rs=nothing set conn=nothing %>