% number = request.QueryString("num") if number<>"" then %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("base/magazines.MDB") & ";" SQL = "SELECT * From numbers where id="&number Set rst = Conn.Execute(SQL) picture=rst("picturename") issuenumber=rst("name") if rst ("anons") <> "" then anons = rst("anons") end if set rst = nothing set Conn = nothing %>
|
|