<% Set MyConn = Server.CreateObject(con_type) MyConn.Open "DRIVER=" & db_driver & ";DBQ=" & Server.MapPath("private/products.mdb") & ";" Set rs = Server.CreateObject(rs_type) a=1 strSQL = "SELECT * FROM Products WHERE ID=" & Request.QueryString("id") &";" rs.Open strSQL, MyConn, adOpenStatic, adLockReadOnly redirecturl=rs.Fields("AffiliateURL") rs.Close MyConn.Close Set rs = Nothing Set MyConn = Nothing Response.Redirect redirecturl %>